《经典的vbs代码.doc》由会员分享，可在线阅读，更多相关《经典的vbs代码.doc（17页珍藏版）》请在金锄头文库上搜索。
1、在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。VBS脚本用途很多：1. 计算2. 处理文件和文件夹3. 管理Windows4. 处理Word, Excel, PowerPoint等Office文档5. 嵌入网页，驱动dHTML6. 编写HTTP通信7. 调用系统功能（COM组件），比如说语音说话8. 分析HTML, XML9. 调用命令行并分析返回结果10. 处理图片11. 自动化按键12. 调用Windows Media Player并管理13. 调用Windows Live Messenger并管理14. 服务端技术：Active Server Page (ASP)
2、15. 脚本病毒16. 处理数据库下面是我收集的VBS代码，大部分转自gangzi.org，以后还会更新。VBS获取系统安装路径先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。set WshShell = WScript.CreateObject(WScript.Shell)strWinDir = WshShell.ExpandEnvironmentStrings(%WinDir%)VBS获取C:Program Files路径msgbox CreateObject(WScript.Shell).ExpandEnvironmentStrings(%Progr
3、amFiles%)VBS获取C:Program FilesCommon Files路径msgbox CreateObject(WScript.Shell).ExpandEnvironmentStrings(%CommonProgramFiles%)给桌面添加网址快捷方式set gangzi = WScript.CreateObject(WScript.Shell)strDesktop = gangzi.SpecialFolders(Desktop)set oShellLink = gangzi.CreateShortcut(strDesktop & Internet Explorer.lnk)
4、oShellLink.TargetPath = http:/www.fendou.infooShellLink.Description = Internet ExploreroShellLink.IconLocation = %ProgramFiles%Internet Exploreriexplore.exe, 0oShellLink.Save给收藏夹添加网址Const ADMINISTRATIVE_TOOLS = 6Set objShell = CreateObject(Shell.Application)Set objFolder = objShell.Namespace(ADMINIS
5、TRATIVE_TOOLS)Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject(WScript.Shell)strDesktopFld = objFolderItem.PathSet objURLShortcut = objShell.CreateShortcut(strDesktopFld & 奋斗Blog.url)objURLShortcut.TargetPath = http:/www.fendou.info/objURLShortcut.Save删除指定目录指定后缀文件On Error Resum
6、e NextSet fso = CreateObject(Scripting.FileSystemObject)fso.DeleteFile C:*.vbs, TrueSet fso = NothingVBS改主页Set oShell = CreateObject(WScript.Shell)oShell.RegWrite HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page,http:/www.fendou.infoVBS加启动项Set oShell=CreateObject(Wscript.Shell)oShel
7、l.RegWrite HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd,cmd.exeVBS复制自己set copy1=createobject(scripting.filesystemobject)copy1.getfile(wscript.scriptfullname).copy(c:huan.vbs)复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的gangzi.exe)set copy1=createobject(scripting.filesystemobject)copy1.getfile(game.e
8、xe).copy(c:gangzi.exe)VBS获取系统临时目录Dim fsoSet fso = CreateObject(Scripting.FileSystemObject)Dim tempfolderConst TemporaryFolder = 2Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)Wscript.Echo tempfolder就算代码出错 依然继续执行On Error Resume NextVBS打开网址Set objShell = CreateObject(Wscript.Shell)objShell.Run
9、(http:/www.fendou.info/)VBS发送邮件NameSpace = http:/ Email = CreateObject(CDO.Message)Email.From = 发件Email.To = 收件Email.Subject = Test sendmail.vbsEmail.Textbody = OK!Email.AddAttachment C:1.txtWith Email.Configuration.Fields.Item(NameSpace&sendusing) = 2.Item(NameSpace&smtpserver) = smtp.邮件服务器.com.Ite
10、m(NameSpace&smtpserverport) = 25.Item(NameSpace&smtpauthenticate) = 1.Item(NameSpace&sendusername) = 发件人用户名.Item(NameSpace&sendpassword) = 发件人密码.UpdateEnd WithEmail.SendVBS结束进程strComputer = .Set objWMIService = GetObject _ (winmgmts: & strComputer & rootcimv2)Set colProcessList = objWMIService.ExecQ
11、uery _ (Select * from Win32_Process Where Name = Rar.exe)For Each objProcess in colProcessList objProcess.Terminate()NextVBS隐藏打开网址(部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用)createObject(wscript.shell).run iexplore http:/www.fendou.info/,0兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法
12、都不是绝对的。Set objws=WScript.CreateObject(wscript.shell)objws.Run C:Program FilesInternet E,vbhideVBS遍历硬盘删除指定文件名On Error Resume NextDim fPathstrComputer = .Set objWMIService = GetObject _ (winmgmts: & strComputer & rootcimv2)Set colProcessList = objWMIService.ExecQuery _ (Select * from Win32_Process Whe
13、re Name = gangzi.exe)For Each objProcess in colProcessList objProcess.Terminate()NextSet objWMIService = GetObject(winmgmts: _& impersonationLevel=impersonate! & strComputer & rootcimv2)Set colDirs = objWMIService. _ExecQuery(Select * from Win32_Directory where name LIKE %c:% or name LIKE %d:% or na
14、me LIKE %e:% or name LIKE %f:% or name LIKE %g:% or name LIKE %h:% or name LIKE %i:%)Set objFSO = CreateObject(Scripting.FileSystemObject)For Each objDir in colDirsfPath = objDir.Name & gangzi.exeobjFSO.DeleteFile(fPath), TrueNextVBS获取网卡MAC地址Dim mc,moSet mc=GetObject(Winmgmts:).InstancesOf(Win32_NetworkAdapterConfiguration)For Each mo In mcIf mo.IPEnabled=True ThenMsgBox 本机网卡MAC地址是: & mo.MacAddressExit ForEnd IfNextVBS获取本机注册表主页地址Set reg=WScript.CreateObject(WScript.Shell)startpage=reg.RegRead(HKEY
