Dim RegTVClientID,RegTVVersion Dim arrSubKeys(9,5) arrSubKeys(0,0) = "TeamViewer 12" arrSubKeys(0,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version12\ClientID" arrSubKeys(0,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version12\Version" arrSubKeys(1,0) = "TeamViewer 12" arrSubKeys(1,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version12\ClientID" arrSubKeys(1,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version12\Version" arrSubKeys(2,0) = "TeamViewer 11" arrSubKeys(2,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version11\ClientID" arrSubKeys(3,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version11\Version" arrSubKeys(3,0) = "TeamViewer 11" arrSubKeys(3,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version11\ClientID" arrSubKeys(3,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version11\Version" arrSubKeys(4,0) = "TeamViewer 10" arrSubKeys(4,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version10\ClientID" arrSubKeys(4,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version10\Version" arrSubKeys(5,0) = "TeamViewer 10" arrSubKeys(5,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version10\ClientID" arrSubKeys(5,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version10\Version" arrSubKeys(6,0) = "TeamViewer 9" arrSubKeys(6,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version9\ClientID" arrSubKeys(6,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version9\Version" arrSubKeys(7,0) = "TeamViewer 9" arrSubKeys(7,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version9\ClientID" arrSubKeys(7,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version9\Version" arrSubKeys(8,0) = "TeamViewer 8" arrSubKeys(8,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version8\ClientID" arrSubKeys(8,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version8\Version" arrSubKeys(9,0) = "TeamViewer 8" arrSubKeys(9,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version8\ClientID" arrSubKeys(9,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version8\Version" arrSubKeys(10,0) = "TeamViewer 7" arrSubKeys(10,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version7\ClientID" arrSubKeys(10,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version7\Version" arrSubKeys(11,0) = "TeamViewer 7" arrSubKeys(11,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version7\ClientID" arrSubKeys(11,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version7\Version" arrSubKeys(12,0) = "TeamViewer 6" arrSubKeys(12,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version6\ClientID" arrSubKeys(12,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version6\Version" arrSubKeys(13,0) = "TeamViewer 6" arrSubKeys(13,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version6\ClientID" arrSubKeys(13,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version6\Version" arrSubKeys(14,0) = "TeamViewer 5" arrSubKeys(14,1) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version5\ClientID" arrSubKeys(14,2) = "HKEY_LOCAL_MACHINE\Software\TeamViewer\Version5\Version" arrSubKeys(15,0) = "TeamViewer 5" arrSubKeys(15,1) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version5\ClientID" arrSubKeys(15,2) = "HKEY_LOCAL_MACHINE\Software\Wow6432Node\TeamViewer\Version5\Version" ' pour chaque element du tableau For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1) ' lecture des cles RegTVClientID = WshShell.RegRead( arrSubKeys(x,1) ) RegTVVersion = WshShell.RegRead( arrSubKeys(x,2) ) If Not IsNull(RegTVClientID) AND RegTVClientID <> "" Then 'MsgBox RegTVClientID, vbInformation 'MsgBox RegTVVersion, vbInformation ' Ecriture des donnees vers la sortie standard, qui sera le XML tf.WriteBlankLines(2) tf.Write "Teamviwer version: " & RegTVVersion & vbCrLf tf.Write "Teamviwer id:" & RegTVClientID & vbCrLf Exit For End If |