Advertisement
Advertisement
| 11.20.2007 at 01:20PM PST, ID: 22973943 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: |
Set wshNetwork = CreateObject("WScript.Network")
rem wshNetwork.MapNetworkDrive "p:", "\\server\Profiles"
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
rem strGroups = LCase(Join(CurrentUser.MemberOf))
wshNetwork.MapNetworkDrive "L:", "\\server\Profiles"
wshNetwork.MapNetworkDrive "M:", "\\server\MPS"
wshNetwork.MapNetworkDrive "P:", "\\server\PastelData"
wshNetwork.MapNetworkDrive "S:", "\\server\Share"
wshNetwork.MapNetworkDrive "Z:", "\\server\Pastel07"
wshNetwork.MapNetworkDrive "X:", "\\server\Payroll"
wshNetwork.AddWindowsPrinterConnection "\\server\Sharp206"
wshNetWork.SetDefaultPrinter "\\server\Sharp206"
|