获取用户的输入并运行命令行

Question

当我在框中粘贴用户名时，脚本将打开命令行并运行命令以获取用户的信息。

strInput = InputBox("prompt")
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "cmd net1 user &InputBox /domain" 
Set oShell = Nothing

我已经尝试了上述内容，但它似乎没有效果。请帮帮我。

Answer 1

您想使用/ K开关，它告诉CMD执行列出的命令。此外，您需要从引号中提取strInput变量：

strInput = InputBox("prompt")
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Run "cmd /K net1 user " & strInput & " /domain" 
Set oShell = Nothing