Script um Software zu deinstallieren

Hallo miteinander,

ich hab mir hier ein kleines Script gebastelt welches eine bestimmte Software auf einem Remote-Client deinstallieren soll.

Hier ist das Script:

strComputer = "**Systemname**"   
strDomain = "**DOMAIN**"   
Wscript.StdOut.Write "Please enter your user name:"  
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")  
Wscript.StdOut.Write "Please enter your password:"  
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
    "root\cimv2", _  
     strUser, _
     strPassword, _
     "MS_409", _  
     "ntlmdomain:" + strDomain)  


Set colSwbemObjectSet = _
    objSWbemServices.ExecQuery("Select * from Win32_Product " _  
        & "Where Name = 'SW-Displayname'")  


For Each objSoftware in colSWbemObjectSet
    objSoftware.Uninstall()
next

..........

Soweit so gut, Computernamen und Domain eingetragen, script gestartet. Username und PW eingegeben.... es läd kurz und ist dann fertig. Keine Fehlermeldung, nix... die Software ist nun leider immernoch nicht von meinem Rechner verschwunden.... Die WMI-Abfrage funktioniert zu 100 % (habs ausprobiert!). Könnt ihr mir helfen?
wscript.StdOut.Write "uninstall sucess"
Next