[Iska]

Удаляет-то, может, он и удаленно, »

Тоже локально.

Raistlin, проверить в данный конкретный момент нет возможности, но вот Вам примерная болванка кода:

Код:

Option Explicit

Dim strProductName
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


strProductName = "Google Toolbar for Internet Explorer"
strComputer    = "MyServer"

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

objSWbemServicesEx.Security_.Privileges.AddAsString "SeDebugPrivilege"

Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery( _
	"SELECT * FROM Win32_Product " & _
	"WHERE Name = '" & strProductName & "'")

For Each objSWbemObjectEx In collSWbemObjectSet
	objSWbemObjectEx.Uninstall
Next

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0