0

私はvbスクリプトやコマンドラインに関しては完全な素人なので、ご容赦ください..

Wshshell.sendkeys を使用してキーを送信するための vb スクリプトsend.vbsを作成しました。このスクリプトでは、vsh コマンドを使用して vshell に入ります。vsh に入ると 2 つのオプションが表示されます。その中からオプション 2 を選択し、出力がテキスト ファイルにリダイレクトされるコマンドを実行しています。次に、このファイルを別のサーバーに ftp します。ここで、この VB スクリプトを 10 分ごとに実行するようにスケジュールします。このスクリプト ファイルをダブルクリックすると、黒いウィンドウが一瞬開いてシャットダウンします。コマンドは実行されません。しかし、手動でコマンド ウィンドウを開き、スクリプトがあるパスに移動して実行すると、正常に動作し、目的の出力が得られます。

cscript send.vbsを使用してバッチ ファイルを作成し、10 分ごとに実行するようにスケジュールしてみました。ただし、このバッチ ファイルは vbscript を実行しません。コマンドプロンプトを開き、そのコマンドプロンプトでこのvbスクリプトを実行するバッチフィールドを作成するのを手伝ってもらえますか。スクリプトは次のとおりです。

Set WshShell = wscript.CreateObject("wscript.Shell")
wshshell.sendkeys "vsh"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "2"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "tls display agents > Agentstat.txt"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "quit"
wshshell.sendkeys "{ENTER}"

どんな助けでも大歓迎です..ありがとう!!

4

1 に答える 1

0

どうぞ ...

Set WshShell = wscript.CreateObject("wscript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100 
WshShell.AppActivate "C:\Windows\system32\cmd.exe" 
WScript.Sleep 100 
wshshell.sendkeys "vsh"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "2"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "tls display agents > Agentstat.txt"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "PAUSE"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "quit"
wshshell.sendkeys "{ENTER}"
于 2013-09-04T07:48:45.433 に答える