VBScript

質問

下記、プログラムを実行すると、コマンドプロンプトの画面が
消えずに、そのまま残ってしまいます。
どうしたら、画面を消すことができるでしょうか。
お力添えをお願いいたします。

Set WshShell = Wscript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("user")
WshEnv("C:\NET\aaa.txt") = "administrator"
Wshshell.Run("cmd.exe")
WScript.Sleep(500)
WshShell.SendKeys("runas /user:administrator " + chr(34) + "xcopy D:\NET\aaa.txt C:\NET\aaa.txt" + chr(34))
WshShell.SendKeys("{Enter}")
WScript.Sleep(500)
WshShell.AppActivate "C:\WINDOWS\system32\runas.exe"
WshShell.SendKeys("XXXXX")
WshShell.SendKeys("{Enter}")
WScript.Sleep(500)

回答No.1

pkh4989 · ベストアンサー

最後の行に以下を追加してみてください。

WshShell.SendKeys("exit")
WshShell.SendKeys("{Enter}")

お礼

ありがとうございます！閉じるようになりました！！

回答No.2

nda23

>Wshshell.Run("cmd.exe")
>WScript.Sleep(500)
不要です。

>WshShell.SendKeys("runas /user:administrator " + chr(34) + "xcopy D:\NET\aaa.txt C:\NET\aaa.txt" + chr(34))
　　　　　　　　　　　　↓
WshShell.Run "runas /user:administrator ""xcopy D:\NET\aaa.txt C:\NET\aaa.txt"""
修正してみてください。chr(34)の代わりに引用符を二重にします。

お礼

ありがとうございます！