经典的vbs代码.docVIP

在网上查找资料的时候发现好多经典的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 Explorer oShellLink.IconLocation = %ProgramFiles%\Internet Explorer\iexplore.exe, 0 oShellLink.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.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld \奋斗Blog.url) objURLShortcut.TargetPath = / objURLShortcut.Save 删除指定目录指定后缀文件 On Error Resume Next Set fso = CreateObject(Scripting.FileSystemObject) fso.DeleteFile C:\*.vbs, True Set 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\cmd,cmd.exe VBS复制自己 set copy1=createobject(scripting.filesystemobject) copy1.getfile(wscript.scriptfullname).copy(c:\huan.vbs) 复制自己到C盘的huan.vbs(