Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS         = &H80000003

' Object used to get StdRegProv Namespace
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")

' Object used to determine local machine name
Set wshNetwork = CreateObject("WScript.Network")

' Registry Provider (StdRegProv) lives in root\default namespace.
Set wmiNameSpace = wmiLocator.ConnectServer(wshNetwork.ComputerName, "root\default")
Set objRegistry = wmiNameSpace.Get("StdRegProv")



Function DeleteRegEntry(sHive, sEnumPath)
' Attempt to delete key.  If it fails, start the subkey
' enumration process.
lRC = objRegistry.DeleteKey(sHive, sEnumPath)

' The deletion failed, start deleting subkeys.
If (lRC <> 0) Then

' Subkey Enumerator
   On Error Resume Next

   lRC = objRegistry.EnumKey(HKEY_LOCAL_MACHINE, sEnumPath, sNames)

   For Each sKeyName In sNames
      If Err.Number <> 0 Then Exit For
      lRC = DeleteRegEntry(sHive, sEnumPath & "\" & sKeyName)
   Next

   On Error Goto 0

' At this point we should have looped through all subkeys, trying
' to delete the registry key again.
   lRC = objRegistry.DeleteKey(sHive, sEnumPath)

End If

End Function
				

' Entry Point
Msgbox "Attention, ce script va nettoyer votre base de registre "& vbCrLf & "d'anciennes installation de KDIS  (6.0.2 à 6.0.4.7) ."

' Set Key Paths here
' Trophy Windows6 installation 6.0.2
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\C7B945ACBE965F246A04099AD457746C")

' Trophy Windows6 installation 6.0.3.8
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\6E249371FE9A6904584E2252743EF056")

' Trophy Windows6 installation 6.0.4.7
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\EB3D65F918B37B74A8A8CFC2C868099A")


' kdis software installation 6.0.4.7
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\77EB64EBFF28BF74B9CCFA5943A27E76")

' Trophy Imaging software
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\20B1EC505A00D57499BE2A2A290C8652")

' Patient File
lRC = DeleteRegEntry(HKEY_CLASSES_ROOT,"Installer\Products\BEB73A70FEC87E64FA7B6C912AE00E02")






lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\20B1EC505A00D57499BE2A2A290C8652")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\BEB73A70FEC87E64FA7B6C912AE00E02")

' Trophy Windows 6.0.2
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\C7B945ACBE965F246A04099AD457746C")

' Trophy Windows 6.0.3.8
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\6E249371FE9A6904584E2252743EF056")

' Trophy Windows 6.0.4
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\EB3D65F918B37B74A8A8CFC2C868099A")

' Kdis 6.0.4.7
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Classes\Installer\Products\77EB64EBFF28BF74B9CCFA5943A27E76")




' Trophy Windows 6.0.2
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{05CE1B02-00A5-475D-99EB-A2A292C06825}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{CA549B7C-69EB-42F5-A640-90A94D7547C6}")

' Trophy windows 6.0.3.8
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{05CE1B02-00A5-475D-99EB-A2A292C06825}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{173942E6-A9EF-4096-85E4-222547E30F65}")

' Trophy windows 6.0.4.7
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9F56D3BE-3B81-47B7-8A8A-FC2C8C8690A9}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{173942E6-A9EF-4096-85E4-222547E30F65}")

' Kdis 6.0.4.7
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{07A37BEB-8CEF-46E7-AFB7-C619A20EE020}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{BE46BE77-82FF-47FB-9BCC-AF95342AE767}")



lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield Uninstall Information\{05CE1B02-00A5-475D-99EB-A2A292C06825}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield Uninstall Information\{07A37BEB-8CEF-46E7-AFB7-C619A20EE020}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield Uninstall Information\{CA549B7C-69EB-42F5-A640-90A94D7547C6}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield Uninstall Information\{BE46BE77-82FF-47FB-9BCC-AF95342AE767}")

lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{05CE1B02-00A5-475D-99EB-A2A292C06825}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{07A37BEB-8CEF-46E7-AFB7-C619A20EE020}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{CA549B7C-69EB-42F5-A640-90A94D7547C6}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{9F56D3BE-3B81-47B7-8A8A-FC2C8C8690A9}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{173942E6-A9EF-4096-85E4-222547E30F65}")
lRC = DeleteRegEntry(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\InstallShield_{BE46BE77-82FF-47FB-9BCC-AF95342AE767}")



Msgbox "La base de registre à été nettoyée ..."