Vbscript 拉入注册表值无效

我刚刚开始学习自动化

我期待着查询以下注册表值的测试文件与日期

我写了下面的脚本；但是，我认为这缺少一些逻辑，因此无法为每个注册表字符串获取附加值

Const HKEY_本地_机器=&H8000002 出现的常数=2 设置objfso=CreateObjectscripting.filesystemobject 设置objFile=objfso.OpenTextFileC:\SWSetup\abc.txt，8，true 'Set filestreamOUT=CreateObjectScripting.FileSystemObject.OpenTextFileC:\Test.txt，8，true strComputer=。 'strPath=C:\SWSetup\abc.txt strKeyPath=SOFTWARE\SAT strValueName1=Bcore strValueName=GG strValueName=图形 strValueName=MEM strValueName=PHD strValueName=PHDk strValueName=Pro 设置oReg=GetObjectwinmgmts:{impersonationLevel=impersonate}！\\&_ strComputer&\root\default:StdRegProv 'oReg.GetStringValue HKEY_LOCAL_MACHINE，strKeyPath，strValueName，strValue oReg.GetStringValue HKEY_LOCAL_机器，strKeyPath，strValueName，strValueName，strValueName1 objFile.WriteLine现在 objfile.WriteLine标准值 objfile.Close

---

你可以用一种更简单的方法来做

使用WScript.Shell对象从注册表读取值

为您创建了一个示例

相应地修改它

我在我的系统上进行了测试

我看到了预期的结果

'DECLARE A FILE SYSTEM OBJECT
Set objfso = CreateObject("scripting.filesystemobject")
Set objFile = objfso.OpenTextFile("C:\\Users\\<<YOUR USER NAME>>\\desktop\\abc.txt", 8, true)

'CREATE A SHELL OBJECT TO READ REGISTRY
Dim WSHShell, value
Set WSHShell = CreateObject("WScript.Shell")


'READ REGISTRY VARIABLES
value = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SAT\GG")
objFile.WriteLine (value & "  " & Now)

value = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SAT\Graph")
objFile.WriteLine (value & "  " & Now)

value = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SAT\MEM")
objFile.WriteLine (value & "  " & Now)

value = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SAT\PHD")
objFile.WriteLine (value & "  " & Now)


'CLEAR THE OBJECTS
objfile.Close
set WSHShell = nothing

要完全获得密钥名称，请执行以下操作：

运行注册表并在您的案例中搜索SAT。 选择它并右键单击鼠标。 您可以看到复制密钥名称。 选择它。 现在把它贴在记事本上。 然后将值名称附加到它。在您的情况下，GG MEM等。。