Trouble converting a vbscript

[JLogan3o13]

This should be a simple thing; I think I have been staring at it too long. I'm looking to query a registry key through WMI on a number remote machines because some genius disabled Remote Registry. I have the following in vbscript format that works just fine:

const HKEY_LOCAL_MACHINE = &H80000002
dim filesys, filetxt
Set filesys = CreateObject("Scripting.FileSystemObject")
strPC = "MNCS00258"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPC & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5B21A1C6-5F55-480F-816E-C307C1E97293}"
strValueName = "DisplayVersion"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

msgbox(strValue)

This should be a simple conversion, but I am getting hung up on the strValue. I have tried a number of different ways but am unsure how to capture the value. Any assistance would be appreciated.

$HKLM = "&H80000002"
$filesys = ObjCreate("Scripting.FileSystemObject")
$PC = "MNCS00258"
$oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $PC & "\root\default:StdRegProv")
$Path = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5B21A1C6-5F55-480F-816E-C307C1E97293}"
$ValName = "DisplayVersion"

   $oReg.GetStringValue($HKLM, $Path, $ValName, strValue) ;<--Unsure what this should be
   MsgBox(0, "", strValue)

[dany]

Anyone of these I imagine:

Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7

I don't know if you need the numeric or string value though.

edit: I based it on this article but on second look was a bit hasty and I'm wrong. It looks like the variable is passed as a reference like ByRef:

Global $strValue
$oReg.GetStringValue($HKLM, $Path, $ValName, $strValue)
MsgBox(0, " strValue ", $strValue)

Edited November 26, 2012 by dany

[JLogan3o13]

I'm looking to get the string value, as it is a REG_SZ. Curious that I do not need to specify the type in a vbscript.

[water]

Could you try this (untested) code?

$HKLM = 0x80000002
$filesys = ObjCreate("Scripting.FileSystemObject")
$PC = "MNCS00258"
$oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!" & $PC & "rootdefault:StdRegProv")
$Path = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall{5B21A1C6-5F55-480F-816E-C307C1E97293}"
$ValName = "DisplayVersion"

$sResult = $oReg.GetStringValue($HKLM, $Path, $ValName)
MsgBox(0, "", $sResult)

[dany]

I should have refreshed

Edited November 26, 2012 by dany

[JLogan3o13]

It returns 0, so I would guess it is getting to the point of the ValName ok

[water]

This works for me. If you run a 64 bit Windows you need to run the script as 64 bit.

#AutoIt3Wrapper_UseX64=y
$HKLM = 0x80000002
$filesys = ObjCreate("Scripting.FileSystemObject")
$PC = "." ; C0548"
$oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!" & $PC & "rootdefault:StdRegProv")
$Path = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall{5B21A1C6-5F55-480F-816E-C307C1E97293}"
$ValName = "DisplayVersion"

Global $iResult, $sResult = ""
$iResult = $oReg.GetStringValue($HKLM, $Path, $ValName, $sResult)
MsgBox(0, "", ">" & $iResult & "-" & $sResult & "<")

[JLogan3o13]

Hi, Water, thanks for the assistance. It's odd. The output for this particular value should be 4.6.105.68. My return from your script above is >2-<. I am running from a 64bit machine, but touching a 32bit machine remotely. I tried running the script both ways and receive the same return.

I guess I'm mostly curious how vbscript automatically "knows" how to deal with the strValue; it isn't something declared in the script. Not sure how strValue maps to the object we're looking for.

Again, thanks for the help and suggestions; I'm going to keep playing with it.

Edit: Ok, I'm a blooming idiot. Sorry, I failed to notice you took the PC name out of there. It is working as you said. Many thanks.

Edited November 26, 2012 by JLogan3o13

[trancexx]

So to summarize... your mistake was (except not declaring strValue)

$HKLM = "&H80000002"

I've seen you doing that before. AutoIt's hex represented number is

0x...

[JLogan3o13]

Thanks for pointing it out to me, I will definitely keep it in mind in the future.