Home > IT Answers > DataCenter > Group Policy and Logon Script troubles
Noid10t
0 pts.
 Group Policy and Logon Script troubles
DataCenter, Desktops, Management, Microsoft Windows, OS, Security, Servers, SQL Server
I am trying to get folder redirection to work for user's My Documents folder through group policy. So far, this does not work as advertised. I've followed the procedures as outlined by Microsoft, and have checked numerous other articles regarding this. Has anyone out there got this working on their network? If so, can you give me the step by step or point me to the source that you used. I am also having problems getting the logon script to map the drives and printers as advertised. Any help would be greatly appreciated. Thank you.

Software/Hardware used:
ASKED: July 10, 2006  2:59 PM
UPDATED: July 12, 2006  8:16 AM
RELATED QUESTIONS
Answer Wiki:
Can you supply more information such as what NOS, what client OS, Domain and Site structure, Physical network? Also can you please post a copy of your logon script. A little more information will go a long way. There's a good section on folder redirection in Microsoft's 2003 MCSAMCSE upgrade book dealing with GPO administration. This is a pretty good article article @ http://technet2.microsoft.com/WindowsServer/en/Library/444622e9-24a6-408c-82ac-e4eeb945fe651033.mspx?mfr=true and pay special attention to the default security rights for your directories @ http://technet2.microsoft.com/WindowsServer/en/Library/444622e9-24a6-408c-82ac-e4eeb945fe651033.mspx?mfr=true Good Luck, Jeff
Last Wiki Answer Submitted:  July 11, 2006  7:40 pm  by  DigitalNomad   0 pts.
All Answer Wiki Contributors:  DigitalNomad   0 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

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

Noid10t
 0 pts.