VB2010：以编程方式在桌面上创建以管理员身份运行的快捷方式

Question

我在下面使用这种方式在用户桌面上创建快捷方式。我也希望他们以管理员身份运行。我在 StackOverflow 中找到了 this，但是...我想以编程方式而不是手动执行相同的操作。

这是我的代码：

Private Sub CreateShortcuts()
    Dim NewDir = AppFolder.Text
    Dim WSH As Object = CreateObject("WScript.Shell")
    WSH = CreateObject("WScript.Shell")
    Dim MyShortcut, DesktopPath
    DesktopPath = WSH.SpecialFolders("Desktop")

    MyShortcut = WSH.CreateShortcut(DesktopPath & "\Application Controller.lnk")
    MyShortcut.TargetPath = WSH.ExpandEnvironmentStrings(NewDir & "\Application.exe")
    MyShortcut.WorkingDirectory = WSH.ExpandEnvironmentStrings(NewDir)
    MyShortcut.WindowStyle = 1
    MyShortcut.IconLocation = NewDir & "\Application.exe"
    MyShortcut.Save()
End Sub

Answer 1

我认为您正在搜索“runas”命令。你可以说你的目标程序的命令行参数是：

runas /savecred /user:administrator "yourprogrampathhere.exe"

只需确保名为“管理员”的用户确实存在。顺便说一句，快捷方式的“属性”窗口上有一个标志，我只是不知道如何使用 WShell 方式进行操作，但此解决方案可能有效。 此行需要更改：

 MyShortcut.TargetPath = WSH.ExpandEnvironmentStrings("runas /savecred /user:administrator """ & NewDir & "\Application.exe""")

如果您想知道为什么我放了太多引号，请不要担心。它们用于转义初始引号。祝您有美好的一天，我希望您的程序能够成功！

编辑：使用它会提示您输入管理员密码。您必须拥有其中之一，因为不允许使用空密码。密码将被保存，下次系统重启前不会再次提示。