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
分享到:
相关推荐
mysql_system_status.vbs
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs ...
亲测可用! 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh....
VBS加密器VBS加密器VBS加密器VBS加密器VBS加密器
vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程...
4. **错误处理**:为了确保程序的健壮性,VBS脚本可能包含了错误处理代码,例如`On Error Resume Next`和`On Error GoTo 0`,以便在发生错误时继续执行或跳转到错误处理部分。 5. **用户界面**:虽然VBS本身没有...
拖拽的方法 把exe转成vbs
用户可以使用注册表编辑器(Regedit)查找并修复相关键值,例如HKEY_CLASSES_ROOT\.vbs和HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ScriptHost。 3. **安全软件阻止**:某些安全软件可能会...
`On Error`语句用于启用或禁用错误处理,`Err`对象记录错误信息,`Resume`、`Resume Next`和`Exit Sub/Function`控制错误后的流程。 8. **对象和集合** VBScript支持对对象的操作,如浏览器对象模型(BHO)、...
5. **属性设置**:例如,`LocalPort`可以设置本地端口,`RemoteHost`和`RemotePort`用于指定远程服务器的地址和端口。 6. **错误处理**:`Error`属性可以检查和处理网络通信过程中出现的错误。 在实际应用中,VBS...
打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs
VBS,全称为Visual Basic Script,是Microsoft开发的一种脚本语言,主要应用于Windows环境。它基于Visual Basic编程语言,但不需编译即可执行,因此更适用于网页、服务器端脚本以及自动化任务等领域。VBS的语法简洁...
请假条.vbs
我个人喜欢研究cmd,后面无意中接触到vbs,就思考cmd能运行vbs么?---答案是可以的。经过研究发现,cmd可以执行vbs,但是还是需要生成vbs文件,执行完成后删除vbs文件
VBS脚本加密工具
VBS(Visual Basic Scripting Edition)是微软推出的一种脚本语言,主要应用于Windows系统中,尤其在批处理、网页交互和自动化任务中有着广泛的应用。它基于VB(Visual Basic)语法,但不需要编译,可以直接执行,...
WinCC 是 Siemens 公司推出的-human-machine-interface(HMI)软件,用于 industrial automation 领域。WinCC 提供了强大的脚本编程功能,允许用户使用 VBS(Visual Basic Script)脚本语言来实现复杂的自动化任务。...
VBS发送邮件
错误处理是任何编程语言不可或缺的部分,VBS中的`On Error`语句可以设置错误处理策略,`Err`对象则用于获取错误信息。良好的错误处理能提高脚本的稳定性和可维护性。 此外,VBS还常用于系统维护和自动化任务,比如...