VBS脚本常用经典代码收集.docx

VBS脚本常用经典代码收集.docx

《VBS脚本常用经典代码收集.docx》由会员分享，可在线阅读，更多相关《VBS脚本常用经典代码收集.docx（15页珍藏版）》请在冰豆网上搜索。

VBS脚本常用经典代码收集

VBS脚本常用经典代码收集

在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS脚本用途很多：

1.计算

2.处理文件和文件夹

3.管理Windows

4.处理Word,Excel,PowerPoint等Office文档

5.嵌入网页，驱动dHTML

6.编写HTTP通信

7.调用系统功能（COM组件），比如说语音说话

8.分析HTML,XML

9.调用命令行并分析返回结果

10.处理图片

11.自动化按键

12.调用WindowsMediaPlayer并管理

13.调用WindowsLiveMessenger并管理

14.服务端技术：

ActiveServerPage（ASP）

15.脚本病毒

16.处理数据库

下面是我收集的VBS代码，大部分转自gangzi.org，以后还会更新。

VBS获取系统安装路径

先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。

setWshShell=WScript.CreateObject（"WScript.Shell"）strWinDir=WshShell.ExpandEnvironmentStrings（"%WinDir%"）

VBS获取C:

\ProgramFiles路径

msgboxCreateObject（"WScript.Shell"）.ExpandEnvironmentStrings（"%ProgramFiles%"）

VBS获取C:

\ProgramFiles\CommonFiles路径

msgboxCreateObject（"WScript.Shell"）.ExpandEnvironmentStrings（"%CommonProgramFiles%"）

给桌面添加网址快捷方式

setgangzi=WScript.CreateObject（"WScript.Shell"）strDesktop=gangzi.SpecialFolders（"Desktop"）setoShellLink=gangzi.CreateShortcut（strDesktop&"\InternetExplorer.lnk"）oShellLink.TargetPath="http:

//www.fendou.info"oShellLink.Description="InternetExplorer"oShellLink.IconLocation="%ProgramFiles%\InternetExplorer\iexplore.exe,0"oShellLink.Save

给收藏夹添加网址

ConstADMINISTRATIVE_TOOLS=6SetobjShell=CreateObject（"Shell.Application"）SetobjFolder=objShell.Namespace（ADMINISTRATIVE_TOOLS）SetobjFolderItem=objFolder.SelfSetobjShell=WScript.CreateObject（"WScript.Shell"）strDesktopFld=objFolderItem.PathSetobjURLShortcut=objShell.CreateShortcut（strDesktopFld&"\奋斗Blog.url"）objURLShortcut.TargetPath="http:

//www.fendou.info/"objURLShortcut.Save

删除指定目录指定后缀文件

OnErrorResumeNextSetfso=CreateObject（"Scripting.FileSystemObject"）fso.DeleteFile"C:

\*.vbs",TrueSetfso=Nothing

VBS改主页

SetoShell=CreateObject（"WScript.Shell"）oShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage","http:

//www.fendou.info"

VBS加启动项

SetoShell=CreateObject（"Wscript.Shell"）oShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

VBS复制自己

setcopy1=createobject（"scripting.filesystemobject"）copy1.getfile（wscript.scriptfullname）.copy（"c:

\huan.vbs"）

复制自己到C盘的huan.vbs（复制本vbs目录下的game.exe文件到c盘的gangzi.exe）

setcopy1=createobject（"scripting.filesystemobject"）copy1.getfile（"game.exe"）.copy（"c:

\gangzi.exe"）

VBS获取系统临时目录

DimfsoSetfso=CreateObject（"Scripting.FileSystemObject"）DimtempfolderConstTemporaryFolder=2Settempfolder=fso.GetSpecialFolder（TemporaryFolder）Wscript.Echotempfolder

就算代码出错依然继续执行

OnErrorResumeNext

VBS打开网址

SetobjShell=CreateObject（"Wscript.Shell"）objShell.Run（"http:

//www.fendou.info/"）

VBS发送邮件

NameSpace="Email=CreateObject（"CDO.Message"）Email.From="发件@"Email.To="收件@"Email.Subject="Testsendmail.vbs"Email.Textbody="OK!

"Email.AddAttachment"C:

\1.txt"WithEmail.Configuration.Fields.Item（NameSpace&"sendusing"）=2.Item（NameSpace&"smtpserver"）="smtp.邮件服务器.com".Item（NameSpace&"smtpserverport"）=25.Item（NameSpace&"smtpauthenticate"）=1.Item（NameSpace&"sendusername"）="发件人用户名".Item（NameSpace&"sendpassword"）="发件人密码".UpdateEndWithEmail.Send

