cannot create ActiveX object calling WMI in VB.Net

[relasoft]

Hello guys,

I have code that works fine in Windows Forms application:

Dim objWMIService As Object
objWMIService = GetObject("winmgmts: " _
& "{impersonationLevel=impersonate}!\\" & lcServerIP & "\root\cimv2")


Same code crashes when I call it from Windows Service application doing the same thing. I run service under both Local System and my user name.

lcServerIP - is remote server name.

Any ideas anybody?

[Plater]

I was just wondering, why are you creating it with GetObject, and not using the .net object ManagementObject ?

[relasoft]

ManagementObject was causing me grief when I tried to connect to the server with firewall. Big time.

Thanks to everyone paying attention, I found the solution: services are running under their own security authentication. So, explicitly specify user name and password for remote machines and everything goes fine, except local machine will refuse it.

Dim objSWbemLocator, objSWbemServices As Object
objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

objSWbemServices = objSWbemLocator.ConnectServer _
("remoteServer", "root\cimv2", "UID", "PWD")
colItems = objSWbemServices.ExecQuery("Select * from Win32_OperatingSystem")

the rest is the same.


Regards,
Alexander