从 vbscript 静默运行 cmd

Question

我创建了以下 runas.vbs 脚本：

**************
Option explicit

Dim oShell, k

Const PASSWORD = "Pass123~"

set oShell= Wscript.CreateObject("WScript.Shell")

WScript.Sleep 500

oShell.run("RunAs /noprofile /user:%computername%\postgres " & Chr(34) & "cmd /c\" & 

Chr(34) & WScript.Arguments(0) & "\" & Chr(34) & Chr(34))

WScript.Sleep 1000

For k=1 To Len(PASSWORD)

  WScript.Sleep 200

  oShell.SendKeys Mid(PASSWORD,k,1)

Next

Wscript.Quit

**************

我在批处理文件中使用这个 vbscript 来运行 initdb.exe (Postgresql)。 用作：

cscript //Nologo //B runasNSPostgres.vbs ""%LG_PATH%\initdb.exe" --locale=C --encoding=UTF-8  -U %DBADMIN% -D "%DBDATA%""

执行此命令时，将打开另一个命令提示符屏幕，该屏幕将启动 initdb 处理。我不希望出现新的 cmd 提示屏幕。我希望 initdb.exe 在后台运行。

Answer 1

如果您隐藏命令提示符窗口，您将无法使用SendKeys 向其发送您的密码击键。

不过，您可以使用其他方法。尝试使用ECHO 命令并将其输出通过管道传输到RunAs。

oShell.Run "echo " & PASSWORD & " | runas /noprofile ...", 0

使用0 作为第二个参数来防止窗口出现。