VBS结束进程

strComputer="."SetobjWMIService=GetObject_（"winmgmts:

\\"&strComputer&"\root\cimv2"）SetcolProcessList=objWMIService.ExecQuery_（"Select*fromWin32_ProcessWhereName='Rar.exe'"）ForEachobjProcessincolProcessListobjProcess.Terminate（）Next

VBS隐藏打开网址（部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用）

createObject（"wscript.shell"）.run"iexplorehttp:

//www.fendou.info/",0

兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了ProgramFiles路径，应该比上面的方法好，但是两种方法都不是绝对的。

Setobjws=WScript.CreateObject（"wscript.shell"）objws.Run"""C:

\ProgramFiles\InternetExplorer\iexplore.exe""",vbhide

VBS遍历硬盘删除指定文件名

OnErrorResumeNextDimfPathstrComputer="."SetobjWMIService=GetObject_（"winmgmts:

\\"&strComputer&"\root\cimv2"）SetcolProcessList=objWMIService.ExecQuery_（"Select*fromWin32_ProcessWhereName='gangzi.exe'"）ForEachobjProcessincolProcessListobjProcess.Terminate（）NextSetobjWMIService=GetObject（"winmgmts:

"_&"{impersonationLevel=impersonate}!

\\"&strComputer&"\root\cimv2"）SetcolDirs=objWMIService._ExecQuery（"Select*fromWin32_DirectorywherenameLIKE'%c:

%'ornameLIKE'%d:

%'ornameLIKE'%e:

%'ornameLIKE'%f:

%'ornameLIKE'%g:

%'ornameLIKE'%h:

%'ornameLIKE'%i:

%'"）SetobjFSO=CreateObject（"Scripting.FileSystemObject"）ForEachobjDirincolDirsfPath=objDir.Name&"\gangzi.exe"objFSO.DeleteFile（fPath）,TrueNext

VBS获取网卡MAC地址

Dimmc,moSetmc=GetObject（"Winmgmts:

"）.InstancesOf（"Win32_NetworkAdapterConfiguration"）ForEachmoInmcIfmo.IPEnabled=TrueThenMsgBox"本机网卡MAC地址是:

"&mo.MacAddressExitForEndIfNext

VBS获取本机注册表主页地址

Setreg=WScript.CreateObject（"WScript.Shell"）startpage=reg.RegRead（"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage"）MsgBoxstartpage

VBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话

OnErrorResumeNextSetfso=CreateObject（"Scripting.FileSystemObject"）Co=VbCrLf&"路过。

。

。

"ForEachiInfso.DrivesIfi.DriveType=2ThenGFfso.GetFolder（i&"\"）EndIfNextSubGF（fol）WhfolDimiForEachiInfol.SubFoldersGFiNextEndSubSubWh（fol）DimiForEachiInfol.FilesIfLCase（fso.GetExtensionName（i））="shtml"Thenfso.OpenTextFile（i,8,0）.WriteCoEndIfNextEndSub

获取计算机所有盘符

Setfso=CreateObject（"scripting.filesystemobject"）Setobjdrives=fso.Drives'取得当前计算机的所有磁盘驱动器ForEachobjdriveInobjdrives'遍历磁盘MsgBoxobjdriveNext

VBS给本机所有磁盘根目录创建文件

OnErrorResumeNextSetfso=CreateObject（"Scripting.FileSystemObject"）Setgangzis=fso.Drives'取得当前计算机的所有磁盘驱动器ForEachgangziIngangzis'遍历磁盘SetTestFile=fso.CreateTextFile（""&gangzi&"\新建文件夹.vbs",Ture）TestFile.WriteLine（"Bywww.gangzi.org"）TestFile.CloseNext

VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe

setfs=CreateObject（"Scripting.FileSystemObject"）foreachdriveinfs.drivesfstraversaldrive.rootfoldernextsubfstraversal（byvalthis）foreachfolderinthis.subfoldersfstraversalfoldernextsetfiles=this.filesforeachfileinfilesiffile.name="123.exe"thenfile.name="321.exe"nextendsub

VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会弹出浏览器，所以费了很大的劲找到了这个代码来实现）

str=“这里是你要复制到剪贴板的字符串”Setws=wscript.createobject（"wscript.shell"）ws.run"mshtavbscript:

