vb.net - VB2010 : Create shortcut on desktop programmatically that runs as administrator

Question

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

这是我的代码:

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"

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

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

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

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