2020-02-16 标签:计算机,用户,获取,实现,vbs,代码,显示,当前,名称,数目,如下,const,ads,scope,subtree,set

显示当前域内所有计算机名称及数目 实现代码如下： Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = GetObject("LDAP://rootDSE") strDomain = ObjRootDSE.Get("defaultNamingContext") S

2020-02-16 标签:vbs,自动关机,30,实现,代码,如下,dim,wsh,set,wscript,shell,getobject,winmgmts,ootwmi

实现代码如下：Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Se

2020-02-16 标签:查看,sql,状态,vbs,实现,代码,如下,r,05,e,检验,server,是否,在这,机器,上工,strcomputer,set

实现代码如下：'**************************** '*by r05e '*检验SQL SERVER是否在这机器上工作 '**************************** strComputer = "." Set objWMIService = GetObject("

2020-02-16 标签:常用,js,功能,函数,代码,实现,如下,获取,对象,function,getobject,objectid,top,doc,window,document,typeof,object,w

实现代码如下：//获取对象 function getObject(objectId,top) { doc = top?window.top.document:document; if(typeof(objectId)!="object" } else if(doc.getElementsByNam

2020-02-16 标签:python,判断,进程,是否,存在,源代码,如下,实现,代码,coding,utf,def,check,exsit,process,n,ame,import,win

源代码如下：实现代码如下：#-*- coding:utf-8 -*- def check_exsit(process_name): import win32com.client WMI = win32com.client.GetObject('winmgmts:') processCodeCov =

2020-02-16 标签:vbs,imail,密码,解密,实现,代码,如下,error,resume,n,ext,const,hkey,local,machine,h,80000002,strcomputer,set,oreg

实现代码如下：on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!

2020-02-16 标签:常用,js,功能,函数,2009,06,04,更新,实现,代码,如下,获取,对象,function,getobject,objectid,top,doc,window,document

实现代码如下：//获取对象 function getObject(objectId,top) {doc = top?window.top.document:document;if(typeof(objectId)!="object" }else if(doc.getElementsByName(ob

2020-02-16 标签:删除,开启,3389,创建,用户,后门,vbs,error,resume,n,ext,const,hkey,local,machine,h

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonati

2020-02-16 标签:动态,添加,js,事件,实现,代码,表单,对象,function,getobject,name,var,inputlist,document,tags,input,i,length,id

//表单对象 function GetObject(Name) { var inputlist=document.all.tags('input'); var i=0; for(i=0;i<inputlist.length;i++) { var input=inputlist[i]; if(i

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