troubleshooting Question

Windows 2003: Logon script on Sysvol

Avatar of bkebbay
bkebbayFlag for United Kingdom of Great Britain and Northern Ireland asked on
Windows XP
11 Comments1 Solution954 ViewsLast Modified:

Please can someone help me. I am struggling with this below.

I have this script on the C:\WINDOWS\SYSVOL on my Windows 2003 and 2008 Servers.

The script itself is
On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set objShell = CreateObject("WScript.Shell")

strUser = objNetwork.UserName

strStatus = strStatus

Select Case UCase(objNetwork.UserDomain)
      Case UCase("go1000")
            strHomeDir = "\\grkfs1\home\" & strUser
            objNetwork.MapNetworkDrive "H:", strHomeDir, True
            objNetwork.MapNetworkDrive "G:", "\\GRKFS1\go1000", True
            objNetwork.AddWindowsPrinterConnection "\\grkfs1\LexmarkC.2"
            objNetwork.AddWindowsPrinterConnection "\\top1\TOSHIBAe"
            objNetwork.AddWindowsPrinterConnection "\\top1\Kyocera Colour"
            objNetwork.AddWindowsPrinterConnection "\\top1\Kyocera BW"
End Select
objShell.RegWrite "HKEY_USERS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators", "2"
objShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators", "2"
Function MapDrive(strDrive, strPath, bPersistent)
      If Not objFSO.DriveExists(strDrive) Then
            objNet.MapNetworkDrive strDrive, strPath, bPersistent
      End If
End Function

Some of my client are having issues with it when I look on their computer - event logs this is what I see below.

Could not execute the following script {C:\WINDOWS\SYSVOL\sysvol\go1000.local\scripts\new g1000 script.vbs. The system cannot find the file specified.}

Also, I see this {Failed to apply changes to software installation settings.  Software changes could not be applied.  A previous log entry with details should exist.  The error was : There is no software installation data object in the Active Directory}
Mike Thomas

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Top Expert 2010

The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.

Join our community to see this answer!
Unlock 1 Answer and 11 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 11 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros