By: noid10t

noid10t — Wed, 12 Jul 2006 08:16:38 +0000

SBS 2003 this is the DC, Win2000 clients (will be updated to winxp next fiscal year)just 2 PCs right now until I get it working, standard TCP/IP over ethernet, Just simple domain, no forest structure, I added our OU, put in the security groups under that, and added the users making them members of the appropriate security group. Here’s a copy of the logon script I used. This is the logon script from my day job. I modified it to suit the needs of this side job. Meaning, they only have one network printer to map, and only 2 network drives. One drive everyone is allowed to see, the other one is based on the security group they belong to. Here it is….
Dim objNet, strInitial, net, FSO, strUserName, strUserDomain, ObjGroupDict, WSHNetwork, UNCpath1
Set WSHNetwork = WScript.CreateObject(“WScript.Network”)
Set FSO = CreateObject(“Scripting.FileSystemObject”)
on error resume next
Set objNet = CreateObject(“Wscript.Network”)
strUserName =objNet.UserName
strUserDomain = WSHNetwork.UserDomain
Set net = CreateObject(“WScript.Network”)
Set ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName)

Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject(“Wscript.Network”)
strComputer = objNetwork.ComputerName
Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = strComputer

If MemberOf(ObjGroupDict, “MIS Department”) Then
WSHNetwork.MapNetworkDrive “Z:”, “anchorMIS”
net.AddWindowsPrinterConnection “Waufile01MIS4200″
net.AddWindowsPrinterConnection “Waufile01AdminCpyPrt”
net.AddWindowsPrinterConnection “Waufile01AdminCpyColorPCL5c”
End If

If MemberOf(ObjGroupDict, “Marketing”) Then
WSHNetwork.MapNetworkDrive “M:”, “lambdaMarketing”
net.AddWindowsPrinterConnection “waufile01Marketing HP 9500″
End If

If MemberOf(ObjGroupDict, “Human Resources”) Then
net.AddWindowsPrinterConnection “Waufile01HR HP 7140″
End If

If MemberOf(ObjGroupDict, “Accounting”) Then
net.AddWindowsPrinterConnection “Waufile01Acct-Epson-1520″
End If

If MemberOf(ObjGroupDict, “Construction”) Then
net.AddWindowsPrinterConnection “Waufile01ConstHP4″
End If

If MemberOf(ObjGroupDict, “Cashiers”) Then
net.AddWindowsPrinterConnection “Waufile01Cashiers-LaserJet3020PCL5e”
End If

If MemberOf(ObjGroupDict, “Transportation Printer”) Then
net.AddWindowsPrinterConnection “Waufile01TransportationShop – LaserJet 1320″
End If

If MemberOf(ObjGroupDict, “Engineering Printers”) Then
net.AddWindowsPrinterConnection “Waufile01Engineering Color LJ 8500″
net.AddWindowsPrinterConnection “Waufile01Engineering HP DesignJet 1055CM”
net.AddWindowsPrinterConnection “Waufile01EngPlotter-HPDJ4000ps-LineDrawings”
net.AddWindowsPrinterConnection “Waufile01EngPlotter-HPDJ4000ps-Images-Photos”
End If

WSHNetwork.MapNetworkDrive “U:”, “Waufile01Users” & strUserName
WSHNetwork.MapNetworkDrive “P:”, “Waufile01Departments”
WSHNetwork.MapNetworkDrive “S:”, “anchorSoftware Installs”
net.AddWindowsPrinterConnection “Waufile01Manatee – LaserJet Printer”
net.AddWindowsPrinterConnection “Waufile01MemberServices – LaserJet 1320″
net.AddWindowsPrinterConnection “Waufile01Dispatch – LaserJet Printer”
net.AddWindowsPrinterConnection “Waufile01ILE LaserJet Printer”

WSCript.Quit

Function MemberOf(ObjDict, strKey)
MemberOf = CBool(ObjGroupDict.Exists(strKey))
End Function

Function CreateMemberOfObject(strDomain, strUserName)
Dim objUser, objGroup
Set CreateMemberOfObject = CreateObject(“Scripting.Dictionary”)
CreateMemberOfObject.CompareMode = vbTextCompare
Set objUser = GetObject(“WinNT://”&strDomain&”/”&strUserName&”,user”)
For Each objGroup In objUser.Groups
CreateMemberOfObject.Add objGroup.Name, “-”
Next
Set objUser = Nothing
End Function

Thanks,
Mike

Comments on: Group Policy and Logon Script troubles

By: noid10t