VB.Net - 使用“以管理员身份运行”的进程执行 vbscript

Question

我有一个要在我的 vb.net 应用程序中运行的 vbscript 文件。在应用程序中，脚本“必须”使用进程。原因是它实际上是从 Windows 进程中调用的。为了让我手动执行 vbscript，我必须右键单击快捷方式并选择“以管理员身份运行”。

如何使用 vb.net 进行模拟？目前执行有效，因为我只用它创建了一个文本文件对其进行了测试。另外，我想假设用户在管理员组中，并且不希望他们每次都必须登录，因为它将每分钟执行一次。

我的代码：

Dim foo As New System.Diagnostics.Process
foo.StartInfo.WorkingDirectory = "c:\"
foo.StartInfo.RedirectStandardOutput = True
foo.StartInfo.FileName = "cmd.exe"
foo.StartInfo.Arguments = "%comspec% /C cscript.exe //B //Nologo C:\aaa\test.vbs"
foo.StartInfo.UseShellExecute = False
foo.StartInfo.CreateNoWindow = True
foo.Start()
foo.WaitForExit()
foo.Dispose()

谢谢。

Answer 1

ProcessStartInfo 类有两个属性，可用于定义运行脚本的用户名

ProcessStartInfo.UserName
ProcessStartInfo.Password

请注意来自 MSDN： The WorkingDirectory property must be set if UserName and Password are provided. If the property is not set, the default working directory is %SYSTEMROOT%\system32.

Password 属性是 SecureString 类型。这个类需要这样一个特殊的初始化代码：

  ' Of course doing this will render the secure string totally 'insecure'
  Dim pass As String = "Password"
  Dim passString As SecureString = New SecureString()
  For Each c As Char In pass
     passString.AppendChar(ch)
  Next   

所以你的代码可以这样改变

Dim foo As New System.Diagnostics.Process   
foo.StartInfo.WorkingDirectory = "c:\"   
foo.StartInfo.RedirectStandardOutput = True   
foo.StartInfo.FileName = "cmd.exe"   
foo.StartInfo.Arguments = "%comspec% /C cscript.exe //B //Nologo C:\aaa\test.vbs"   
foo.StartInfo.UseShellExecute = False   
foo.StartInfo.CreateNoWindow = True   
foo.StartInfo.UserName = "administrator"
foo.StartInfo.Password = passString
foo.Start()   
foo.WaitForExit()   
foo.Dispose()