文章标题关闭所有内容预览 | 展开所有内容预览
-
VBS 不用Wscript.shell对象启动程序
[内容预览]
37 | 2008-05-15 17:00:19
使用Wscript.shell对象的run或exec方法可以起动程序,不用该对象我们可用WMI来启动程序.strc="."setobjps=GetObject("winmgmts:\\"&strc&"\root\cimv2:Win32_Process")objps.create"C:\WINDOWS\S...
[阅读全文]
-
修改ACCESS宏安全为低的VBS脚本
[内容预览]
6 | 2008-05-15 16:59:50
OnErrorResumeNextDimOperationRegistrySetOperationRegistry=WScript.CreateObject("WScript.Shell")SetwmiColl=GetObject("WinMgmts:root/cimv2").ExecQuery("Select*FRO...
[阅读全文]
-
用VBS修复任务栏
[内容预览]
20 | 2008-05-14 15:34:52
SetWSHShell=WScript.CreateObject("WScript.Shell")Message="本脚本用于修复WindowsXP中当最小化程序时,无法在任务栏显示图标的问题。"&vbCR&vbCRMessage=Message&"为了正常工作,本脚本将关闭和重启Windows...
[阅读全文]
-
WMI脚本:修改磁盘卷标
[内容预览]
10 | 2008-05-13 20:06:32
'修改磁盘卷标'在Windows中,WMI主要是一个读取信息的技术,我这样理解不知道对不对'但是我知道绝大多数的类都不允许对其属性进行修改,'Win32_LogicalDisk是我知道的少数允许修改属性的类'当然修改属性完成后不要忘记用Put_方法提交改变'代码很简单就不仔细解释了,当然磁盘卷标不要起的太长'strCo...
[阅读全文]
-
WMI脚本:建立和删除共享文件夹
[内容预览]
16 | 2008-05-13 20:05:50
'在局域网建立共享的脚本'GetObject函数用Moniker名字法连接到WMI创建引用在本机有三步'1、"winmgmts:"是前缀,表示为WMI服务,必须'2、\\.\"代表本机,'3、CIM命名空间:"root\cimv2"就是CIM命名空间,缺省可省略'4、建立共享主要使用Win32_Share类的Creat...
[阅读全文]
-
自动排列桌面图标的VBS脚本
[内容预览]
15 | 2008-05-13 20:04:43
'==''使桌面图标重排的脚本,设计的很奇妙,也学到了以前没有接触的东西'SCF文件是“WINDOWS资源管理器命令”文件,它也是一种可执行文件.'由WindowsExplorerCommand解释,标准安装,包括下面3个该类型的文件'1)Explorer.scf(资源管理器)'[Shell]'...
[阅读全文]
-
后台偷偷运行程序的VBS
[内容预览]
53 | 2008-05-13 20:04:29
SetobjShell=CreateObject("Wscript.Shell")'创建Wscript.Shell对象objShell.Run("wmplayer.exeD:\music.wma"),0,TRUE'调用wmplayer.exe(WindowsMediaPlayer)运行music.wma文件执行了这段代...
[阅读全文]
-
vbs病毒制作之一——复制自身的vbs脚本
[内容预览]
37 | 2008-05-13 19:08:24
vbs病毒制作之一——复制自身的vbs脚本复制自身到c盘的huan.vbsASP/VisualBasic代码setcopy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy(...
[阅读全文]
-
运行VBS提示“没有在该机执行windows脚本宿主的权限。请与系统管理员联系”的解决办法
[内容预览]
21 | 2008-05-13 19:06:22
首先检查系统是否禁止使用了脚本运行,即打开“INTERNET选项”的“安全”选项卡里“自定义级别”,看看“ActiveX空件及服务”禁用的选项。接着运行regsvr32scrrun.dll最后关键的一步就是看看注册表里的这个...
[阅读全文]
-
用VBS来加管理员帐号
[内容预览]
18 | 2008-05-13 19:02:17
setwsnetwork=CreateObject("WSCRIPT.NETWORK")os="WinNT://"&wsnetwork.ComputerNameSetob=GetObject(os)'得到adsi接口,绑定Setoe=GetObject(os&"/Administrators,group...
[阅读全文]
-
用vbs来列虚拟主机的物理目录
[内容预览]
5 | 2008-05-13 18:58:03
有时旁注入侵成功一个站,拿到系统权限后,面对上百个虚拟主机,怎样才能更快的找到我们目标站的物理目录呢?一个站一个站翻看太累,用系统自带的adsutil.vbs吧又感觉好像参数很多,有点无法下手的感觉,试试我这个脚本吧,代码如下:SetObjService=GetObject("IIS://LocalHost/W3SVC...
[阅读全文]
-
用VBS做的断点续传
[内容预览]
29 | 2008-05-10 21:33:28
if(lcase(right(wscript.fullname,11))="wscript.exe")then'判断脚本宿主的名称'die("ScripthostmustbeCScript.exe.")'脚本宿主不是CScript,于是就die了'endififwscript.arguments.count<1then...
[阅读全文]
-
一个扩展dir命令的vbs脚本
[内容预览]
21 | 2008-05-10 21:31:36
'CMD下的dir好像没法列出从某段时间到某段时间的文件,所以写了这个小东东setArg=Wscript.ArgumentsIfArg.Count=0thenWscript.echochr(9)&chr(9)&space(4)&"Xdirv0.1"Wscript.echo""Wscript.ec...
[阅读全文]
-
割尾巴---VBS 杀毒程序,专门对付网页后附加恶性代码
[内容预览]
32 | 2008-05-07 15:34:12
dimc,vrs1,vrs2'''定义文件计数器,恶毒代码1,恶毒代码2,......self="PowerReplace.vbs"'''本文件名'''定义恶性代码之一:vrs1="<scriptlanguage=javascriptsrc=http://93se.com/k.js></script>"'''定义恶性代...
[阅读全文]
-
列出所有到本机80端口ESTABLISHED连接的VBS脚本
[内容预览]
27 | 2008-05-07 15:33:32
DimoShellDimoExecDimstrOutDimoRegExpDimMatchesDimMatchDimNumSetoShell=WScript.CreateObject("WScript.Shell")SetoExec=oShell.Exec("netstat-an")SetoRegExp=newRegEx...
[阅读全文]
-
把脚本转成一句形式
[内容预览]
25 | 2008-05-07 15:33:05
OnErrorResumeNextSetArg=Wscript.ArgumentsIfArg.count=0Thenwscript.quitSetFso=CreateObject("Scripting.FileSystemObject")Setgofile=Fso.OpenTextFile(arg(0),1,False...
[阅读全文]
-
终端登陆监视脚本
[内容预览]
22 | 2008-05-07 15:31:21
onerrorresumenextsetarg=wscript.argumentsIfarg.count=0thenwscript.echo"use://cscript.exeFS.vbsport"sleep1000wscript.quitEndIfTport=arg(0)Runs=falseWhileruns=fal...
[阅读全文]
-
FlashFXP解密 VBS版本
[内容预览]
12 | 2008-05-07 15:18:28
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...
[阅读全文]
-
PPT转Word脚本程序
[内容预览]
48 | 2008-05-07 15:15:20
'在C盘根目录下新建一个名为ppt的文件夹,将要转换的文件拷进去,然后再新建一个gif文件夹,路径为C:\ppt\gif。将这段代码保存为后缀名vbs的脚本文件,双击执行即可。'简单的ppt效果较好,如果图片较多,则顺序会出错,如果图片较复杂,例如有许多部分组合而成,则效果很差'绑定到本地计算机strComputer=...
[阅读全文]
-
合并PPT的VBS脚本
[内容预览]
18 | 2008-05-07 15:05:36
'将C:\ppt内的所有PPT合并成一个PPT,背景将被忽略,主要是有利于黑白打印,如果顺序重要,则可以将PPT用数字编号'绑定到本地计算机strComputer="."'如果发生错误,继续执行www.cmdos.netonerrorresumenextSetobjWMIService=GetObject("winmg...
[阅读全文]
-
修改xp任务拦状态
[内容预览]
27 | 2008-05-04 04:10:22
OptionExplicit'DeclarevariablesDimWSHShell,n,MyBox,p,p1,t,cn,Caption,itemtype,errnum'setvariablesandShellSetWSHShell=WScript.CreateObject("WScript.Shell")p="HKE...
[阅读全文]
-
VBS脚本清除电脑中的痕迹
[内容预览]
59 | 2008-05-04 04:09:11
OnErrorResumeNext'防止出现错误DimfsoSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFolder("C:\\WINDOWS\\Cookies\\*.*"),Truefso.DeleteFile("C:\\WINDOWS\\Co...
[阅读全文]
-
用VBS列出计算机管理工具
[内容预览]
33 | 2008-05-04 04:08:19
ConstADMINISTRATIVE_TOOLS=&H2f&SetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.Namespace(ADMINISTRATIVE_TOOLS)SetobjTools=objFolder.I...
[阅读全文]
-
禁止Guest访问系统日志
[内容预览]
14 | 2008-05-04 04:06:02
SetWshShell=CreateObject("Wscript.Shell")Functioninput()choevt=InputBox("请输入要限制Guest访问的日志编号:"&vbCrLf&"1-Application"&vbCrLf&"2-DNSServer"&vb...
[阅读全文]
-
用VBS更改系统日志文件大小
[内容预览]
18 | 2008-05-04 04:04:42
SetWshShell=CreateObject("Wscript.Shell")Functioninput()choevt=InputBox("请输入要更改大小的日志编号:"&vbCrLf&"1-Application"&vbCrLf&"2-DNSServer"&vbCrLf&...
[阅读全文]
-
更换日志目录
[内容预览]
13 | 2008-05-04 04:03:13
SetWshShell=CreateObject("Wscript.Shell")Setfso=CreateObject("Scripting.FileSystemObject")Functioninput()choevt=InputBox("请输入要更改日志保存文件的日志编号:"&vbCrLf&"1-...
[阅读全文]
-
用VBS更改3389终端端口
[内容预览]
25 | 2008-05-04 04:02:16
SetWshShell=CreateObject("Wscript.Shell")FunctionImput()imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务","更改终端端口号","3389",100,100)Ifimputport<>""Then...
[阅读全文]
-
VBS定时关机
[内容预览]
105 | 2008-05-04 04:00:33
Dimmytime,myout1,myout2mytime=nullmytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx&rsquo...
[阅读全文]
-
查看系统环境变量(IE)版
[内容预览]
19 | 2008-05-04 03:53:00
DimoIE,doc1SetoIE=WScript.CreateObject("InternetExplorer.Application")oIE.Navigate"about:blank"oIE.Visible=1oIE.ToolBar=0oIE.StatusBar=0oIE.Width=750oIE.Height=...
[阅读全文]
-
用VBS写网吧游戏公告
[内容预览]
48 | 2008-05-04 03:50:08
dimobjshellSetobjShell=CreateObject("Wscript.Shell")intMessage=Msgbox("点是进入游戏"&vbCrlf&"点否访问游戏更新信息"&vbCrlf&"点取消退出"&vbCrlf&"自定义",3+64,"DOS...
[阅读全文]

