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

描述

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

有关在这段代码中使用的 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 

时间: 2024-07-29 03:04:36

用vbs实现枚举网络连接的代码_vbs的相关文章

Win7网络连接出错代码629怎么办

  Win7网络连接出错代码629的解决方法. 方法如下: 1.检查用户名和密码:如果你的用户名和密码输入错误的话,很可能会引起629错误,我们可以重新输入用户名和密码,输入的时候看你的大写键是否开启了导致输入用户名出错,输入完成之后双击用户名,看看有没有多出空格. 2.更换线路:连接网络的线路老化或者水晶头故障都有可能导致我们连接网络失败,出现629错误,此时我们只要更换老化的线路或者是故障的水晶头之后即可解决问题,此故障原因不好判断,如果其他方法不能解决问题再来考虑是否是线路问题. 3.更换

vbs后台运行bat删除自身的代码_vbs

知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(

vbs中将GB2312转Unicode的代码_vbs

今天写了一个类似于下面的程序: 复制代码 代码如下: Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码,看了一下发现新浪的编码竟然是gb2312的,汗,现在都是utf-8编码的时代了.res

vbs定时发送邮件的方法与代码_vbs

'用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件.  '代码如下:  下载地址 http://www.51tiao.com/info.vbs 复制代码 代码如下: Dim connstr,conn  Dim sql,rs,msg  Sub OpenDB()      ConnStr = "DSN=51tiao.Com;UID=sa;PWD=;"      If Not IsObject(Conn) Then          Set conn = Cre

利用vbs类实现css按钮的代码_vbs

复制代码 代码如下: <%  rem 文章标题: 利用vbs类实现css按钮  rem 作者:yanek  rem 联系:aspboy@263.net  Class CssButton    Public Name    Public BackColor    Public BorderColor    Public Font    Public FontColor    Public Width    Public Text    Public Url    Public MouseOverC

用VBS获取Unix时间戳的函数代码_vbs

VBS中没有类似C标准库中的time函数,怎么获取Unix时间戳呢?乍一看很简单: 复制代码 代码如下: Function UnixTime() UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now()) End Function 一个很想当然的方法,仅仅注意到了"1970年1月1日0时0分0秒",而忽略了"协调世界时". 协调世界时,又称世界标准时间或世界协调时间,简称UTC

vbs复制文件夹的实现代码_vbs

需要实现一个复制文件夹的功能,网上找到相关代码,并做了改进,vbs脚本如下 复制代码 代码如下: Dim fso, CopyCountSet fso = CreateObject("Scripting.FileSystemObject") CopyCount = CopyCount + XCopy(fso, ".\1", ".\2", True)MsgBox "拷贝了" & CopyCount & "

用vbs分割与合并文本文件的代码_vbs

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢,所以有必要把它分割了:(在这个txt文件中,一个地址占一行) url_split.vbs文件内容: 复制代码 代码如下: Set fs =CreateObject("scripting.filesystemobject") Set gs =CreateObject("scripting.filesystemobject") Set f=fs.opentextfile("url.txt",

VBS调用Windows API函数的代码_vbs

那天无意中搜索到一篇<WinCC VBS利用EXCEL调用Windows API函数>的文章,不知道WinCC是什么,Google了一下好像跟西门子自动化有关.WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路--EXCEL VBA,一种传说比VB还要VB的语言. 但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存在一个EXCEL文件.我就想,能不能在VBS中通过excel.application对象创建一个包含VBA代码的EXCE