Vbscript Conversion Help

[RagnaroktA]

sComputer = "."   '  use "." for local computer 
iOfficeVer = GetOfficeVer(sComputer) 

If iOfficeVer = -1 Then 
  WScript.Echo "Version of Office installed is unknown, could not connect to the remote computer." 
Elseif iOfficeVer = 0 Then 
  WScript.Echo "Not Installed" 
Else 
  WScript.Echo "Microsoft Office " & iOfficeVer 
End If 

Function GetOfficeVer(sNode) 
  On Error Resume Next 
  Const HKLM = &H80000002 ' HKEY_LOCAL_MACHINE 
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sNode & "/root/default:StdRegProv") 
  If Err.Number <> 0 Then 
    GetOfficeVer = -1 
    Exit Function  '-------> 
  End If 

  sValueName = "Path" 
  sRegPre = "SOFTWARE\Microsoft\Office\" 
  sRegPost = "\Common\InstallRoot" 

  If oReg.GetStringValue(HKLM, sRegPre & "11.0" & sRegPost, sValueName, sValue) = 0 Then 
    GetOfficeVer = 2003 
  Elseif oReg.GetStringValue(HKLM, sRegPre & "10.0" & sRegPost, sValueName, sValue) = 0 Then 
    GetOfficeVer = 2002 
  Elseif oReg.GetStringValue(HKLM, sRegPre & "9.0" & sRegPost, sValueName, sValue) = 0 Then 
    GetOfficeVer = 2000 
  Elseif oReg.GetStringValue(HKLM, sRegPre & "8.0" & sRegPost, sValueName, sValue) = 0 Then 
    GetOfficeVer = 97 
  Else 
    GetOfficeVer = 0 
  End If 
End Function

I've tried, but to no avail. Wondering if any of you gurus can make it happen. Thanks!

[cdkid]

Here's some pointers on how to do it on your own:

Look in the helpfile at the following functions.

RegRead and MsgBox

That appears to be the only funtions you need...

Also, all variables in au3 start with $

[RagnaroktA]

Here's some pointers on how to do it on your own:

Look in the helpfile at the following functions.

RegRead and MsgBox

That appears to be the only funtions you need...

Also, all variables in au3 start with $

I've got that much, I actually have it converted, so I thought... Here's the code. It errors, and I'm not sure what I did wrong.

expandcollapse popup

Global Const $wbemFlagReturnImmediately = 0x10
Global Const $wbemFlagForwardOnly = 0x20
$sComputer = "."  ;Use "." for local computer
$iOfficeVer = GetOfficeVer($sComputer)

If $iOfficeVer = -1 Then
  MsgBox(16, "", "Version of Office installed is unknown, could not connect to the remote computer.")
Elseif iOfficeVer = 0 Then
  MsgBox(16, "", "Not Installed")
Else
  MsgBox(16, "", "Microsoft Office " & $iOfficeVer)
EndIf

Func GetOfficeVer($sNode)
 ; On Error Resume Next
  Const $HKLM = "&H80000002"; HKEY_LOCAL_MACHINE

  $objRegistry = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $sNode & "\root\default:StdRegProv")
  If @Error <> 0 Then
    $GetOfficeVer = -1
    Return
  EndIf

  $sValue = ""
  $sValueName = "Path"
  $sRegPre = "SOFTWARE\Microsoft\Office\"
  $sRegPost = "\Common\InstallRoot"

  If $objRegistry.GetStringValue($HKLM, $sRegPre & "11.0" & $sRegPost, $sValueName, $sValue) = 0 Then
    $GetOfficeVer = 2003
  Elseif $objRegistry.GetStringValue($HKLM, $sRegPre & "10.0" & $sRegPost, $sValueName, $sValue) = 0 Then
    $GetOfficeVer = 2002
  Elseif $objRegistry.GetStringValue($HKLM, $sRegPre & "9.0" & $sRegPost, $sValueName, $sValue) = 0 Then
    $GetOfficeVer = 2000
  Elseif $objRegistry.GetStringValue($HKLM, $sRegPre & "8.0" & $sRegPost, $sValueName, $sValue) = 0 Then
    $GetOfficeVer = 97
  Else
    $GetOfficeVer = 0
  EndIf
EndFunc

[RagnaroktA]

Anyone?

[Simucal]

You didnt do what cdkid said.

You are using $objRegistry.GetStringValue instead of RegRead.

[neogia]

cdkid was completely correct in that, sure, WMI scripting is extremely useful for some things, but in this case, AutoIt has a built in function, RegRead() which accomplishes the same task:

If RegRead("HKLM\Software\Microsoft\Office\11.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2003")
ElseIf RegRead("HKLM\Software\Microsoft\Office\10.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2002")
ElseIf RegRead("HKLM\Software\Microsoft\Office\9.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2000")
ElseIf RegRead("HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 97")
Else
    MsgBox(0,"Office Version", "Office Version could not be determined.")
EndIf

[RagnaroktA]

cdkid was completely correct in that, sure, WMI scripting is extremely useful for some things, but in this case, AutoIt has a built in function, RegRead() which accomplishes the same task:

If RegRead("HKLM\Software\Microsoft\Office\11.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2003")
ElseIf RegRead("HKLM\Software\Microsoft\Office\10.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2002")
ElseIf RegRead("HKLM\Software\Microsoft\Office\9.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 2000")
ElseIf RegRead("HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot", "Path") <> "" Then 
    MsgBox(0,"Office Version", "Microsoft Office 97")
Else
    MsgBox(0,"Office Version", "Office Version could not be determined.")
EndIf

I thought RegRead would only do local, not remote computers... Does it work well remotely?

Edit: Right, thanks all!

Edited April 26, 2006 by RagnaroktA