用vbs实现枚举网络连接的代码

所属分类: 脚本专栏 / vbs 阅读数: 1826
收藏 0 赞 0 分享

描述

检索有关计算机上所有活动网络连接的信息。

有关在这段代码中使用的 Win32_NetworkConnection 类别的更多信息,请单击 此处

支持平台

Windows Server 2003

Windows XP

Windows 2000

Windows NT 4.0

Yes, with WMI installed


脚本代码
复制代码 代码如下:

On Error Resume Next 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection") 
For Each objItem in colItems 
    Wscript.Echo "Access Mask: " & objItem.AccessMask 
    Wscript.Echo "Caption: " & objItem.Caption 
    Wscript.Echo "Connection State: " & objItem.ConnectionState 
    Wscript.Echo "Connection Type: " & objItem.ConnectionType 
    Wscript.Echo "Description: " & objItem.Description 
    Wscript.Echo "Display Type: " & objItem.DisplayType 
    Wscript.Echo "Local Name: " & objItem.LocalName 
    Wscript.Echo "Name: " & objItem.Name 
    Wscript.Echo "Persistent: " & objItem.Persistent 
    Wscript.Echo "Provider Name: " & objItem.ProviderName 
    Wscript.Echo "Remote Name: " & objItem.RemoteName 
    Wscript.Echo "Remote Path: " & objItem.RemotePath 
    Wscript.Echo "Resource Type: " & objItem.ResourceType 
    Wscript.Echo "User Name: " & objItem.UserName 
    Wscript.Echo 
Next 
更多精彩内容其他人还在看

VBS教程:函数-LCase 函数

VBS教程:函数-LCase 函数
收藏 0 赞 0 分享

VBS教程:函数-LBound 函数

VBS教程:函数-LBound 函数
收藏 0 赞 0 分享

VBS教程:函数-Join 函数

返回一个字符串,此字符串由包含在数组中的许多子字符串联接创建
收藏 0 赞 0 分享

VBS教程:函数-IsObject 函数

VBS教程:函数-IsObject 函数
收藏 0 赞 0 分享

VBS教程:函数-IsNumeric 函数

VBS教程:函数-IsNumeric 函数
收藏 0 赞 0 分享

VBS教程:函数-IsNull 函数

VBS教程:函数-IsNull 函数
收藏 0 赞 0 分享

VBS教程:函数-IsEmpty 函数

VBS教程:函数-IsEmpty 函数
收藏 0 赞 0 分享

VBS教程:函数-IsDate 函数

VBS教程:函数-IsDate 函数
收藏 0 赞 0 分享

VBS教程:函数-IsArray 函数

VBS教程:函数-IsArray 函数
收藏 0 赞 0 分享

VBS教程:函数-Int、Fix 函数

VBS教程:函数-Int、Fix 函数
收藏 0 赞 0 分享
查看更多