Noid10t Jul 12, 2006   8:16 AM GMT

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

0 pointsBadges: