Vbscript查询计算机名，然后写入注册表HKLM\software dword？

您好，任何人都可以告诉我正确的方向，创建Vbscript以查询计算机名，然后将查询结果写入注册表HKLM\software\test dword或字符串

这是我到目前为止得到的，我只是不知道如何链接查询，然后将查询结果添加到注册表中-提前感谢

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName"
strValueName = "ComputerName"
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
strValueName,strValue

从帮助

计算机名

     Set WshNetwork = WScript.CreateObject("WScript.Network")
     WScript.Echo "Domain = " & WshNetwork.UserDomain
     WScript.Echo "Computer Name = " & WshNetwork.ComputerName
     WScript.Echo "User Name = " & WshNetwork.UserName

写注册表

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"

---

请描述你迄今为止所做的尝试。