用vbs實(shí)現(xiàn)枚舉網(wǎng)絡(luò)連接的代碼

2020-06-26 18:09:40

字體：大中小

供稿：網(wǎng)友

描述

檢索有關(guān)計(jì)算機(jī)上所有活動(dòng)網(wǎng)絡(luò)連接的信息。

有關(guān)在這段代碼中使用的 Win32_NetworkConnection 類(lèi)別的更多信息，請(qǐng)單擊此處。

支持平臺(tái)

Windows Server 2003	是
Windows XP	是
Windows 2000	是
Windows NT 4.0	Yes, with WMI installed

腳本代碼

復(fù)制代碼代碼如下:

	
	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 