Sign in to follow this  
Followers 0
friendfox

Symantec pcAnywhere OLE Automation

4 posts in this topic

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

Share this post


Link to post
Share on other sites



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.


Certifications: A+, Network+, Security+, Linux+, LPIC-1, MCSA | Languages: AutoIt, C, SQL, .NETBooks: AutoIt v3: Your Quick Guide - $7.99 - O'Reilly Media - September 2007-------->[u]AutoIt v3 Development - newbie to g33k[/u] - Coming Soon - Fate Publishing - Spring 2013UDF Libraries: SkypeCOM UDF Library | ADUC Computers OU Cleanup | Find PixelChecksumExamples: Skype COM Examples - Skype4COMLib Examples converted from VBS to AutoIt

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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)

Certifications: A+, Network+, Security+, Linux+, LPIC-1, MCSA | Languages: AutoIt, C, SQL, .NETBooks: AutoIt v3: Your Quick Guide - $7.99 - O'Reilly Media - September 2007-------->[u]AutoIt v3 Development - newbie to g33k[/u] - Coming Soon - Fate Publishing - Spring 2013UDF Libraries: SkypeCOM UDF Library | ADUC Computers OU Cleanup | Find PixelChecksumExamples: Skype COM Examples - Skype4COMLib Examples converted from VBS to AutoIt

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0