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 /savecred /user:administrator "yourprogrampathhere.exe" 

只要確保名爲「管理員」的用戶確實存在。順便說一下，在快捷方式的屬性窗口中有一個標誌，我只是不知道如何使用WShell方式來完成它，但是這個解決方案可能工作。 該行需要改變：

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

如果你想知道爲什麼我把太多的引號，不要擔心。他們習慣於逃避最初的引號。祝你有美好的一天，我希望你的計劃能夠奏效！

編輯：使用這將提示您輸入管理員密碼。你必須有其中一個，因爲空密碼是不允許的。密碼將被保存，直到下次系統重啓時纔會再次提示。