2020-02-16 标签:hardware,info,vbs,获取,硬件,信息,代码,实现,如下,v,fastslzon,error,resume,nextdim,wmi,ws,fsoset,getobject,winmgmts

实现代码如下：'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci

2020-02-16 标签:admin,vbs,管理员,身份,运行,程序,命令,实现,代码,如下,set,getobject,winmgmts,impersonate,root,cimv

实现代码如下： '以管理员身份运行程序的命令admin.vbs Set objWMIServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objWbemObjectSet = objW

2020-02-16 标签:vbs,调用,wmi,实现,搜索,硬盘,mp,文件,代码,如下,strcomputer,set,getobject,winmgmts,impersonate,root,cimv

实现代码如下： strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cim

2020-02-16 标签:php,不再,支持,isapi,要在,iis,使用,版本,必须,安装,fastcgi,扩展,microsoft,extension

要在IIS6上使用高版本PHP，必须安装fastCGI扩展，Microsoft FastCGI Extension for IIS 5.1 and 6.0然后让你的IIS6支持fastCGI即可。然后设定一下php.ini中的CGI and FastCGI参数：fastcgi.impersonate

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 标签:修改,gateway,dns,vbs,脚本,实现,代码,如下,const,t,网关,newdns,strwinmgmt,winmgmts,impersonate,set

实现代码如下：Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=im

2020-02-16 标签:autoit,写的,禁止,qq,运行,程序,代码,exe,qqpid,endif,set,getobject,winmgmts,impersonate,root,cimv

if ProcessExists("qq.exe") then$QQPID = ProcessExists("qq.exe")ProcessClose ($QQPID)endif ============================================================

2020-02-16 标签:vbs,实现,压缩文件,脚本,strcomputer,set,getobject,winmgmts,impersonate,root,cimv,colfolders,execquery,select,win,32

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

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

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