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获取系统安装路径
先定义这个变量是获取系统安装路径的,然后我们用”&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 = "http://www.fendou.info" 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 = "http://www.fendou.info/" 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","http://www.fendou.info"
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(复制本vbs目录下的game.exe文件到c盘的gangzi.exe)
set copy1=createobject("scripting.filesystemobject") copy1.getfile("game.exe").copy("c:/gangzi.exe")
VBS获取系统临时目录
Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim tempfolder Const TemporaryFolder = 2 Set tempfolder = fso.GetSpecialFolder(TemporaryFolder) Wscript.Echo tempfolder
就算代码出错 依然继续执行
On Error Resume Next
VBS打开网址
Set objShell = CreateObject("Wscript.Shell") objShell.Run("http://www.fendou.info/")
VBS发送邮件
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "发件@qq.com" Email.To = "收件@qq.com" Email.Subject = "Test sendmail.vbs" Email.Textbody = "OK!" Email.AddAttachment "C:/1.txt" With Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com" .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "发件人用户名" .Item(NameSpace&"sendpassword") = "发件人密码" .Update End With Email.Send
VBS结束进程
strComputer = "." Set objWMIService = GetObject _ ("winmgmts://" & strComputer & "/root/cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Rar.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next
VBS隐藏打开网址(部分浏览器无法隐藏打开,而是直接打开,适合主流用户使用)
createObject("wscript.shell").run "iexplore http://www.fendou.info/",0
兼容所有浏览器,使用IE的绝对路径+参数打开,无法用函数得到IE安装路径,只用函数得到了Program Files路径,应该比上面的方法好,但是两种方法都不是绝对的。
Set objws=WScript.CreateObject("wscript.shell") objws.Run """C:/Program Files/Internet Explorer/iexplore.exe""www.baidu.com",vbhide
VBS遍历硬盘删除指定文件名
On Error Resume Next Dim fPath strComputer