The DCOMShim allows you to use alternate credentials from within VBScript, or even in .NET, prior to the first run of the RCW. Below is a sample way to use the object in VBScript.


'Replace your remote create object call (next line) with the shim object (line after next):
Set remoteObj = CreateObject("TestProj.Test", "myserver")
Set shimob = CreateObject("delegateshim.delegateshimobject.1")

msgbox("createobject worked")

'Replace "TestProj.Test" with your target object's progid.
Set remoteObj = shimob.createdelegateableobject("TestProj.Test", "rpcss/myserver.domain.com", "myserver")

msgbox("createdelegateableobject worked")

'Replace "DoSomethingWithAnotherMachine()" with your target object's method call
remoteObj.DoSomethingWithAnotherMachine()

msgbox ("Remote method call worked.")

msgbox ("done")

Set remoteObj = nothing
Set shimobj = nothing

Last edited Jan 19, 2011 at 8:57 PM by clamont, version 2

Comments

No comments yet.