VBScript для удаления ничего не обнаруживает

Я начал использовать стандартный сценарий удаления, и он не работал, поэтому я решил посмотреть, находит ли он вообще какие-либо программы, но, похоже, это не так. Он работает на Windows 7, но не работает на другом сервере Windows 2003, на котором мне нужно его использовать. Я вошел в систему как местный администратор,

Сценарий ниже создал ошибку:

Line: 4
Char: 1
Error: 0x80041010
Code: 80041010
Source: (null)

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
    MsgBox("hi")
Next