20CN网络安全小组论坛 - 菜鸟乐园 - 使用iget.vbs遇到点不知道的错误！

论坛: 菜鸟乐园标题: 使用iget.vbs遇到点不知道的错误！

作者: guzhu [guzhu]

论坛用户

Microsoft(R) Windows 98
(C)Copyright Microsoft Corp 1981-1999.

C:\WINDOWS\Desktop>C:\WINDOWS\DESKTOP\IGET.VBS http://www.20cn.net/cgi-bin/downl
oad/down.cgi?down=http://www.20cn.net/download/IGMP.zip
Bad command or file name

C:\WINDOWS\Desktop>cscript C:\WINDOWS\DESKTOP\IGET.VBS http://www.20cn.net/cgi-b
in/download/down.cgi?down=http://www.20cn.net/download/IGMP.zip
Microsoft (R) Windows Scripting Host Version 5.0 for Windows
Copyright (C) Microsoft Corporation 1996-1997. All rights reserved.

Not enough parameters.

C:\WINDOWS\Desktop>

iget.vbs的源码：
On Error Resume Next
set outstreem=wscript.stdout
Dim iRemote,iLocal
If (LCase(Right(WScript.Fullname,11))="wscript.exe") Then
WScript.Quit
End If

If WScript.Arguments.Count < 2 Then
WScript.Echo "Not enough parameters."
WScript.Quit
Else
iLocal = LCase(WScript.Arguments(1))
iRemote = LCase(WScript.Arguments(0))
If LCase(Left(iRemote,7)) <> "http://" Then
WScript.Echo "Remote URL Error."
WScript.Quit
End If
WScript.Echo string(79,"*")
WScript.Echo "iGet.vbs by lilo (小骗子) from http://www.isgrey.com"
outstreem.write "ADODB 的版本 is ...."
Function ObjTest(strObj)
On Error Resume Next
IsObj=False
VerObj=""
Dim TestObj
Set TestObj=CreateObject (strObj)
If -2147221005 <> Err Then
IsObj = True
VerObj = TestObj.Version
If VerObj="" Or IsNull(VerObj) Then VerObj=TestObj.About
End If
ObjTest=VerObj
End Function
WScript.Echo ObjTest("adodb.connection")
Call DownLoad()
End If

Function DownLoad()
outstreem.write "Download the "&iRemote&" ...."
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile iLocal,2
if errornumber<>0 then
wscript.echo "Error!"
else
wscript.echo "OK!"
end if
End Function

希望知道是怎么回事的朋友说一下！

地主发表时间: 04-03-12 14:48

回复: newmyth21 [newmyth21]

论坛用户

B1层发表时间: 04-03-13 15:29

回复: guzhu [guzhu]

论坛用户

ding

B2层发表时间: 04-03-20 13:22

回复: guzhu [guzhu]

论坛用户

顶~

B3层发表时间: 04-03-26 20:26

论坛: 菜鸟乐园