'Uninstall NetMeeting
'For uninstalling the Microsoft NetMeeting. 
'UninstallNeetMeeting.vbs
'© Robert Dunham - 1/19/2006
'Downloaded from http://www.nilpo.com
On Error Resume Next

message = "This script provided by Nilpo.com" + vbcr + vbcr
message = message + "This script will uninstall Microsoft NetMeeting." + vbcr +vbcr
message = message + "Do you want to continue?"

result = msgBox(message, _
	VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
	"Windows Messenger Uninstaller")

If result = vbNo Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
cmdLine = "rundll32.exe setupapi,InstallHinfSection NetMtg.Remove 132 msnetmtg.inf"
WshShell.Run cmdLine, 0, FALSE

Set WshShell = Nothing
Wscript.Quit