![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
どなたかご存知の方いらっしゃいましたら教えて下さい。
VISUAL BASICからSYMANTECのPC-ANYWHEREを実行するにはどうしたら良いのでしょうか。
具体的にやりたいこととしては、
(1)VBからリモートオブジェクトを作成し、既存のホストに接続
(2)リモート側からホスト側へ指定したフォルダにテキストファイルを送信
(3)送信完了後、ホストにインストール済みのプログラムを実行し、処理を行う。
(4)ホスト側のプログラムからは処理成否のログデータが吐き出されるので、それをリモート端末にコピー。
(5)接続を切る。
以上のようなことです。
ちなみにPC-ANYWHEREのバージョンは10.0、VBは5.0SP3です。
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
pc-anywhereを使った事がないので詳しくわかりませんが
pc-anywhereはAPIに対応しているんですか?
私の会社でも別のリモート操作ができるソフトを使用していますが、
そのソフトはAPI対応していません。
それよりも処理の内容として
1・ファイルのコピー
2・EXEの実行
3.ログファイルのコピー
って事ならVBだけで対応できると思うのですが・・・
私も詳しくはないので詳しく説明できませんが
VBでリモート端末のAPLを実行する事は可能なはずです。
ただリモートで起動させるAPLを実行中に手作業が発生する(何か入力しないと
いけない処理がある等)場合は無理ですが・・・
すみません、出張の為お礼遅れてしまいました。
お返事、ありがとうございました。
anywhereはapi対応しておらず、結局は以下のような記述でごまかしてしまいました。
================================
Dim CRemoteDataManager As Object
Dim CRemoteData As Object
Dim AWREM As Object
Dim s As Boolean
'オブジェクトを作成する。
Set CRemoteDataManager = _
CreateObject("WINAWSVR.REMOTEDATAMANAGER")
Set CRemoteData = CRemoteDataManager.RetrieveObject(CHFNAME$, 3, "")
Set AWREM = CreateObject("AWREM32.APPLICATION")
'CHFファイルを実行し接続を確立する。
s = AWREM.awConnect(CHFNAME$)
If s = False Then
MsgBox AWREM.GetError()
Exit Sub
End If
DoEvents
'リモート端末からホスト端末へファイルをコピー
If Exist(OUTTXT$) Then
s = AWREM.FileXferToHost(HOSTPATH$, OUTTXT$)
If s = False Then
MsgBox AWREM.GetError()
Exit Sub
End If
End If
'ホスト側のプログラムを起動する。
s = AWREM.ExecuteHostFile(HSTPRG$)
If s = False Then
MsgBox AWREM.GetError()
Exit Sub
End If
'接続を解除する
s = AWREM.awDisconnect()
If s = False Then
MsgBox AWREM.GetError()
Exit Sub
End If
==============================
>VBでリモート端末のAPLを実行する事は可能なはずです。
>ただリモートで起動させるAPLを実行中に手作業が発生する(何か入力しない>と
>いけない処理がある等)場合は無理ですが・・・
やり方はわかりませんが、可能みたいですね。
どこかの技術情報ページで見た記憶があります。
ただAPLは入力なしですが、何かリモート端末で問題が起こった時にリモート操作で手動実行または問題解決しようと考えている事と、ログイン名・パスワードを別に設定できるという事を考慮してanywhereを使用することにしたのです。
的確なアドバイスありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
〔Excel:VBA〕マクロの実行が異...
-
デザイン時のVisible=Falseは実...
-
JSPの処理の途中で、JavaScript...
-
if(1){...}とはどういうことで...
-
VBA ステータスバー DoEvents
-
初心者です。gulpでコンパイル...
-
C#でボタン名を変更しても動く
-
jquery の書き始めについて
-
JSPからJAVASCRIPTの値取得
-
VB.netの重複データ数カウント...
-
PowerPointで時計表示
-
リクエスト結果が一瞬しか表示...
-
VB.netでタイマーがスタートし...
-
以下のコードを実行しても、オ...
-
ラベルの色がかわってくれない
-
VBAの[cellsメソッドは失敗しま...
-
一定時間ごとの実行
-
1つのVBAコードをすべてのコア...
-
jQuery ui Datepicker 明日以降...
-
VB.NET2003 テキストボックスに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
初心者です。gulpでコンパイル...
-
if(1){...}とはどういうことで...
-
C#でボタン名を変更しても動く
-
VBA ステータスバー DoEvents
-
デザイン時のVisible=Falseは実...
-
PowerPointで時計表示
-
〔Excel:VBA〕マクロの実行が異...
-
1つのVBAコードをすべてのコア...
-
既存のwebサイトで、ローカルの...
-
innerHTMLなどの反映タイミング
-
VBA SORT Applyでエラー
-
Excelのマクロ一括実行ができな...
-
resizeToメソッドが動作しません
-
JavaScriptでショートカットキ...
-
jQuery ui Datepicker 明日以降...
-
CTRL + Xを無効にしたい
-
アクセスのフォームでタイマー...
-
javascriptで最初のところに戻...
-
リクエスト結果が一瞬しか表示...
おすすめ情報