let's go

原文地址：获取域内计算机硬件信息的VBS脚本内容作者：kevinOn Error Resume Nexttemp=0set wshshell=wscript.createobject("wscript.shell")wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,Truewshshell.run ("%comsp

'方法1Sub Auto_Open()On Error Resume Next    Set fs = CreateObject("Scripting.FileSystemObject")    StrDrive = "B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"    StrDriveArray = Split(StrD

原文地址：VBS数组深入浅出作者：qingqingVBS数组在应用中没有像其他语句那么广泛，VBS数组存在不少功能上的局限性（如二维数组的定义、赋值），在使用上也没有java等语言那么便捷。下面来具体讲解下几个数组函数的使用方式：     Array 函数     返回包含数组的 Variant。     Array(arglist)     argli

1. API之网络函数WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接WNetCancelConnection2 结束一个网络连接WNetCloseEnum 结束一次枚举操作

adodb.stream概述　　Stream 对象 表示二进制数据或文本的流。说明　　在诸如文件系统或电子邮件系统这样的树状分级结构中，Record 可能有一个与之相关联的位的默认二进制流，其中包含文件或电子邮件的内容。Stream 对象可用于对包含这些数据流的字段或记录进行操作。可以通过下列方式获取 Stream 对象：　　通过指向包含二进制或文本数据

WshShell 对象ProgID Wscript.Shell 文件名 WSHom.Ocx CLSID F935DC22-1CF0-11d0-ADB9-00C04FD58A0B IID F935DC21-1CF0-11d0-ADB9-00C04FD58A0B 下表说明和 WshShell 对象有关的属性。属性 说明 Environment 返回 WshE

原文地址：VBS之Microsoft.XMLHTTP对象作者：BrolyMSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。创建XMLHTTP对象的语句如下：Set objXML = CreateObject("Msxml2.XMLHTTP") 或Set objXML = CreateObject(“Microsof

'VBS获取天气预报 @CODE BY Broly'我的博客：http://blog.sina.com.cn/brolyblog'部分代码参考网络Dim re,colMaDim url,txturl="http://weather.news.qq.com/inc/07_dc292.htm"txt=getHTTPPage(url)Set re=New RegExpre

原文地址：使用vbs发送邮件（使用的是126的smtp服务器地址）作者：窗前的风景1 Call send_mail("hello1194@126.com","a123456","hello1194@126.com","","qa全体sb","sb all","c:img.jpg")function Send_mail(You_Account,You_Password

Set WshShell = WScript.CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop") '特殊文件夹“桌面”'Rem 在桌面创建一个记事本快捷方式set oShellLink = WshShell.CreateShortcut(strDesktop & "\Internet 

'获取本机 IP地址Function GetLocalIP(ComputerName)Dim objWMIService,colItems,objItem,objAddressSet objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")Set colItems = objWMIServ

Dim strComputer : strComputer = "."Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")Set colOperatingSystems = objWMIService.ExecQuery

'//VBS利用XMLHTTP组件写成类 @CODE BY Broly'//声明：代码仅作学习研究之用。使用前请三思而行，产生不良后果均与本人无关！Class GetPage  Private mstrUrl,xmlHttp,objstream  Public Property Let Url(strUrl)    mstrUrl=strUrl  End Property

'获取DTLService.exe进程信息Set colProcessList = objWMIService.ExecQuery("SELECT * FROM WIN32_PROCESS WHERE NAME='DTLService.exe'")For Each objProcess In colProcessList    wscript.each objProcess.P

Option Explicit'切换默认操作系统（XP系统除外）Sub RunScript    Dim WshNetwork, fso, WshShell    Set WshNetwork = CreateObject("WScript.Network")    Set fso = CreateObject("Scripting.FileSystemObject")