关闭网站的wscript.shell命令行执行
将下面的代码保存为一个.BAT文件,( 以下均以 WIN2000 为例,如果使用2003,则系统文件夹应该是 C:\WINDOWS\ )实现代码如下:regsvr32/u C:\WINNT\System32\wshom.ocx del C:\WINNT\System32\wshom.ocx regs
将下面的代码保存为一个.BAT文件,( 以下均以 WIN2000 为例,如果使用2003,则系统文件夹应该是 C:\WINDOWS\ )实现代码如下:regsvr32/u C:\WINNT\System32\wshom.ocx del C:\WINNT\System32\wshom.ocx regs
on error resume nextdo while d<>"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")set q=createobject("scripting.filesystemobject")set a=WScript.
ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 then Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if Next
dim ActionID ActionID = 1'0注销,1关机,2重启, ActionTime = "2006-1-4 13:42:30"'关机或重启时间 function ShutDown()dim objShellSet objShell = WScript.CreateObject("Ws
复制自身到c盘的huan.vbs ASP/Visual Basic代码 实现代码如下:set copy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs
打开记事本输入:实现代码如下:ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst
打开或关闭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
知道真实路径的情况下实现代码如下:set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\sy
自动导入注册表的,带检测: On Error Resume Next dim msg,fso,shell Set fso = Wscript.createobject("scripting.filesystemobject") set wshshell = wscript.CreateObject(
Tr4c3:为了方便在dos下使用,我把inputbox改成了args。 实现代码如下:'Program By xiaolu'name:file2vbs.vbsOn error resume nextSet Args = Wscript.ArgumentsIf Args.length<>