Can anyone explain what I am doing wrong

[chouck]

I am trying to use this sample code on a NT4 domain. And I am at my wits end trying to figure it out. Can anyone point me in the right direction ? Thanks in advance

Const wbemImpersonationLevelDelegate = 4

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
("WebServer", "root\cimv2", "fabrikam\administrator", _
"password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate

Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\atl-dc-02\scripts\1561_lab.msi",,True)

 

[tsuji]

http://msdn.microsoft.com/library/d...i/connecting_to_a_3rd_computer-delegation.asp