jjohnson502
asked on
Client User Logon Script wont load in Windows 7
Having issues loading a startup script in Windows 7. It basically assigns a netwrok drive based on the security group you are associatd with. I cant get this to load on any windows 7 machine. If i manually lauch it, it works just fine. Any ideas?
On Error Resume Next
Set WshNetwork = CreateObject("WScript.Netw ork")
DomainString = WshNetwork.UserDomain
UserString = WshNetwork.UserName
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
'unmap all drives
WshNetwork.RemoveNetworkDr ive "m:",true,true
WshNetwork.RemoveNetworkDr ive "n:",true,true
WshNetwork.RemoveNetworkDr ive "o:",true,true
WshNetwork.RemoveNetworkDr ive "p:",true,true
WshNetwork.RemoveNetworkDr ive "q:",true,true
WshNetwork.RemoveNetworkDr ive "s:",true,true
WshNetwork.RemoveNetworkDr ive "u:",true,true
WshNetwork.RemoveNetworkDr ive "W:",true,true
WshNetwork.RemoveNetworkDr ive "z:",true,true
For Each GroupObject In UserObj.Groups
Select Case GroupObject.Name
Case "ADMIN"
WshNetwork.MapNetworkDrive "z:", "\\server\ADMIN"
Case "MANAGEMENT"
WshNetwork.MapNetworkDrive "m:", "\\server\MANAGEMENT"
Case "OFFICE"
WshNetwork.MapNetworkDrive "o:", "\\server\OFFICE"
Case "SALES"
WshNetwork.MapNetworkDrive "s:", "\\server\SALES"
Case "QUALITY"
WshNetwork.MapNetworkDrive "q:", "\\server\QUALITY"
End Select
Next
Set objNetwork = Wscript.CreateObject("WScr ipt.Networ k")
objNetwork.AddWindowsPrint erConnecti on "\\server\Brother"
objNetwork.AddWindowsPrint erConnecti on "\\server\Brother2"
objNetwork.AddWindowsPrint erConnecti on "\\server\HP"
objNetwork.AddWindowsPrint erConnecti on "\\server\Kyocera"
objNetwork.SetDefaultPrint er ("\\server\Kyocera")
WScript.Quit
On Error Resume Next
Set WshNetwork = CreateObject("WScript.Netw
DomainString = WshNetwork.UserDomain
UserString = WshNetwork.UserName
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
'unmap all drives
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
WshNetwork.RemoveNetworkDr
For Each GroupObject In UserObj.Groups
Select Case GroupObject.Name
Case "ADMIN"
WshNetwork.MapNetworkDrive
Case "MANAGEMENT"
WshNetwork.MapNetworkDrive
Case "OFFICE"
WshNetwork.MapNetworkDrive
Case "SALES"
WshNetwork.MapNetworkDrive
Case "QUALITY"
WshNetwork.MapNetworkDrive
End Select
Next
Set objNetwork = Wscript.CreateObject("WScr
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.SetDefaultPrint
WScript.Quit
I would have the logon script launch from a batch file. after calling the script with cscript, add a Pause command so the window will stay visible and you can see any output it has generated.
Additionally, I'm with SerhiyKo, if all your doing is mapping drives and printer(s) based on security groups, group preferences are a much easier option.
Additionally, I'm with SerhiyKo, if all your doing is mapping drives and printer(s) based on security groups, group preferences are a much easier option.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
We've just rolled out Windows 7 on our domain and have moved from batch and vb logon scripts, to GP drive mapping etc. It's much easier to manage and assign drives etc. based on many different criteria for the user and/or the workstation.
Lee
Lee
On a side not, I found that Windows 7 has great Group Policies for mapping drives.