网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

标题	VBScript之通过对比注册表查找隐藏的服务
范文	系统服务有可能被 rootkit 隐藏，但有些时候我们仍可以从注册表中找到相关的信息。建议以管理员权限运行，否则有些服务列举不出来或出现错误的提示     效果图：          代码（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     '判断服务, 利用数组来比较不知道会不会快些？     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
随便看	四年级的作文 小学四年级作文 四年级作文 四年级作文300字 四年级作文 四年级的作文 小学四年级作文 四年级的作文 小学四年级作文 四年级我的老师作文 困难四年级作文 家乡的春天四年级作文 小学四年级作文 小学四年级作文 四年级的作文 小学四年级作文 小学四年级作文 四年级作文 小学四年级作文 四年级学生作文 四年级温暖作文 我的四年级作文 四年级元宵的作文 小学四年级作文 小学四年级作文 mystic mystical mystical element mystical experience mystical quality mystical significance mystical union mysticism mystification mystified 怀质抱真 怀道迷邦 怀金垂紫 怀金拖紫 怀铅提椠 怀铅握椠 怀银纡紫 怀黄佩紫 怀黄握白 怅然自失 村官报考公务员 昨天我终于联系上了宣威市委组织部 德宏州的速度太慢了 宣威村官考察怎么回事？ 昆明市嵩明县2009年大学生村官考察公告 昆明市盘龙区2009年大学生村官放弃及补充考察公告 昆明市东川区2009年大学生村官资格复审及考察补充公告 昆明市呈贡县大学生村官资格复审的紧急通知 面试时是用方言还是普通话 曲靖麒麟区村官在哪？

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。