茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

系統(tǒng)服務有可能被 rootkit 隱藏，但有些時候我們仍可以從注冊表中找到相關的信息。建議以管理員權限運行，否則有些服務列舉不出來或出現(xiàn)錯誤的提示

效果圖：

代碼（checksvr.vbs）：

代碼如下:

'on error resume next

const hkey_local_machine = &h80000002

set oreg=getobject(winmgmts:{impersonationlevel=impersonate}!\\.\root\default:stdregprov)

strkeypath = system\currentcontrolset\services

oreg.enumkey hkey_local_machine, strkeypath, arrsubkeys

wscript.echo checking, please wait ...

wscript.echo

for each subkey in arrsubkeys

oreg.getstringvalue hkey_local_machine, strkeypath & \\ & subkey, objectname, strvalue

if not (strvalue = ) then

'判斷服務, 利用數(shù)組來比較不知道會不會快些？

if not (checksvr(subkey)) then

wscript.echo subkey & formatouttab(subkey) & strvalue & formatouttab(strvalue) & [ hidden ]

else

wscript.echo subkey & formatouttab(subkey) & strvalue & formatouttab(strvalue) & [ ok ]

end if

end if

next

wscript.echo

wscript.echo all done.

wscript.quit (0)

function checksvr(strname)

set owmi = getobject(winmgmts: & {impersonationlevel=impersonate}!\\.\root\cimv2)

set cservice = owmi.execquery(select * from win32_service where name=' & strname & ')

if (cservice.count <> 0) then

checksvr = true

else

checksvr = false

end if

end function

function formatouttab(strname)

strlen = len(strname)

select case true

case strlen < 8

formatouttab = vbtab & vbtab & vbtab & vbtab & vbtab

case strlen < 16

formatouttab = vbtab & vbtab & vbtab & vbtab

case strlen < 24

formatouttab = vbtab & vbtab & vbtab

case strlen < 32

formatouttab = vbtab & vbtab

case strlen < 40

formatouttab = vbtab

case else

formatouttab = vbtab

end select

end function

利用字典，速度要快很多：

復制代碼 代碼如下:

dim odic, oreg, owmi, arrservices

const hkey_local_machine = &h80000002

wscript.echo [*] checking, please wait ...

wscript.echo

set odic = createobject(scripting.dictionary)

set owmi = getobject(winmgmts: & {impersonationlevel=impersonate}!\\.\root\cimv2)

set arrservices = owmi.execquery(select * from win32_service)

for each strservice in arrservices

odic.add strservice.name, strservice.name

next

set oreg = getobject(winmgmts:{impersonationlevel=impersonate}!\\.\root\default:stdregprov)

strkeypath = system\currentcontrolset\services

oreg.enumkey hkey_local_machine, strkeypath, arrsubkeys

for each subkey in arrsubkeys

oreg.getstringvalue hkey_local_machine, strkeypath & \\ & subkey, objectname, strvalue

if not (strvalue = ) then

if odic.exists(subkey) then

wscript.echo subkey & formatouttab(subkey) & strvalue & formatouttab(strvalue) & [ ok ]

else

wscript.echo subkey & formatouttab(subkey) & strvalue & formatouttab(strvalue) & [ hidden ]

end if

end if

next

odic.removeall

wscript.echo

wscript.echo [*] all done.

wscript.quit (0)

function formatouttab(strname)

strlen = len(strname)

select case true

case strlen < 8

formatouttab = vbtab & vbtab & vbtab & vbtab

case strlen < 16

formatouttab = vbtab & vbtab & vbtab

case strlen < 24

formatouttab = vbtab & vbtab

case strlen < 32

formatouttab = vbtab

case else

formatouttab = vbtab

end select

end function