1

すべてのユーザーのスタート メニュー ( C:\ProgramData\Microsoft\Windows\Start Menu) にショートカットを作成する際に問題があります。

Set wsc = WScript.CreateObject("WScript.Shell")
Set lnk = wsc.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\My app.LNK")

lnk.targetpath = "C:\Program Files\my app\my  app.exe"
lnk.workingdirectory = "C:\Program Files\my app" 
lnk.save
4

1 に答える 1

1

そのための解決策を見つけました。ここに、ショートカット作成スクリプトの前に追加する必要があるスクリプトがあります

If WScript.Arguments.Named.Exists("elevated") = False Then
  'Launch the script again as administrator
  CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
  WScript.Quit
Else
  'Change the working directory from the system32 folder back to the script's folder.
  Set oShell = CreateObject("WScript.Shell")
  oShell.CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
End If
于 2015-01-13T22:46:37.720 に答える