#include <MsgBoxConstants.au3>
Local $sVar = ""
For $i = 1 To 5000
$sVar = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\SharedDLLs", $i)
If @error <> 0 Then ExitLoop
If StringInStr($sVar, "Microsoft SQL Server") Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\SharedDLLs", $sVar)
Sleep(1000)
EndIf
Next