Søge og tildele drev derefter i login script

Hey !
Jeg har svaret på noget lign. i dette :
http://www.eksperten.dk/spm/557810

Kan det evt. bruges ??

/Killer

Hej :-)

Det var faktisk det svar jeg havde kigget på. Har rodet lidt rundt med det.

Men det ser ud til at den bare ender med at have det sidste drev "mappet" af de forskellige.

Jeg har dog undladt:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
if mid(objItem.ProviderName,1,2)= "\\" Then
shell.run "%comspec% /c net use " & objitem.name & " /delete /yes",0,True
end If
Next

Jeg skal hurtigt sige at jeg absolut ingen erfaring har med vbscript, men så vidt jeg kunne tyde mig til, så fjernede den bare de drev som var "mappet"? Det er måske ikke korrekt?
Jeg har dog brugt Network.removeNetworkDrive før Network.MapNetworkDrive til de forskellige drev.

derudover brugte jeg
StrDomain = wshNetwork.UserDomain
StrBruger = wshNetwork.Username

Da jeg intet output fik hvis jeg undlod "wsh" ?

Prøv, at sende det, du har.
Så ser vi lige på det :o)

on error resume next

Set WSHNetwork = WScript.CreateObject("WScript.Network")
set wshShell = WScript.CreateObject("WScript.Shell")
StrDomain = WshNetwork.UserDomain
StrBruger = WshNetwork.Username

'Tidssynkronisering
wshShell.Run("net time \\ms-server /set /yes")

'Faelles share
wshnetwork.removenetworkdrive "K:"
wshnetwork.mapnetworkdrive "K:","\\ms-server\FAELLES"

'Lav share til afdeling
StrMedlem = "Domain_Lager"
Set StrGruppe = GetObject("WinNT://" & StrDomain & "/" & StrMedlem)
If StrGruppe.isMember("WinNT://" & StrDomain & "/" & StrBruger) Then
wshnetwork.removenetworkdrive "I:"
wshnetwork.mapnetworkdrive "I:","\\ms-server\LAGER$"
End If

StrMedlem = "Domain_Salg"
Set StrGruppe = GetObject("WinNT://" & StrDomain & "/" & StrMedlem)
If StrGruppe.isMember("WinNT://" & StrDomain & "/" & StrBruger) Then
wshnetwork.removenetworkdrive "I:"
wshnetwork.mapnetworkdrive "I:","\\ms-server\SALG$"
End If

StrMedlem = "Domain_Administration"
Set StrGruppe = GetObject("WinNT://" & StrDomain & "/" & StrMedlem)
If StrGruppe.isMember("WinNT://" & StrDomain & "/" & StrBruger) Then
wshnetwork.removenetworkdrive "I:"
wshnetwork.mapnetworkdrive "I:","\\ms-server\ADMINISTRATION$"
End If

stadig i live? :|

luk