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 "............................"