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

VBS 脚本常用经典代码收集 在网上查找资料的时候发现好多经典的 vbs 代码，收集 起来也为了以后学习。 VBS 脚本用途很多： 计算 处理文件和文件夹 管理 Windows 4. 处理 Word, Excel, PowerPoint 等 Office 文档 嵌入网页，驱动 dHTML 编写 HTTP 通信 调用系统功能（ COM 组件），比如说语音说话 分析 HTML, XML 调用命令行并分析返回结果 处理图片 自动化按键 12. 调用 Windows Media Player 并管理 13. 调用 Windows Live Messenger 并管理 服务端技术： Active Server Page (ASP) 脚本病毒 处理数据库 下面是我收集的 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 = 6Set objShell = CreateObject(Shell.Application)Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject(WScript.Shell)strDesktopFld = objFolderItem.PathSet objURLShortcut = 奋斗 Blog.url)objURLShortcut.TargetPath = /objURLShortcut.Save 删除指定目录指定后缀文件 On Error Resume NextSet fso = CreateObject(Scripting.FileSystemObject)fso.DeleteFile C:\*.vbs, TrueSet fso = Nothing VBS 改主页 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\c md,cmd.exe VBS 复制自己 set copy1=createobject(scripting.filesystemobject)copy1.getf ile(wscript.scriptfullname).copy(c:\huan.vbs) 复制自己到 C 盘的 huan.vbs( 复制本 vbs 目录下的 game.exe 文件到 c 盘的 gangzi.