I have a similar problem too!
I've tried storing my logon script in two different places.
1.\\yourdomainname.com\netlogon
2.\\yourdomainname.com\SysVol\yourdomainname.com\Policies\{long random string...}\User\Logon
They didn't work. Here is my script...
**********************************************************
OPTION EXPLICIT
ON ERROR RESUME NEXT
Dim oNet, oShell, oFileSys, oShortCut, oDrives, oPrinters
Dim DesktopPath, SomePath
Dim defPrinter
Set oNet = CreateObject("Wscript.Network"

Set oShell = CreateObject("WScript.Shell"

Set oFileSys = CreateObject("Scripting.FileSystemObject"
defPrinter = "SOME_PRINTER"
Set oDrives = oNet.EnumNetworkDrives
For index = 0 to oDrives.Count -1 Step 2
If oDrives.Item(index) <> "T:" Then
oNet.RemoveNetworkDrive oDrives.Item(index)
End If
Next
oNet.MapNetworkDrive "T:", "\\SERVER\SHARE", False
Set oPrinters = oNet.EnumPrinterConnections
For index = 0 to oPrinters.Count -1 Step 2
If oPrinters.Item(index+1) <> "Adobe PDF" And _
"DYMO LabelWriter 310" And _
"DYMO LabelWriter 315" And _
defPrinter Then
oNet.RemovePrinterConnection oPrinters.Item(index+1)
End If
Next
oNet.AddWindowsPrinterConnection defPrinter
oNet.SetDefaultPrinter defPrinter
If oFileSys.FileExists(SOME_FILE) Then
CreateProgFolder SOME_PATH
CreateProgShortcut SOME_PATH & "\SOME_SHORTCUT.lnk", _
"SOME_PATH", "SOME_PATH"
CopyShortcut "SOME_PATH", "SOME_PATH" + "\*.lnk", "\SOME_SHORTCUT*.lnk"
End If
Set oShortCut = Nothing
Set oNet = Nothing
Set oShell = Nothing
Set oFileSys = Nothing
Set oDrives = Nothing
Set oPrinters = Nothing
Function CreateProgFolder(Path)
If Not (oFileSys.FolderExists(Path)) Then
oFilesys.CreateFolder(Path)
End If
End Function
Function CreateProgShortcut(ShortcutPath, TargetPath, WDirectory)
If Not (oFileSys.FileExists(oFileSys.FileExists(ShortcutPath))) Then
Set oShortCut = oShell.CreateShortcut(ShortcutPath)
oShortCut.TargetPath = TargetPath
oShortCut.WorkingDirectory = WDirectory
oShortCut.WindowStyle = 1
oShortCut.Save
End If
End Function
Function CopyShortcut(ShortcutPath, Shortcut)
If Not (oFileSys.FileExists(DesktopPath + Shortcut)) Then
oFileSys.CopyFile ShortcutPath, DesktopPath, True
End If
End Function
**********************************************************