vbs后台运行bat删除自身的代码
知道真实路径的情况下实现代码如下:set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\sy
知道真实路径的情况下实现代码如下:set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\sy
打开记事本输入:实现代码如下:ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst
自动导入注册表的,带检测: On Error Resume Next dim msg,fso,shell Set fso = Wscript.createobject("scripting.filesystemobject") set wshshell = wscript.CreateObject(
scrrun.dll scrrun - scrrun.dll - DLL文件信息 DLL 文件: scrrun 或者 scrrun.dll DLL 名称: Microsoft Script Runtime 描述:scrrun.dll用于阅读和编写脚本和文本文件。 属于: Microsoft Scri
自以为vbs玩得够好了,FSO和WMI也玩得很顺,直到看到LCX前辈的文章,才悟出了vbs的奥义。 原来vbs的至尊境界就是:一切windows对象皆可调用,任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序!恐怖的难以想象 努力学习吧
实现代码如下: 磁盘管理器 Sub List(sPath) sPath = Replace(sPath, "*", " ") Set FSO = CreateObject("Scripting.FileSystemObject") Set c_drive = FSO.GetFolder(s
实现代码如下:strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i =
实现代码如下:If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上!":WScript.Quit Set fso=CreateObject("Scripting.FileSystemObject") Set sel
z.asp 实现代码如下: z.php 实现代码如下: 运行一下,自己没了.... 实现代码如下: 这样也行@_@
实现代码如下:set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local") const forreading = 1 set objfso = createobject("scripting.filesystemobject") set ob