VBS でDOSのNet useについて
VBS内で DOSコマンドの net use * /delete を実行すると
必ずNで実行結果となってしまいます
DOS窓ではキーボードでｙをいれればいいのですがこの「ｙ」をVBSで渡す方法が見つかりません。
いろいろ試しているのですが・・・どうにもうまくいきません。
OSはWindows7です
-----------作成例 ある程度まではできたのですが
Dim objShell
Dim wExec
Dim sCmd0
Dim sCmd1,sCmd2,sCmd3
' コマンド生成
sCmd0 = "net use"
sCmd1 = "net use * /delete"
sCom2 = "net use /persistent:yes"
sCmd3 = "net use X: \\PC\skyhd108"
' objのセット
Set objShell = CreateObject("WScript.Shell")
' コマンド実行
Set wExec = objshell.Exec("%ComSpec% /c " & sCmd1)
Set wExec = objshell.Exec("%ComSpec% /c " & sCmd3)
Set wExec = objshell.Exec("%ComSpec% /c " & sCmd2)
Set wExec = objshell.Exec("%ComSpec% /c " & sCmd0)
Do While wExec.Status = 0
Loop
Result = wExec.StdOut.ReadAll
MsgBox Result
WScript.Echo "お疲れ様でした！"
Set wExec = Nothing
Set objShell = Nothing
