I have a few workstations that can't run a network script for mapping network drives etc. I know the script works as it's working for everyone else.
But on 1 or 2 machines (out of 1000) the script won't run at all. I get an error "VBScript runtime error, error ID 800A046.
The script itself is fine, I'm pretty certain of that. Any ideas?
Also have tried as an admin account.
From line 501
.Open
.Write "<span id='theEnd'></span>"
.Close
Set oTheEnd = .all.theEnd
.Title = sTitle
With .ParentWindow.document.body
.style.backgroundcolor = "LightBlue"
.style.Font = "10pt 'Arial'"
'.style.borderStyle = "outset"
'.style.borderWidth = "4px"
' .scroll="no"
End With
oIE.Visible = True
End With ' document
End With ' oIE
End Sub
Also worth noting this:
'main
Function main()
On Error Resume Next
'Map "<group>" , "<drive>:" , "\\server\<share>"
Map "DummyGroupName" , "R:" , "\\Servername\Sharename"
Log File
' Create logfile
If appendlogfile=True Then WriteFlag = 8 Else WriteFlag = 2 End If
sSystemdrive = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
Set logfile = oFSO.OpenTextFile (sSystemdrive & "\logon.log", WriteFlag, True)
logfile.Writeline "............................"