vbs实现恢复暂停的自动启动服务的脚本

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where State = 'Paused' and StartMode = 'Auto'")
For Each objService in colListOfServices
objService.ResumeService()
Next

vbs删除注册表项的代码
WScript.Echo"EnablingKerberosLogging..."constHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_strComputer&"rootdefault:StdRegProv")strKey

用vbs检查注册表项的访问权限的代码
constKEY_QUERY_VALUE=&H0001constKEY_SET_VALUE=&H0002constKEY_CREATE_SUB_KEY=&H0004constDELETE=&H00010000constHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetStdOut=WScript.StdOutSetoReg=GetObject("winm

vbs之使用Internet Explorer 屏蔽密码
SetobjExplorer=WScript.CreateObject_("InternetExplorer.Application","IE_")objExplorer.Navigate"file:///c:scriptspassword.htm"objExplorer.Visible=1objExplorer.ToolBar=0objExplorer.StatusBar=0objExplo