usernaam windows in label zetten

[hellboy01]

Hoi,
weet iemand misschien hoe je de windows usernaam in een label op een userform kan zetten?
alvast bedankt

 

[OctaFish]

Ja, met

Label.Caption = VBA.Environ("UserName")

 

[hellboy01]

Bedankt, is simpeler dan ik had verwacht, dacht dat ik allerlei libraries aan zou moeten zetten en objecten aan moeten maken.

 

[OctaFish]

Nee, sommige dingen kun je gewoon uit de Environ halen. Daar zit nog veel meer nuttigs in, zoals de systeemvariabelen, pcnaam etc.

 

[hellboy01]

Ok dat is inderdaad wel handig, ik zal environ eens nader bestuderen, het werkt overigens prima met username. Nu kom ik tot de ontdekking dat Rob_Laptop niet zo'n handige usernaam is, weet jij misschien ook hoe ik dat in windows kan aanpassen. Nu krijg ik bij het openen van mijn dialoogscherm "Welkom Rob_Laptop" te zien.

 

[snb]

Ook jouw windows heeft een configuratiescherm/gebruikersaccounts.

 

[hellboy01]

Hmm, vreemd. De accountname heb ik gewijzigd en bij het unlocken bij openklappen laptop en in het startmenu laat die inderdaad Rob zien maar met de vba environ("username") geeft die nog steeds Rob_Laptop weer. Ik heb mijn laptop uitgezet en weer opgestart maar laat geen Rob zien in vba.

dit is de code

Private Sub UserForm_Initialize()

    Dim uName As String
    uName = Environ("username")

    If Weekday(VBA.Date) = 1 Then
        Label14.Caption = "Het is weer zondag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 2 Then
        Label14.Caption = "Het is weer maandag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 3 Then
        Label14.Caption = "Het is weer dinsdag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 4 Then
        Label14.Caption = "Het is weer woensdag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 5 Then
        Label14.Caption = "Het is weer donderdag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 5 Then
        Label14.Caption = "Het is weer vrijdag beste " & uName & "."
        ElseIf Weekday(VBA.Date) = 7 Then
        Label14.Caption = "Het is weer zaterdag beste " & uName & "."
     End If
    
End Sub

 

[snb]

Private Sub UserForm_Initialize()
  Label14.Caption = "Het is weer" & format(date," dddd ") & "beste " & environ("Username") & "."
End Sub

 

[hellboy01]

Hi snb,
dat is idd een stuk korter, bedankt voor de tip. Zal dat stukje code eens goed bestuderen, heb nog een paar zulke lange statments dit ingekort kunnen worden.