Alternativ til Environ("username")

Function Bruger()
    Dim wshNetwork
    Set wshNetwork = CreateObject("WScript.Network")
    Bruger = wshNetwork.UserName ' Bruger login
    wshNetwork.userdomain  ' Domæne
    wshNetwork.ComputerName ' Computeren der logges ind fra
End Function

Hej Kabbak

Kan se jeg ikke fik spørgsmålet gjort færdigt ...

får Access på Citrix til at fejle ... skulle der have stået

Fandt en work around hvor jeg benytter en funktion som mellemled til at kalde Environ("Username")

Hej Kabbak
Jeg har det samme problem ved Citrix og sætter min lid til at denne rutine kan hjælpe.
Når jeg afvikler funktionen på min loakle pc får jeg ganske vist brugernavnet, men rutinen fejler ved Domæne og ComputerName med denne kode.
Runtime error 438
"Object doesn't support this property or method".
Hvorfor gør den det ?

Venlig hilsen OMN

Function Domain()
    Dim wshNetwork
    Set wshNetwork = CreateObject("WScript.Network")
    Domain = wshNetwork.userdomain  ' Domæne
End Function

Function Bruger()
    Dim wshNetwork
    Set wshNetwork = CreateObject("WScript.Network")
    Bruger = wshNetwork.UserName ' Bruger login
End Function

Function Computer()
    Dim wshNetwork
    Set wshNetwork = CreateObject("WScript.Network")
  Computer = wshNetwork.ComputerName ' Computeren der logges ind fra
End Function


du skal bruge 3 forskellige functions

Ja naturligvis tak.
Jeg prøver lige at give dig point på det andet svar du gav mig.
Hvordan giver jeg dig 15 point herfra ?

OMN

et svar ;-))