1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
|
Dim wshNetwork, WshShell, Server1, Server2
Set WshNetwork = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
on error resume next
Server1 = "YBNT01"
Server2 = "YBNT07"
' **** Delete old maps ****
Commande = "Cmd /c NET USE * /DELETE /Y"
Go = WSHshell.Run(Commande)
wscript.sleep 300
'**** All Public ****
WshNetwork.MapNetworkDrive "J:","\\" & Server1 & "\Temp"
wscript.sleep 300
WshNetwork.MapNetworkDrive "P:","\\" & Server1 & "\Public"
wscript.sleep 300
'**** CG_Planning ****
If isMemberOf("CG_Planning") Then
WshNetwork.MapNetworkDrive "J:","\\" & Server1 & "\Temp"
wscript.sleep 300
WshNetwork.MapNetworkDrive "G:","\\" & Server2 & "\Manufacturing"
wscript.sleep 300
End If
'**** CG_Warehouse ****
If isMemberOf("CG_Warehouse") Then
WshNetwork.MapNetworkDrive "J:","\\" & Server1 & "\Temp"
wscript.sleep 300
WshNetwork.MapNetworkDrive "G:","\\" & Server2 & "\Manufacturing"
wscript.sleep 300
End If
'**** Personal share ****
WshNetwork.MapNetworkDrive "U:","\\" & Server1 & "\" & wshNetwork.UserName
wscript.sleep 300
Set WshNetwork = Nothing
Set user = Nothing
Set found = Nothing
Set WshShell = Nothing
Set Server1 = Nothing
Set Server2 = Nothing
WScript.Quit
'*** Fin ****
Function isMemberOf(group)
Dim user, found, temp
found = False
Set user = GetObject("WinNT://" & CreateObject("WScript.Network").UserDomain & "/" & CreateObject("WScript.Network").UserName & ",user")
For Each temp In user.Groups
If UCase(temp.Name) = UCase(group) Then
found = True
Exit For
End If
Next
isMemberOf = found
End Function
'********************* |
Partager