save below code in notepad and save it with application_uninstaller.vbs
On error resume Next
Dim strName, WshShell, oReg, keyname
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strComputer = "."
'=============================================
'Change the Code here
Input = Ucase(InputBox("Copy Righted by @crackmind Enter Application Name as in ARP:", "App Name"))
If Input="" then
wscript.quit
Else
str1=Input
End If
'=============================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
currentDirectory = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
Set filetxt = fso.OpenTextFile(currentDirectory & "UninstallString.txt", 2, True)
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
keyname = ""
keyname = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey & "\DisplayName")
str2 = UCase(keyname)
strCmp = InStr(1, Str2, Str1)
If Not strCmp = 0 then
If Not InStr(1, subkey, "{") = 0 Then
i = subkey
Exit For
Else
i = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey & "\UninstallString")
'MsgBox i,0,keyname & " Uninstall String"
filetxt.WriteLine i
filetxt.Close
WshShell.Run("notepad " & currentDirectory & "UninstallString.txt")
wscript.quit
End If
End If
Next
If i then
'MsgBox "MSIEXEC.EXE /X " & i & " /QN",0,keyname & " Uninstall String"
'WshShell.Run "MSIEXEC.EXE /X " & i & " /QN", 1, True
filetxt.WriteLine "MSIEXEC.EXE /X " & i & " /QN"
filetxt.Close
WshShell.Run("notepad " & currentDirectory & "UninstallString.txt")
End If
Set WshShell = Nothing
set ObjReg = Nothing
WScript.Quit
copy above script in notepad and save it as application_uninstaller.vbs
Note- this script will work only on MSI files
tested on 2000/Xp
not tested on win 7..
when u execute this script on ur systme it will ask you to Enter Application Name as in ARP
you to put the application name which you want to remove from you system
you can get your application correct name in add/remove program windows
If any query mail me here crackmindd717@gmail.com
I will be coming with latest hacking post...............
If any suggestion feel free to mail me