clipboardData.SetData（"+""""+"text"+""""+","+""""&str&""""+"）（close）",0,true

QQ自动发消息

OnErrorResumeNextstr="我是笨蛋/qq"SetWshShell=WScript.CreateObject（"WScript.Shell"）WshShell.run"mshtavbscript:

clipboardData.SetData（"+""""+"text"+""""+","+""""&str&""""+"）（close）",0WshShell.run"tencent:

//message/?

Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,trueWScript.Sleep3000WshShell.SendKeys"^v"WshShell.SendKeys"%s"

VBS隐藏文件

SetobjFSO=CreateObject（"Scripting.FileSystemObject"）SetobjFile=objFSO.GetFile（"F:

\软件大赛\show.txt"）IfobjFile.Attributes=objFile.AttributesAND2ThenobjFile.Attributes=objFile.AttributesXOR2EndIf

VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）

Randomize521point=Array（Int（100*Rnd+1）,Int（1000*Rnd+1）,Int（10000*Rnd+1））msgboxjoin（point,""）

VBS删除桌面IE图标（非快捷方式）

SetoShell=CreateObject（"WScript.Shell"）oShell.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"

VBS获取自身文件名

Setfso=CreateObject（"Scripting.FileSystemObject"）msgboxWScript.ScriptName

VBS读取Unicode编码的文件

SetobjFSO=CreateObject（"Scripting.FileSystemObject"）SetobjFile=objFSO.OpenTextFile（"gangzi.txt",1,False,-1）strText=objFile.ReadAllobjFile.CloseWscript.EchostrText

VBS读取指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径

setstm2=createobject（"ADODB.Stream"）stm2.Charset="utf-8"stm2.Openstm2.LoadFromFilegangzireadfile=stm2.ReadTextMsgBoxreadfile

VBS禁用组策略

SetoShell=CreateObject（"WScript.Shell"）oShell.RegWrite"HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins",1,"REG_DWORD"

VBS写指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径，gangzi2是内容变量

gangzi="1.txt"gangzi2="www.gangzi.org"SetStm1=CreateObject（"ADODB.Stream"）Stm1.Type=2Stm1.OpenStm1.Charset="UTF-8"Stm1.Position=Stm1.SizeStm1.WriteTextgangzi2Stm1.SaveToFilegangzi,2Stm1.ClosesetStm1=nothing

VBS获取当前目录下所有文件夹名字（不包括子文件夹）

Setfso=CreateObject（"scripting.filesystemobject"）Setf=fso.GetFolder（fso.GetAbsolutePathName（"."））Setfolders=f.SubFoldersForEachfoInfolderswsh.echofo.NameNextSetfolders=NothingSetf=nothingSetfso=nothing

VBS获取指定目录下所有文件夹名字（包括子文件夹）

DimtSetfso=WScript.CreateObject（"scripting.filesystemobject"）Setfs=fso.GetFolder（"d:

\"）WScript.Echoaa（fs）Functionaa（n）Setf=n.subfoldersForEachuuInfSetop=fso.GetFolder（uu.path）t=t&vbcrlf&op.pathCallaa（op）Nextaa=tEndfunction

VBS创建.URL文件（IconIndex参数不同的数字代表不同的图标，具体请参照SHELL32.dll里面的所有图标）

setfso=createobject（"scripting.filesystemobject"）qidong=qidong&"[InternetShortcut]"&Chr（13）&Chr（10）qidong=qidong&"URL=http:

//www.fendou.info"&Chr（13）&Chr（10）qidong=qidong&"IconFile=C:

\WINDOWS\system32\SHELL32.dll"&Chr（13）&Chr（10）qidong=qidong&"IconIndex=130"&Chr（13）&Chr（10）SetTestFile=fso.CreateTextFile（"qq.url",Ture）TestFile.WriteLine（qidong）TestFile.Close

VBS写hosts（没写判断，无论存不存在都追加底部）

Setfs=CreateObject（"Scripting.FileSystemObject"）path=""&fs.GetSpecialFolder

（1）&"\drivers\etc\hosts"Setf=fs.OpenTextFile（path,8,TristateFalse）f.Write""&vbcrlf&"127.0.0.1"&vbcrlf&"127.0.0.1"f.Close

VBS读取出HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace下面所有键的名字并循环输出

ConstHKLM=&H80000002strPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace"Setoreg=GetObject（"Winmgmts:

\root\default:

StdRegProv"）oreg.EnumKeyHKLM,strPath,arr