Dim isOccupied, port
isOccupied = 0
Do
port = InputBox("输入要检查的端口")
If IsEmpty(port) Then 'Cancel button is clicked
WScript.Quit
ElseIf Len(port) = 0 Then
MsgBox "No input!", vbExclamation + vbSystemModal
ElseIf Not IsNumeric(port) Then
MsgBox "Must input a port number!", vbExclamation + vbSystemModal
Else
Exit Do
End If
Loop
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("netstat -an")
Set oStdOut = oExec.StdOut
Do Until oStdOut.AtEndOfStream
strLine = oStdOut.ReadLine
WScript.echo strLine
If InStr(strLine, ":" & port) > 0 And InStrRev(strLine, "LISTENING") > 0 Then
isOccupied = 1
Exit Do
End If
Loop
If isOccupied Then
MsgBox "端口 " & port & "已经被占用", vbExclamation + vbSystemModal, "Busy"
Else
MsgBox "端口 " & port & " 未被占用", vbInformation + vbSystemModal, "Idle"
End If
还有一种 写法, 这种需要计算机上注册mswinsck.ocs 控件,大多数的计算机并没有这个控件,因此下面的这个方法不具有通用性
'' check the port status from specified server
'' server : host name or ip address
'' port : port number
Function getPortStatus(server,port)
Set SockObject=CreateObject("MSWinsock.Winsock.1")
SockObject.Protocol=0 ' TCP
SockObject.Connect server,port
Wscript.Sleep 50
If(action = 6) then
getPortStatus = "Invalid"
ElseIf(SockObject.State = 7) then
getPortStatus = "Open"
ElseIf(SockObject.State = 9)then
getPortStatus = "Error"
ElseIf(SockObject.State = 0)then 'Closed
getPortStatus = "Refused"
Else
getPortStatus = "Error"
end If
SockObject.Close
End Function