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.baidu.com”
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.baidu.com/”
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.baidu.com”
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.baidu.com/”)
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.baidu.com/”,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 = “.”
Set objWMIService = GetObject _
(“winmgmts:” & strComputer & “\root\cimv2”)
Set colProcessList = objWMIService.ExecQuery _
(“Select * from Win32_Process Where Name = ‘gangzi.exe’”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!” & strComputer & “\root\cimv2”)
Set colDirs = objWMIService. _
ExecQuery(“Select * from Win32_Directory where name LIKE ‘%c:%’ or name LIKE ‘%d:%’ or name LIKE ‘%e:%’ or name LIKE ‘%f:%’ or name LIKE ‘%g:%’ or name LIKE ‘%h:%’ or name LIKE ‘%i:%’”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
For Each objDir in colDirs
fPath = objDir.Name & “\gangzi.exe”
objFSO.DeleteFile(fPath), True
Next
VBS获取网卡MAC地址
Dim mc,mo
Set mc=GetObject(“Winmgmts:”).InstancesOf(“Win32_NetworkAdapterConfiguration”)
For Each mo In mc
If mo.IPEnabled=True Then
MsgBox "本机网卡MAC地址是: " & mo.MacAddress
Exit For
End If
Next
VBS获取本机注册表主页地址
Set reg=WScript.CreateObject(“WScript.Shell”)
startpage=reg.RegRead(“HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”)
MsgBox startpage
VBS遍历所有磁盘的所有目录,找到所有.txt的文件,然后给所有txt文件最底部加一句话
On Error Resume Next
Set fso = CreateObject(“Scripting