寫這東東主要是在木馬的cmdshell中用，探測(cè)目標(biāo)ip的常用端口是否開(kāi)放。像用nc在shell中返回信息不方便，其它掃描軟件什么的tcp syn之類的掃描怕動(dòng)靜太大

代碼如下:

On Error Resume Next

if (lcase(right(wscript.fullname,11))="wscript.exe") then

wscript.echo "Execute it under the cmd.exe Plz! Thx."

wscript.quit

end If

if Wscript.Arguments.count=0 Then

usage()

wscript.quit

End If

Set Arg=Wscript.Arguments

Sport= Split(arg(1),",")

For i=0 To UBound(Split(arg(1),","))

wsh.echo "scan "&Sport(i)&" ing……"

Set x=CreateObject("msxml2.serverXMLHTTP")

x.open "post","http://"&arg(0)&":"&Sport(i)

x.send("hello")

wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description

if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then

wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN"

End if

next

function usage()

wscript.echo "| 注意查看ERr.Description來(lái)判斷端口開(kāi)放，自動(dòng)探測(cè)不一定準(zhǔn)確 |"

wscript.echo "| |"

wscript.echo "|Useage: |"

wscript.echo "| cscript.exe this.vbs ip port |"

wscript.echo "|ex: |"

wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |"

wscript.echo "+-------------------------------------------------------------------+"&chr(10)

end function