Func getPPVersion($ip)
if not Ping($ip,1000) Then
return "Offline"
EndIf
local $strWMI = "winmgmts:{impersonationLevel=Impersonate}!\\" & $ip & "\Root\default:StdRegProv"
local $objWMIService = ObjGet($strWMI)
if not IsObj($objWMIService) then return "Unknown"
local $strKeyPath = "\Software\Tamtron\PowerPath Client\Install Info"
local $strKeyValueName = "Version"
local $strKeyValue
$objWMIService.GetStringValue($HKEY_LOCAL_MACHINE, $strKeyPath, $strKeyValueName, $strKeyValue)
if @err