Instr() not working properly?

Hello forum,
 
The gist of what i'm trying to do is check whether a certain software version exists by reading from a registry key. on windows 7x64 the value will be found in the "Wow6432Node" key. On XPx32 systems it will be found in another key. I'm going to run my script in a mixed environment and want it to read from the correct key when accessing each system. Why does the code below not return the correct results? Thanks in advance.
 
 
set wshell = wscript.createobject("wscript.shell")
set OS64KEY = wshell.exec("REG QUERY HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node") ' detects if Operating System is 64bit
OS64KEY= Ucase(OS64KEY.stdout.readAll)
 
 if instr(OS64KEY,"ERROR") > 0 then
 wscript.echo "key not exist"
 else
 wscript.echo "key exist"
 end if

novice_scripter
Why does the code below not return the correct results?

Because error messages are written to StdErr, not to StdOut. InStr() works perfectly fine. It just doesn't have anything to work on.

BTW, checking the actual address width might be a more appropriate test:

Set wmi = GetObject("winmgmts://root/cimv2")
is64bit = False
For Each obj In wmi.ExecQuery("SELECT * FROM Win32_Processor")
 If obj.AddressWidth = 64 Then is64bit = True
Next

59cobalt


BTW, checking the actual address width might be a more appropriate test:

Set wmi = GetObject("winmgmts://root/cimv2")    
 is64bit = False    
 For Each obj In wmi.ExecQuery("SELECT * FROM Win32_Processor")    
 If obj.AddressWidth = 64 Then is64bit = True    
 Next

 
Shouldn't the first line of your code be: Set wmi = GetObject("winmgmts:\\.\root\cimv2")
The "winmgmts://root/cimv2" part causes an Error of 'Microsoft VBScript runtime error: The remote server machine does not exist or is unavailable: 'GetObject''.
 

DiGiTAL.SkReAM
Shouldn't the first line of your code be: Set wmi = GetObject("winmgmts:\\.\root\cimv2")

Yes, I omitted the host part by mistake. It was supposed to be GetObject("winmgmts://./root/cimv2"). Thanks for catching.