VBS 常用脚本.txt

根据给定文件的信息，我们可以提炼出关于VBS（Visual Basic Script）的重要知识点，涉及VBS在不同场景下的应用以及如何操作系统环境变量、文件、注册表等。 ### VBS与操作系统交互 #### 1. 获取系统环境变量 VBS能够方便地获取Windows系统的环境变量，如`%WinDir%`, `%ProgramFiles%`, `%CommonProgramFiles%`等，这在脚本中用于定位特定的系统目录路径非常有用。 ```vb Dim strWinDir Set WshShell = WScript.CreateObject("WScript.Shell") strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%") ``` #### 2. 创建快捷方式 通过VBS可以创建桌面或其它位置的快捷方式，指定目标路径、描述及图标。 ```vb Set gangzi = WScript.CreateObject("WScript.Shell") strDesktop = gangzi.SpecialFolders("Desktop") Set oShellLink = gangzi.CreateShortcut(strDesktop & "\InternetExplorer.lnk") oShellLink.TargetPath = "http://www.fendou.info" oShellLink.Description = "InternetExplorer" oShellLink.IconLocation = "%ProgramFiles%\InternetExplorer\iexplore.exe,0" oShellLink.Save ``` #### 3. 操作注册表 VBS脚本能读写注册表键值，用于修改系统设置或程序启动项。 ```vb Set oShell = CreateObject("WScript.Shell") oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage", "http://www.fendou.info" ``` ### VBS文件操作 #### 1. 删除文件 VBS可以通过FileSystemObject对象删除文件，例如： ```vb Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile "C:\*.vbs", True ``` #### 2. 文件复制 VBS也能实现文件的复制功能，包括将当前脚本自身复制到其他位置，或复制任意文件至指定目录。 ```vb Set copy1 = CreateObject("Scripting.FileSystemObject") copy1.GetFile(WScript.ScriptFullName).Copy "c:\huan.vbs" ``` ### VBS自动化任务 #### 1. 启动程序 VBS脚本可自动启动程序，甚至可以在开机时运行指定程序。 ```vb Set oShell = CreateObject("Wscript.Shell") oShell.Run "cmd.exe", 1, False ``` #### 2. 执行网页操作 VBS还能实现网页操作，比如设定IE主页为特定网址。 ```vb Set oShell = CreateObject("WScript.Shell") oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage", "http://www.fendou.info" ``` ### VBS与办公软件集成 VBS可以自动化操作Word、Excel、PowerPoint等Office组件，提高工作效率。 ```vb ' 例如，打开并保存Excel文档 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set wb = objExcel.Workbooks.Open("C:\example.xls") wb.Save objExcel.Quit ``` VBS作为一种轻量级的脚本语言，其强大之处在于能够高效地执行系统任务、文件操作、网络请求及自动化办公软件处理，广泛应用于系统管理、批量文件处理、数据自动化处理等多个领域。掌握VBS的基本语法和功能，对于提升日常工作效率、解决特定技术问题具有重要意义。