Mini Port Scanner

Find out which ports are opened

Option Explicit

If WScript.Arguments.Count<>1 Then
	Wscript.Echo "Param : RemoteHostIP"
	WScript.Quit
End If

Dim K,P
If right(Ucase(WScript.FullName),11)="WSCRIPT.EXE" Then
	Set K=CreateObject("WScript.Shell")
	K.Run K.ExpandEnvironmentStrings("%COMSPEC%") & " /C cscript.exe """ & WScript.ScriptFullName & """ " & WScript.Arguments(0),1,False
	Set K=Nothing
	WScript.Quit
End If

Set K=I()

L "PortScanner running on " & K.LocalHostName & " (" & K.LocalIP & ")"

K.RemoteHost=WScript.Arguments(0)
For P=1 To 3000
	K.RemotePort=P
	K.Connect
	While K.State<>0
		wscript.sleep 90
	Wend
Next
L "End"

Function I()
	On Error Resume Next
	Err.Number=0
	Set I=WScript.CreateObject("MSWinsock.Winsock","s_")
	Select Case Err.Number
	Case 0
	case &H80040112
		L "No licence found. Install Visual Studio"
	case &H80020009
		L "ActiveX Winsock not registered - use regsvr32"
	Case else
		L "Error " & Err.Number & " - &H" & Hex(Err.Number) & " - " & Err.Description
	End Select
End Function

Sub L(S):WScript.Echo S:End Sub

Sub s_Connect
	K.Close
	L "Port " & P & " Open !"
End Sub
Sub s_Error(ByVal N,D,c,S,F,H,A)
	K.Close
	If N=10061 Then
		WScript.StdOut.Write "."
	Else
		L P & ":" & N & " " & D
	End If
End Sub