使用相同的脚本通过vbs脚本打开关闭程序

时间:2015-10-08 16:35:29

标签: vbscript

我正在寻找一个简单的代码来添加到此以退出程序

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run("powershell.exe") 
wscript.sleep 2
wshshell.AppActivate "powershell"
wscript.sleep 145
wshshell.sendkeys"ipconfig /all > C:\Users\Public\file.txt"
wshshell.sendkeys"~"
wscript.sleep 300
wscript.sleep 145
wshshell.sendkeys"cls~"

2 个答案:

答案 0 :(得分:1)

只需将exit命令发送到powershell:

wshshell.sendkeys"exit~"

答案 1 :(得分:1)

您可以使用WshShell.Exec("powershell.exe")代替WshShell.Run("powershell.exe")

Set WshShell = WScript.CreateObject("WScript.Shell") 
Set app = WshShell.Exec("powershell.exe") 
wscript.sleep 2
wshshell.AppActivate "powershell"
wscript.sleep 145
wshshell.sendkeys"ipconfig /all > C:\Users\Public\file.txt"
wshshell.sendkeys"~"
wscript.sleep 300 ' **** See note below *****
wscript.sleep 145
wshshell.sendkeys"cls~"
app.Terminate

app.Terminate会关闭您的计划。

注意: 在关闭应用程序之前,app.Terminate不会等待您的任务完成。使用上面的代码,它将在PowerShell完全加载之前关闭它。

快速解决方法是增加睡眠时间。

wscript.sleep 300

10000的休眠时间是对PowerShell加载和ipconfig命令执行的安全猜测。