2020-02-16 标签:vbs,删除,某些,类型,文件,磁盘空间,报告,脚本,option,explicit,dim,serverpath,onlyone,n,otfinddel,workpath,arrworwpath,strworkpath,fso,wsh

Option Explicit dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnu

2020-02-16 标签:vbs,记录,客户机,操作,代码,脚本,error,resume,n,ext,strcomputer,set,getobject,winmgmts,root,cimv,ipconfigset,execquery

记录客户机操作的VBS脚本on error resume next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet

2020-02-16 标签:vbs,脚本,删除,指定,以外,文件,文件夹,option,explicit,说明,制作,送给,需要,朋友,配置文件,listfile

Option Explicit ''''''''''''''说明'''''''''''' '网盟-黑火制作，送给需要的朋友。 '配置文件“Listfile.ini”的格式如下： '要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............ '配置文件可以有多行，以便

2020-02-16 标签:vbs,实现,右键,菜单,添加,cmd,代码,如下,set,wshshell,wscript,shell,regwrite,hkey,local,machine,software,classes,folder

右键菜单中添加CMD HERE 实现代码如下：Set WshShell=CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\",""WshS

2020-02-16 标签:vbs,脚本,实现,更换,windows,xp,序列号,代码,error,resume,next,dim,vol,prod,key,wscript,arguments,count,inputbox

ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 then Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if Next

2020-02-16 标签:vbs,实现,强制,杀进,脚本,黑人,必会,对付,杀毒软件,备注,关闭程序,防止,出现,错误,代码,如下,error,resume,next

黑人必会！强制杀进程！对付杀毒软件啊 '备注：vbs强制关闭程序 '防止出现错误 实现代码如下：On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam

2020-02-16 标签:vbs,更改,3389,远程桌面,端口,脚本,set,wshshell,wscript,shell,function,imput,imputport,inputbox,输入,注意,目前

Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)

2020-02-16 标签:vbs,实现,exe,swf,工具,脚本,代码,如下,dim,asor,set,argobj,wscript,arguments,oked,tag,endsize

实现代码如下：dim AsoR,FlashFileNameSet ArgObj = WScript.Argumentsdim PositionStart,OKed,Tag,EndSizePositionStart = 920000'flash 4的播放器的大致字节数EndSize = 8'exe文件

2020-02-16 标签:扩展,时间段,dir,命令,vbs,脚本,核心,代码,set,arg,wscript,arguments,count,echo,chr,space,xdir

核心代码set Arg=Wscript.Arguments If Arg.Count=0 then Wscript.echo chr(9)&chr(9)&space(4)&"Xdir v0.1" Wscript.echo "" Wscript.echo chr(9)&

2020-02-16 标签:asp,里面,创建,guid,代码,如下,jscript,实现,function,var,typelib,n,ew,scriptlet,return,vbscript,dim,set

代码如下：JScript 实现代码如下：function GenerateGuid() {var TypeLib = new ActiveXObject("Scriptlet.TypeLib");return (TypeLib.Guid);} VBScript 实现代码如下：Function Gen