Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

Troubleshooting
Research
Professional Opinions
Ask a Question
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

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:
Hi,

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"
'#########################3
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.

ERROR
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}
ASKER CERTIFIED SOLUTION
Avatar of Mike Thomas
Commented:
This problem has been solved!
Unlock 1 Answer and 11 Comments.
See Answers