VBA 特定SVRにID,PASSを投入したい

質問

現在 グループ外のSVRに 下記 を使ってID,PASSを投入しておりますが 成功率があまり高くありません。 この起動EXCEL を保存しますか? 等 違う画面がでてしまいます。
他に良い方法があればご教授お願いいたします。

Dim myid As Long
If Application.OperatingSystem = "Windows (32-bit) NT 5.00" Then 'windows2000
myid = Shell("c:\winnt\explorer.exe", vbNormalFocus)
Else
myid = Shell("c:\windows\explorer.exe", vbNormalFocus)
End If
If myid <> 0 Then
Application.Wait Now() + TimeValue("00:00:02")
SendKeys "%d", True
SendKeys "\\xxx.xxx.xxx.xxx", True 'IPアドレス
SendKeys "{enter}", True
Application.Wait Now() + TimeValue("00:00:01")
SendKeys "%u", True
SendKeys "xxxxxxx", True 'ID
SendKeys "{enter}", True
SendKeys "%p", True
SendKeys "xxxxxxxx", True 'PASSWORD
SendKeys "{enter}", True
SendKeys "%fc", True
Application.EnableEvents = True
Else
MsgBox "xxxSVR接続に失敗しました。" & vbCrLf & "再度実行して下さい。"
End If

回答No.3

todo36 · ベストアンサー

http://okwave.jp/qa/q4761456.html

お礼

ご回答有り難うございます。
ご教授して頂いた内容で実行してみます。
ただ テスト機はid,pass登録機ですので ほかの人のpcを借りてテストしてみます。

回答No.2

temtecomai2

最初からネットワーク ドライブにマウントさせちゃえばいいのに。

回答No.1

deltaforce_1

この方法は思いつきませんでした…^^;

2秒後（？）にexplorerが開かれる事、
対象にアクセスして1秒後（？）までに応答が返ってくる事、
実行中常にフォーカスされ続けている事も前提かと思いますし、多分どこかでこれらがコケているのでしょう

方法までは覚えていませんがsendkeysで入力されている部分を一つにまとめ
IPアドレスとIDとPassを同時に入れる
または待機時間を長くすれば成功率は向上するかと思いますが…

手元にサーバに接続する為に書いたバッチファイルがあるのですが
実際に接続している部分は
net use \\[IPアドレス]\IPC$ [パスワード]/user:[ユーザ名]
この一行です

cmdにこれをキックするか、このバッチファイルを動かして結果を拾う方が早いかと思いますが…
だったら最初からバッチファイルで動かすというのは言わない約束で…

お礼

回答有り難うございます。

どうも explorer に うまくフォーカスされていない様なのです。(excel 2000,2002,2003同様)
動作は explorer を起動して 2秒待ち ip 投入 し 1秒待ち id投入、pass投入です。