《VBS常用脚本.docxVIP

昨天为了解密那个加密的vbs脚本，在网上查找资料的时候发现好多经典的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)15. 脚本病毒16. 处理数据库下面是我收集的VBS代码，大部分转自，以后还会更新。VBS获取系统安装路径先定义这个变量是获取系统安装路径的，然后我们用”strWinDir”调用这个变量。set WshShell = WScript.CreateObject(WScript.Shell)strWinDir = WshShell.ExpandEnvironmentStrings(%WinDir%)VBS获取C:\Program Files路径msgbox CreateObject(WScript.Shell).ExpandEnvironmentStrings(%ProgramFiles%)VBS获取C:\Program Files\Common 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)oShellLink.TargetPath = oShellLink.Description = Internet ExploreroShellLink.IconLocation = %ProgramFiles%\Internet Explorer\iexplore.exe, 0oShellLink.Save给收藏夹添加网址Const ADMINISTRATIVE_TOOLS = 6?Set objShell = CreateObject(Shell.Application)Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)Set objFolderItem = objFolder.Self ?Set objShell = WScript.CreateObject(WScript.Shell)strDesktopFld = objFolderItem.PathSet objURLShortcut = objShell.CreateShortcut(strDesktopFld \奋斗Blog.url)objURLShortcut.TargetPath = /objURLShortcut.Save删除指定目录指定后缀文件On Error Resume NextSet fso = CreateObject(Scripting.FileSystemObject)fso.DeleteFile C:\*.vbs, TrueSet fso = NothingVBS改主页Set oShell = CreateObject(WScript.Shell)oShell.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page,VBS加启动项Set oShell=CreateObject(Wscript.Shell)oShell.RegWrite HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd,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 copy