RSS订阅优然探索
你的位置:首页 » 学习收藏 » 正文

vbs 检测网络信息

选择字号: 超大 标准 发布时间:2008-10-25 14:38:32 | 作者:admin | 0个评论 | 人浏览

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  

猜你喜欢

发表评论

必填

选填

选填

必填,不填不让过哦,嘻嘻。

记住我,下次回复时不用重新输入个人信息

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。