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

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. 调用 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 = 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 fs