用vbs删除某些类型文件和磁盘空间报告的脚本
Option Explicit dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnu
Option Explicit dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnu
记录客户机操作的VBS脚本on error resume next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet
Option Explicit ''''''''''''''说明'''''''''''' '网盟-黑火制作,送给需要的朋友。 '配置文件“Listfile.ini”的格式如下: '要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............ '配置文件可以有多行,以便
右键菜单中添加CMD HERE 实现代码如下:Set WshShell=CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\",""WshS
ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 then Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if Next
黑人必会!强制杀进程!对付杀毒软件啊 '备注:vbs强制关闭程序 '防止出现错误 实现代码如下:On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam
Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
实现代码如下:dim AsoR,FlashFileNameSet ArgObj = WScript.Argumentsdim PositionStart,OKed,Tag,EndSizePositionStart = 920000'flash 4的播放器的大致字节数EndSize = 8'exe文件
核心代码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)&
代码如下:JScript 实现代码如下:function GenerateGuid() {var TypeLib = new ActiveXObject("Scriptlet.TypeLib");return (TypeLib.Guid);} VBScript 实现代码如下:Function Gen