Symantec pcAnywhere OLE Automation

[friendfox]

I hope has one "Symantec pcAnywhere OLE Automation with autoit" project

Use its "SpeeedSend" copy or updata files from one compute to another so fast

Can U help me?THX

[Airwolf]

I hope has one "Symantec pcAnywhere OLE Automation with autoit" project

Use its "SpeeedSend" copy or updata files from one compute to another so fast

Can U help me?THX

I'd love to help, but I can't decipher what you're problem is. I don't mean to be rude - I just don't understand your post.

[friendfox]

Symantec pcAnywhere OLE Automation

I can not use the OLE of Symantec pcAnywhere with autoit3

I hope use the "SpeedSend" of Symantec pcAnywhere with autoit3

[Airwolf]

Symantec pcAnywhere OLE Automation

I can not use the OLE of Symantec pcAnywhere with autoit3

I hope use the "SpeedSend" of Symantec pcAnywhere with autoit3

You can use AutoIt to interact with Symantec OLE. You need to use objects similar to how you'd use them in VB. For example, here is a VB example converted to AutoIt (found here):

VB -

Dim oTestApp, strSource, strDestination, strCommandSet
oTestApp = CreateObject("AWREM32.APPLICATION")
oTestApp.awConnect("C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere\test.chf")</P> <P>'Transfer From Host
strSource = "C:\testfile.txt"
strDestination = "C:\temp\testfile.txt"
bResult = oTestApp.FileXferFromHost(strSource, strDestination)
if bResult = True then  
 MsgBox "Transfer from host successful"
elseif bResult = False then  
 MsgBox "Transfer from host not successful"
end if
 
'Transfer to Host
strSource = "C:\temp\testfile.txt"
strDestination = "C:\testfile.txt"
bResult = oTestApp.FileXferToHost(strDestination, strSource)
if bResult = True then 
MsgBox "Transfer from host successful"
elseif bResult = False then  
 MsgBox "Transfer from host not successful"
end if
 
'Execute Program on remote computer
strCommand = "C:\winnt\notepad.exe"
bResult = oTestApp.ExecuteHostFile(strCommand)

AutoIt -

$oTestApp = ObjCreate("AWREM32.APPLICATION")
$oTestApp.awConnect("C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere\test.chf")

;Transfer From Host
$strSource = "C:\testfile.txt"
$strDestination = "C:\temp\testfile.txt"
$bResult = $oTestApp.FileXferFromHost($strSource, $strDestination)
If $bResult = True Then  
 MsgBox(0,"","Transfer from host successful")
ElseIf $bResult = False Then  
 MsgBox(0,"","Transfer from host not successful")
EndIf
 
;Transfer to Host
$strSource = "C:\temp\testfile.txt"
$strDestination = "C:\testfile.txt"
$bResult = $oTestApp.FileXferToHost($strDestination, $strSource)
If $bResult = True Then 
 MsgBox(0,"","Transfer from host successful")
ElseIf $bResult = False then  
 MsgBox(0,"","Transfer from host not successful")
EndIf
 
;Execute Program on remote computer
$strCommand = "C:\winnt\notepad.exe"
$bResult = $oTestApp.ExecuteHostFile($strCommand)