I am getting the infamous 429 error with a new image of Windows 2003 Server.
I am sure this is an issue with the Windows 2003 Server image, so I have to figure out a work around to get this to work. No updates to the image are possible. I have been searching for a solution for a couple of days and nothing I have tried has worked so any assistance you can provide is most welcome.
This script works just fine on my Windows 7 machine and used to work just fine on the previous image of Windows 2003 Server I had which is no longer available:
Err.Number: 429
Err.Description: "ActiveX component can't create object"
Here is the code:
On Error Resume Next
'
Set fsoObj = CreateObject("Scripting.FileSystemObject")
'
Dim objIE
'
Err.Clear
'
Set objIE = CreateObject( "InternetExplorer.Application" )
'
If ( Err.Number <> 0 ) Then
'
WScript.Echo "Number (" & Err.Number & ")" & vbCrLf _
& "Description [" & Err.Description & "]"
WScript.Quit
'
End If
'
objIE.Navigate "about:blank"
objIE.Width = 200
objIE.Height = 300
'
Do Until objIE.ReadyState = 4
WScript.Sleep 200
Loop
'
Do While objIE.Busy
WScript.Sleep 200
Loop
'
bodyStr = javaScriptStr & "<table align='center'><tr><td align='center' colspan='2'>Click Run or Cancel</td></tr>" _
& "<tr align='center'>" & vbCrLf _
& "<td colspan='2'>" & vbCrLf _
& "<input type='submit' value=' Run ' " & "OnClick='VBScript:OK.Value=1'>" & vbCrLf _
& " " & vbCrLf _
& "<input type='submit' value=' Cancel ' " & "OnClick='VBScript:CANCEL.Value=1'>" & vbCrLf _
& "</td></tr>" & vbCrLf _
& "</table>" & vbCrLf _
& "<input type='hidden' id='CANCEL' name='CANCEL' value='0'>" & vbCrLf _
& "<input type='hidden' id='OK' name='OK' value='0'>"
'
objIE.Document.Body.InnerHTML = bodyStr
objIE.Visible = True
'
Do While ( ( objIE.Document.All.CANCEL.Value = 0 ) AND ( objIE.Document.All.OK.Value = 0 ) )
'
WScript.Sleep 200
'
If Err Then ' user clicked red X (or alt-F4) to close IE window
'
objIE.Quit
Set objIE = Nothing
logFile.WriteLine Now & " - aborting input!"
'
End if
Loop
'
objIE.Quit
'
