WMI: сканер портов

'*****************************************************************************************
'* Name:				PortScaner
'* Language:			VBScript
'* CommandLine:			PortScaner.vbs [[host[=localhost]] portStart[=7] portEnd]
'* Description:			Сканер открытых TCP-портов и диапазонов портов.
'************************************************************************************
'* CopyLeft: 		Аскет, 19 spt 2011
'*************************************************************************************

SELECT CASE wsh.arguments.count
	CASE 0: WSH.ECHO "USAGE:" & VBCR & "PortScaner.vbs [host] port"
			WSH.ECHO "USAGE:" & VBCR & "PortScaner.vbs [host] portStart portEnd"
			WSH.Quit
	CASE 1: 
		host="localhost"
		port=WSH.ARGUMENTS(0)
	CASE 2: 
		host=WSH.ARGUMENTS(0)
		port=WSH.ARGUMENTS(1)
	CASE 3: 
        PoprtRange = (WSH.ARGUMENTS(2) - WSH.ARGUMENTS(1))
		REDIM port(PoprtRange)
		host  = WSH.ARGUMENTS(0)
		j=0
		FOR i = WSH.ARGUMENTS(1) TO WSH.ARGUMENTS(2)
			port(j)=i
			j=j+1
		NEXT
		
END SELECT	

set wmi = GetObject ("winmgmts:NetDiagnostics").instances_
if NOT IsArray(port) THEN 
	FOR EACH net IN wmi
			res = net.ConnectToPort ( host ,port)
			if (res) THEN wscript.echo  (host &": "& port)
		next
 else
	FOR EACH net IN wmi
		for each p in port
			res = net.ConnectToPort (host ,p)
			IF (res) THEN wscript.echo  (host &": "& p)
		next
	NEXT
end if