Vista+Logon Script = Broke

T

TechieSooner

Supreme [H]ardness
Joined
Nov 7, 2007
Messages
7,601
Code: 
'MAP THE PRINTERS
Set objNetwork = CreateObject("WScript.Network") 
Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2
strUNCPrinter1 = "\\server\prt1"
strUNCPrinter2 = "\\server\prt2"
Set objNetwork = CreateObject("WScript.Network") 
objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2

'SET DEFAULT PRINTER BASED ON GROUP MEMBERSHIP
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf
    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN
    Select Case strGroupName
        Case "Prt1 Users"
            objNetwork.SetDefaultPrinter "\\server\SHARPMX6200N" 
        Case "Prt2 Users" 
            objNetwork.SetDefaultPrinter "\\server\SHARPAR-M455N"
    End Select
Next

'MAP THE DRIVES
Set objNetwork = CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "R:" , "\\server\CSR"
objNetwork.MapNetworkDrive "W:" , "\\server\Sales"
objNetwork.MapNetworkDrive "X:" , "\\server\Shared"

Any reason why?
On Vista, it says line 8 character 1... Data invalid?

Works fine with XP.
 
line 8 (minus the commented text) is the space, must be some hidden character in there somewhere...
 
p3n said:
line 8 (minus the commented text) is the space, must be some hidden character in there somewhere...
Click to expand...

Are you talking about On Error Resume Next?????

Edit- Had a thought- ran it once booted up and it mapped everything fine... ??
 
Did you try running it as administrator ? It could be a split token issue.
 
You must log in or register to reply here.
Back
Top