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}
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.