using ObjCreate for remote machine

[leighlandwhitehead]

Hi guys , 

i am using the ObjCreate function with the server name , username and password parameters so i can call windows updates on a remote machine.

i am having a problem with connecting to the remote PC , which has remote registry enabled and also the file and printer sharing is turned on.

i am currently testing with the example script (windows media player) that comes with the installer and i am having the same issue here (code below).

 

#include <MsgBoxConstants.au3>

 

; AutoItCOM 3.1.1

;

; Test file

;

; Test usage of creating objects on a remote computer

;

; Notes:

;

; - The remote Object must have DCOM (Distributed COM) functionality.

; - The remote computer must have 'Remote Registry Service' and 'File and Printersharing' turned on!

;

; To check for any DCOM-Enabled Objects, use DCOMCNFG.EXE (=Component Services MMC) on the remote computer.

 

Local $sRemoteComputer = "leighlandwtest-" ; Change this to your remote computer name

Local $sRemoteUsername = "leighlandwtest-leighland" ; Change this to your username on the remote computer

Local $sRemotePassword = "test" ; Change this to your password on the remote computer

 

; First install our own Error Handler

Global $g_nCOMError = 0, $g_oErrObj = ObjEvent("AutoIt.Error", "MyErrFunc")

 

; Open MediaPlayer on a remote computer

Local $oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer.1", $sRemoteComputer, $sRemoteUsername, $sRemotePassword)

 

If @error Then

MsgBox($MB_SYSTEMMODAL, "Remote ObjCreate Test", "Failed to open remote Object. Error code: " & Hex(@error, 8))

Exit

EndIf

 

MsgBox($MB_SYSTEMMODAL, "Remote Test", "ObjCreate() of a remote object successfull !")

 

Local $iEnabled = $oRemoteMedia.IsSoundCardEnabled

 

If Not @error Then

MsgBox($MB_SYSTEMMODAL, "Remote Test", "Invoking a method on a remote Object successfull!" & @CRLF & _

"Result of 'IsSoundCardEnabled?':  " & $iEnabled)

If $iEnabled = -1 Then

$oRemoteMedia.Open("c:windowsmediaWindows XP Startup.wav")

If Not @error Then MsgBox($MB_SYSTEMMODAL, "Remote Test", "Playing sound on a remote computer successful !")

EndIf

Else

MsgBox($MB_SYSTEMMODAL, "Remote Test", "Invoking a method on a remote Object Failed !")

EndIf

 

Exit

 

; ------------------------

; My custom error function

 

Func MyErrFunc()

Local $sHexnum = Hex($g_oErrObj.number, 8)

 

MsgBox($MB_SYSTEMMODAL, "", "We intercepted a COM Error!!" & @CRLF & @CRLF & _

"err.description is: " & $g_oErrObj.description & @CRLF & _

"err.windescription is: " & $g_oErrObj.windescription & @CRLF & _

"err.lastdllerror is: " & $g_oErrObj.lastdllerror & @CRLF & _

"err.scriptline is: " & $g_oErrObj.scriptline & @CRLF & _

"err.number is: " & $sHexnum & @CRLF & _

"err.source is: " & $g_oErrObj.source & @CRLF & _

"err.helpfile is: " & $g_oErrObj.helpfile & @CRLF & _

"err.helpcontext is: " & $g_oErrObj.helpcontext _

)

 

$g_nCOMError = $g_oErrObj.number

EndFunc   ;==>MyErrFunc

 

 

the script is meant to call the media player object and then play a sound on the machine however i am getting the following error :

We intercepted a COM Error!!

err.description is:

err.windescription is: No such interface supported

err.lastdllerror is: 0

err.scriptline is: 24

err.number is: 80004002

err.source is:

err.helpfile is:

err.helpcontext is:

[MikahS]

The script will have to actually be running on the remote machine to make interactions with the programs on that certain machine.

[leighlandwhitehead]

Hi Mikahs , 

Thank you for your quick reply .

how would this be as the syntax's is as follows "ObjCreate ( "classname" [, "servername" [, "username" [, "password"]]] )"  

where you can set the server name, username and password?

i know that i can run the script locally however i would like to run the object by calling it from another machine.

The example script also states to supply a remote PC : 

#include <MsgBoxConstants.au3>

; Open the MediaPlayer on a REMOTE computer

Local $oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer.1", "name-of-remote-computer")

If Not @error Then
    MsgBox($MB_SYSTEMMODAL, "Remote ObjCreate Test", "ObjCreate() of a remote Mediaplayer Object successful !")
    $oRemoteMedia.Open(@WindowsDir & "mediatada.wav") ; Play sound if file is present
Else
    MsgBox($MB_SYSTEMMODAL, "Remote ObjCreate Test", "Failed to open remote Object. Error code: " & Hex(@error, 8))
EndIf

many thanks

[water]

The object is created on the remote machine but everything else happens on the local machine.

[Melba23]

leighlandwhitehead,

We do not permit multiple accounts - I have deleted the 2 others you created in case you were wondering why they no longer worked. Please just stick to this one from now on.

M23

[leighlandwhitehead]

thank you

[leighlandwhitehead]

Hi Water , 

thanks , would you recommend another way to manipulate a remote object ?

many thanks 

[MikahS]

Have a look at this example script: >link

[water]

My understanding is that everything object related is executed on the remote machine. Everything else on the local.

[leighlandwhitehead]

My understanding is that everything object related is executed on the remote machine. Everything else on the local.

Same here , in the example you open the following $oRemoteMedia.Open("c:windowsmediaWindows XP Startup.wav") 

[leighlandwhitehead]

Hi Guys, 

anyone got any more ideas ? 

thanks alot

[water]

You got the COM error on line 24. Which statement is line 24 (I'm too lazy to copy your code and count the lines)?

[leighlandwhitehead]

Hi Water this is the line :

Local $oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer.1", $sRemoteComputer,$sRemoteUsername,$sRemotePassword)

many thanks 

[orbs]

let me jump in to show you how ignorant i am when it comes to Obj stuff:    

googling 80004002 show it relates to Windows Update. why would you get error 80004002 for something related to Windows Media Player?

secondly, i was under the impression that the application you intend to connect to over DCOM should already be running. what do you get if Windows Media Player is already running on the remote machine and then you launch your script on the local machine?

and speaking of DCOM, is it enabled on the remote machine?

[water]

When you try to run it on your local computer (means: removing , $sRemoteComputer, $sRemoteUsername, $sRemotePassword from ObjCreate), does it work?

[water]

googling 80004002 show it relates to Windows Update. why would you get error 80004002 for something related to Windows Media Player?

secondly, i was under the impression that the application you intend to connect to over DCOM should already be running. what do you get if Windows Media Player is already running on the remote machine and then you launch your script on the local machine?

and speaking of DCOM, is it enabled on the remote machine?

80004002 is not related to Windows Update. The error simply means: No such interface supported

Usually you do an ObjGet to check if the application is already running. If True you process the returned object, if False you use ObjCreate to start up the application.

[leighlandwhitehead]

Hi Orbs , 

i have tried this with media player open and i still receive the same error message, i have also made sure that all updates are on the remote PC.

Water - the script does run fine locally without the following params $sRemoteComputer, $sRemoteUsername, $sRemotePassword from ObjCreate

thanks 

[water]

Your local machiine is Windows XP as well?

[leighlandwhitehead]

Hi Water , 

the machines are both windows 7 - i have amended the script i just copied in the original example 

thanks 

[water]

What if you remove the ".1" from the classname?

Local $oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer", $sRemoteComputer, $sRemoteUsername, $sRemotePassword)

Edited November 6, 2014 by water