'author:DM_ ,dm_mystery@163.com
'date:2012,1,23
Dim url,arg,fso
Set arg = WScript.Arguments
Set fso = CreateObject("scripting.filesystemobject")
url = "http://"+arg.Item(0)
Set file = fso.GetFile ("url.txt")
Set f = file.OpenAsTextStream (1,-2)
Do
s=f.ReadLine
WScript.Echo (url+s)
status (url+s)
Loop Until f.atendofline
''''''''''''''function_area'''''''''''''''
Function status(url)
Set xml = CreateObject("msxml2.xmlhttp")
xml.open "get",url,False
xml.send()
WScript.Echo xml.statusText
End Function
复制代码