trytofixalot
Technical User
The following VBS works on various platforms, but i'm struggling to determine why its failing on a subset .. I have a feeling it may have something to do with a version of MSXML or could it be that native XMLHTTP support is disabled ?
Is there a better to pull this information ??
Any help appreciated.
option explicit
Dim xmlhttp
Dim objFSO
Dim objFile
set xmlhttp = createobject("msxml2.xmlhttp.3.0")
'Request the page
xmlhttp.open "get", " false
xmlhttp.send
'Create a text file
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.createtextfile("scansafe.txt")
'Output the response
objFile.write(xmlhttp.responseText)
'Close the file
objFile.close
'Remove object references
set objFile = nothing
set objFSO = nothing
set xmlhttp = nothing
Is there a better to pull this information ??
Any help appreciated.
option explicit
Dim xmlhttp
Dim objFSO
Dim objFile
set xmlhttp = createobject("msxml2.xmlhttp.3.0")
'Request the page
xmlhttp.open "get", " false
xmlhttp.send
'Create a text file
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.createtextfile("scansafe.txt")
'Output the response
objFile.write(xmlhttp.responseText)
'Close the file
objFile.close
'Remove object references
set objFile = nothing
set objFSO = nothing
set xmlhttp = nothing
