用vbs實現枚舉網絡連接的代碼

2019-10-26 18:00:03

字體：大中小

來源：轉載

供稿：網友

描述

檢索有關計算機上所有活動網絡連接的信息。

有關在這段代碼中使用的 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

上一篇：可以將Bat轉換位VBS文件的VBS腳本

下一篇：用vbscript實現從后到前閱讀一個文本文件