Logon virker ikke

Private Sub Command1_Click()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
Bruger = wshNetwork.UserName
' brugerens private mappe på netværket kobles på sådan

wshNetwork.MapNetworkDrive "V:", "\\serv1\" & Bruger & "$"
End Sub

i mit tilfælde ;-))

Takker så fik jeg det til at virke !

Vil du have point ?

et svar ;-))

Et side spørgsmål: Kan man lave sådan her ifb. med Windows 2003:

IF medlem af gruppe 1
så tilføj
ELSEIF medlem af gruppe 2
så tilføj
ELSEIF medlem af gruppe 3
så tilføj
ELSE
tilføj

Og kan man få et VB til at køre en BAT fil ?