Telnetスクリプト用にwshshellにユーザー変数を挿入します

Question

Telnet IPアドレスをユーザーが提供する変数にする方法を見つけようとしています。スクリプトは正常に動作しますが、このスクリプトを実行する必要のあるホストアドレスが多数あります。それを使用するたびに、新しいIPアドレスでファイルを編集する必要があります。完全なスクリプトには、私が削除した多くのSendkeysエントリがあります。

job> 
script language="VBScript"> 
Option Explicit 
On Error Resume Next 
Dim WshShell 
set WshShell=CreateObject("WScript.Shell") 
WshShell.run "cmd.exe" 
WScript.Sleep 1000 
WshShell.SendKeys "telnet 160.221.230.127" 
WshShell.SendKeys ("{Enter}") 
WScript.Sleep 1000 
WshShell.SendKeys "user XXX XXX" 
WshShell.SendKeys ("{Enter}") 
WScript.Sleep 1000 
WshShell.SendKeys "cci resetapb cancel" 
WshShell.SendKeys ("{Enter}") 
WScript.Sleep 1000 
WScript.Quit 
</script> 
</job> 

Answer 1

あなたはInputBox

dim res: res = InputBox("enter ip address", "?", "192.168.1.1") 
msgbox res 

パラメータを使用して入力のプロンプトを表示することができますは、次のとおりです。

• プロンプト
• ダイアログのタイトル
• デフォルト

Answer 2

この例を使用

Set WshShell = CreateObject("WScript.Shell") 

ServerIP = InputBox ("Enter IP") 

WshShell.Run ("telnet " & ServerIP) 

WScript.Sleep(500) 

WshShell.SendKeys("login~") 

WScript.Sleep 100 

WshShell.SendKeys("password~") 

WScript.Sleep 100