strComputer="atl-dc-01"ConstNTDSDSA_OPT_IS_GC=1SetobjRootDSE=GetObject("LDAP://"&strComputer&"/rootDSE")strDsServiceDN=objRootDSE.Get("dsServiceName")Se...

[阅读全文]

1:设置IE代理SetoShell=CreateObject("WScript.Shell")oShell.RegWrite"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\InternetSettings\\ProxyServer",_...

[阅读全文]

OnErrorResumeNextCallHelp()f=InputBox("输入要定位的文件名(带后缀)","脚本文件特征码定位byDOS资源站")Iff=""ThenWScript.QuitEndIfSuffix=mid(f,instr(1,f,"."),len(f))'得到文件后缀Setfso=CreateObj...

[阅读全文]

Dimprogram,path'声明变量program="'EasyCHM.exe'"'赋值给变量path="I:\电子书\EasyCHM\EasyCHM.exe"strComputer="."'wmi中指本机SetobjWMIService=GetObject("winmgmts:"_&"{impersona...

[阅读全文]

SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolCPUs=objWMIService.InstancesOf("Win32_Processor")SetcolCaches=objWMIService.InstancesOf("Win32_CacheM...

[阅读全文]

'''''''''''''''''''''''''''''''''说明'''''''''''''''''''''''''''''''''''DOS资源站制作，www.cmdos.net。'作用：检查磁盘剩余空间，如果低于某个数值就删除一些指定的文件夹。'注意：并不是指定的文件夹将全部删除，而是顺序删除，如果空间够了就不...

[阅读全文]

'使用环境：微软iscsi客户端，'作用：根据本机的IP或机器名来连接不同的服务器IP或端口'注意：如果设置“根据机器名”的话，脚本将依据机器名的后三位来取得机器编号，'当然，你也可以稍作修改来适应你的情况。''''''''''''说明完''''''''''''OptionExplicitDim...

[阅读全文]

OptionExplicit''''''''''''''说明'''''''''''''cmdos.net，送给需要的朋友。'配置文件“Listfile.ini”的格式如下：'要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............'配置文件可以有多行，以便对多...

[阅读全文]

setie=wscript.createobject("internetexplorer.application","event_")ie.menubar=0ie.addressbar=0ie.toolbar=0ie.statusbar=0ie.width=400ie.height=100ie.resizable=0i...

[阅读全文]

OptionExplicitDimoldpath,newpatholdpath="x:\game"'设置原路径中将被替换的内容newpath="g:\game\langame"'设置新路径中要使用的内容DimWsh,fsoSetWsh=WScript.CreateObject("WScript.Shell")Setfs...

[阅读全文]

OptionExplicit'OnErrorResumeNextDimintStartingAddress,intEndingAddress,strSubnet,strComputer,ProNameDimobjShell,strCommand,objExecObject,strTextintStartingAddre...

[阅读全文]

最近看到有顾客在网吧里看XXX电影，要是被GA，WH，或是多事的记者逮到就麻烦了，虽然不是网吧提供的，但如果他们要拿这个整你，你也没有办法。于是写了这个脚本，放到服务器上，让客户机开机就启动。如果有什么事情，一执行就把XXX删得干干净净。这个脚本将检查指定路径（当然可以是根目录）下的所有文件和子文件夹里的所有文件，换句...

[阅读全文]

作用：对比样本文件夹，删除目标文件夹里多于的文件和文件夹DOS资源站提供www.cmdos.net'''''''''''''说明完''''''''''''DimFso,wsh,BasicFod,DestFod,flnum,fdnum,t1,t2,tmSetWSH=WScript.CreateObject("WScrip...

[阅读全文]

大概在一年前，VBS脚本病毒又揭起一阵热潮，一大群VBS病毒在互联网上盛行。那时的VBS病毒几乎都是用FSO、MAPI作为一个病毒传染引擎，所以我就想，VBS可否访问网络呢？如果它也能进行端口的连接，那就神奇了。从此之后，我就努力去找有关VBS的网络类的资料，可惜找了好久，什么收获也没有，直到一个月前高考结束了，我才可...

[阅读全文]

Windows脚本可以调用MSWinsock控件获得比较强大的网络访问能力，但那个106KB的mswinsck.ocx(V6.0.89.88)不是系统自带的，这使得该控件的实用性大打折扣。而且，脚本要调用MSWinsock还必须克服一个困难。以"MSWinsock"为关键字，使用百度搜索网页，可以获得至少3个VBS调用...

[阅读全文]

'拔掉网线就关机的脚本'cmdos.net制作，送给需要的朋友'说明：shutdown-s-t60这里修改倒记时的时间。DimWsh,objWMIService,colMonitoredEventsSetWsh=WScript.CreateObject("WScript.Shell")SetobjWMIService=...

[阅读全文]

'DOS资源站www.cmdos.net，给需要的朋友'大部分脚本运行时都没有交互界面，通过这个脚本，你可以知道哪些脚本正在你机器上运行。strComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")S...

[阅读全文]

一．挑选速度快的肉鸡做VPN。当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩Hacking的同时也要尽量保证不暴露自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^。因此，作为老菜鸟的我们，要学会在Hacking时，多用VPN+终端等跳板措施来保护自己，尽量不让自己直接暴露所处地。但是，由于跳板...

[阅读全文]

平常我们遇到有注入漏洞一类的网站大部分人都是用NBSIOr阿D一类的注射工具。但有的站点的注射点很难构造，或者说注射语句比较特殊。如果用手工去注射的话，费时又费力！但自己写针对性的工具的话，对一些刚入门不久或不会编程的朋友来说，实在是一件很痛苦的事情。因此今天NP给大家带来的文章就是讲如何用简单的VBS脚本来打造我们所...

[阅读全文]

OnErrorResumeNextSetArg=Wscript.argumentsIfArg.count=0thenWscript.quit'---'Enjoyit'CodeByNetPatch'---fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system...

[阅读全文]

请根据你的浏览器,选择相应的程序IE浏览器：setwind9=createobject("scripting.filesystemobject")ifwind9.fileexists("wind.txt")=falsethenwscript.quitendifsetwind=createobject("wscript....

[阅读全文]

Setsh=WScript.CreateObject("WScript.Shell")sh.Run"telnet192.168.1.1"WScript.Sleep1000sh.SendKeys"admin{ENTER}"WScript.Sleep1000sh.SendKeys"admin{ENTER}"WScript....

[阅读全文]

onerrorresumenextweburl=InputBox("查询的网址","DOS资源站","http://www.cmdos.net")weburl=Replace(weburl,"http://","")NO_baidu=getContents("找到相关网页*(.+?)篇",getHTTPPage("ht...

[阅读全文]

setfso=createobject("scripting.filesystemobject")SetobjDialog=CreateObject("UserAccounts.CommonDialog")objDialog.Filter="vbsFile|*.vbs|AllFiles|*.*"objDialog.In...

[阅读全文]

OptionExplicit'说明开始*'Input格式：起始IP-数量=用户名=密码;起始计算机名-数量=用户名=密码'多个配置项用“;”隔开'例：192.168.0.1-10指明IP范围为192.168.0.1~192.168.0.10，支持跨网段'例：PC001-10指明范围为PC001~...

[阅读全文]

a=msgbox("是否开始监控文件夹？？",1,"後知後覺")ifa=1thendimstrname,wmistrname="."setwmi=getobject("winmgmts:\\"&strname&"\root\cimv2")setsink=wscript.createobject("wbe...

[阅读全文]

'解除网吧常见限制OnErrorResumeNextSetWS=WScript.CreateObject("WScript.Shell")'允许使用组策略WS.RegWrite"HKCU\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins",0,"REG...

[阅读全文]

choice=inputbox("请根据不同的操作，键入相应的字符"&vbcrlf&""&vbcrlf&"1添加一个禁止运行的程序"&vbcrlf&"2恢复一个禁止运行的程序"&vbcrlf&"3恢复所有禁止运行的程序"&vbcrlf&"4...

[阅读全文]

dimie,wdwd=inputbox("输入搜索关键字：","百度","cmdos.net")iftrim(wd)<>""thensetie=createobject("internetexplorer.application")ie.visible=trueie.navigate"http://www.baidu....

[阅读全文]

在网上看到N多人做radmin后门，要导出注册表而且还用被杀软件K杀。所以本人把自己写的脚本提供大家分享。比较实用，希望大家喜欢。onerrorresumenextconstHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetStdOut=WScript.StdOutS...

[阅读全文]