Advertisement
Advertisement
| 08.28.2008 at 12:43PM PDT, ID: 23686922 | Points: 500 |
|
[x]
Attachment Details
|
||
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: |
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
' ----- H1 S1 Common Shares -----
'objNetwork.RemoveNetworkDrive "S:"
objNetwork.MapNetworkDrive "S:", "\\Offsite-server\Senate_House_shared"
'objNetwork.RemoveNetworkDrive "O:"
objNetwork.MapNetworkDrive "O:", "\\Offsite-server\House_shared"
' ----- H1 Shares -----
'If InStr(strGroup, "cn=h1") Then
' WScript.Echo "H1"
' objNetwork.MapNetworkDrive "h:", "\\Server\Users\" & objNetwork.UserName
' objNetwork.RemoveNetworkDrive "O:"
' objNetwork.MapNetworkDrive "O:", "\\Offsite-server\H1_shared"
'ElseIf InStr(strGroup, "cn=s1") Then
' WScript.Echo "S1"
' objNetwork.MapNetworkDrive "h:", "\\YourServer\Users\" & objNetwork.UserName
' objNetwork.RemoveNetworkDrive "O:"
' objNetwork.MapNetworkDrive "O:", "\\Offsite-server\s1_shared"
'End If
WScript.Quit
|