用vbs列出注册表中 Run 项中的所有项目

所属分类: 脚本专栏 / vbs 阅读数: 1735
收藏 0 赞 0 分享
问:
您好,脚本专家!如何列出注册表中 Run 项中的所有项目?
-- JW
答:
您好,JW。如何列出注册表中 Run 项中的所有项目?坦白地讲,我们不打算告诉您。真的很抱歉。不是因为我们不喜欢您,而是因为我们认为我们有一个更好的答案给您。(如果我们错了,那好,我们只能说这不会是第一次。) 
由于您对 Run 项感兴趣,因此我们假定您真正想知道的是如何找出哪些程序被配置为在每次 Windows 启动时自动运行。您一定可以从 Run 项中读取到该信息,不要对此产生怀疑。实际上,您可以从 Run 项中读取到该信息,查看一下是否 HKEY_CURRENT_USER 和 HKEY_LOCAL_MACHINE 中都具有 Run 项。它们中都具有 RunOnce 项。接下来是 Startup 文件夹、All Users Startup 文件夹等等。
您已经找到问题的答案了。试图找出哪些程序被配置为在每次 Windows 启动时自动运行的问题时所牵涉到的问题就是该信息可能存储在数量众多的不同位置中的任一位置中。我们可以编写一个脚本来检查这些为数众多的位置中的每个位置吗?肯定可以这样做。但我们认为以下这段脚本更好:
复制代码 代码如下:

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colStartupCommands = objWMIService.ExecQuery _ 
    ("Select * from Win32_StartupCommand") 
For Each objStartupCommand in colStartupCommands 
    Wscript.Echo "Command: " & objStartupCommand.Command 
    Wscript.Echo "Description: " & objStartupCommand.Description 
    Wscript.Echo "Location: " & objStartupCommand.Location 
    Wscript.Echo "Name: " & objStartupCommand.Name 
    Wscript.Echo "User: " & objStartupCommand.User 
    Wscript.Echo 
Next 

不是四处查找并视图找到 Windows 用来保存自动运行程序信息的位置,我们已决定让 WMI 为我们完成所有此项工作。WMI 类 Win32_StartupCommand 用于查找自动运行程序的信息,而不管该信息是存储在注册表中、Startup 文件夹中还是其他某个位置中。例如,运行此脚本时,将返回类似于下面内容的信息:
Command: Microsoft Office OneNote 2003 Quick Launch.lnk
Description: Microsoft Office OneNote 2003 Quick Launch
Location: Startup
Name: Microsoft Office OneNote 2003 Quick Launch
User: FABRIKAM\kenmyer
Command: C:\WINDOWS\System32\ctfmon.exe
Description: ctfmon.exe
Location: HKU\S-1-5-21-1987391165-1004336648-1605550848-8553\SOFTWARE\Microsoft\
Windows\CurrentVersion\Run
Name: ctfmon.exe
User: FABRIKAM\kenmyer
正如您所见,存在两个不同的自动运行程序:一个程序在 Startup 文件夹中有快捷方式,另一个程序是注册表的 HKEY_USERS 部分中的 Run 中所列出的应用程序。(还有另一个可能存储了自动运行信息的计算机上的位置。)我们的一个简单的小脚本可以在数秒钟内调用并检索到有关这两个程序以及任何其他自动运行应用程序的信息。这就是我们为何认为使用 Win32_StartupCommand 的脚本更好的原因。
那么,该脚本本身是如何工作的?是这样,它几乎同曾经要编写的 WMI 脚本一样简单。我们首先连接到本地计算机上的 WMI 服务。不用说,我们也可以使用此脚本连接到远程计算机上的 WMI 服务(这将返回已配置为在该计算机上自动运行的程序的列表)。然后我们调用 ExecQuery 方法并发出以下查询,此查询可调用并获取它所能找到的所有自动运行程序的集合:
Set colStartupCommands = objWMIService.ExecQuery _
    ("Select * from Win32_StartupCommand")
现在,剩下要做的事情就是建立一个 For Each 循环来遍历程序的集合,并回显诸如应用程序名称和位置(可在其中找到自动运行信息)这样的数据。该方法简单快捷,最大的优势在于,其返回的信息远远多于只通过读取单个注册表项下所填充的值所能获取的信息。很不错吧?
我们希望其会对您有所帮助,JW。如果其未奏效,当您真地确实需要只读取 Run 项并通过使用它来搞定一切时,请告诉我们,这样我们可以知道我们能够为您做些什么。还有问题吗?我们知道最后一块蛋糕(就是您为您自己保留的那块蛋糕)被谁吃了吗?是这样,我们能够回答这个问题,JW。但我们不打算这样做。
更多精彩内容其他人还在看

vbscript Split函数用法详解(字符串转数组函数)

本文详细介绍了vbscript中split函数的用法,有关split函数的一些实例,vbscript中split函数的语法介绍,有需要的朋友参考下
收藏 0 赞 0 分享

VBS实现将Excel表格保存为txt文本

希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢
收藏 0 赞 0 分享

vbs解决处理TXT文本数据相关问题实现代码

使用vbs处理txt数据时,会遇到一些问题,本文将提供详细的解决方法,希望可以帮助你们
收藏 0 赞 0 分享

关于vbs 生成静态页面过程中出现的问题

访问某个aspx页面,然后把服务器返回的页面以filestream 的形式保存为html格式,接下来将介绍实现代码
收藏 0 赞 0 分享

dim函数第三个参数设置截取字符的长度问题

dim函数的第三个参数,也就是截取字符的长度,我在设置这个的时候,出了些问题,提示无效的过程调用或参数,本文详细介绍如何解决
收藏 0 赞 0 分享

邪恶的eval和new Function使用介绍

这些代码可以干什么?可以肯定的是可以干很多猥琐的事
收藏 0 赞 0 分享

WScript.Shell对象SpecialFolders属性未公开文档分享

WshShell对象的SpecialFolders属性返WshSpecialFolders 对象,该对象是一个特殊文件夹集合,其中包含整套Windows特殊文件夹
收藏 0 赞 0 分享

用VBS修改(设置)系统时间和日期的代码

用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢
收藏 0 赞 0 分享

VBS For Next循环的一些细节

For Next 语句是 VBS 中常用的循环语句,你可能已经用过无数次 For Next 循环,但是你是否注意过它的一些细节呢
收藏 0 赞 0 分享

VBS For Next循环的陷阱分享

在《VBS For Next循环的一些细节》中说到了 For Next 循环的控制变量仅仅在循环开始前求值一次,但是其中存在一处陷阱
收藏 0 赞 0 分享
查看更多