Попытка создать ярлык в пакете для сервера

Question

Попытка создать ярлык в пакетном режиме с помощью VBScript. Мне нужно изменить свойства пути, чтобы он мог работать в режиме без графики.

set SCRIPT="%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs" 
echo Set oWS = WScript.CreateObject("WScript.Shell") >> %SCRIPT% 
echo Set shortcut = oWS.CreateShortcut("%USERPROFILE%\Desktop\unturned.exe -batchmode -nographics +secureserver/TheServer.lnk") >> %SCRIPT% 
echo shortcut.TargetPath = "D:\SteamLibrary\SteamApps\common\Unturned\Unturned.exe" >> %SCRIPT% 
echo shortcut.Save >> %SCRIPT% 


cscript /nologo %SCRIPT% 
del %SCRIPT% 

Нельзя сохранить.

Answer 1

Это должно было трюк:

@echo off 
Set vbsfile=%TEMP%\%RANDOM%.vbs 
Set MyFile=D:\SteamLibrary\SteamApps\common\Unturned\Unturned.exe 
Set ShorcutName=Unturned 
(
echo Call Shortcut("%MyFile%","%ShorcutName%"^) 
echo ^'**********************************************************************************************^) 
echo Sub Shortcut(CheminApplication,Nom^) 
echo Dim objShell,DesktopPath,objShortCut,MyTab 
echo Set objShell = CreateObject("WScript.Shell"^) 
echo MyTab = Split(CheminApplication,"\"^) 
echo If Nom = "" Then 
echo Nom = MyTab(UBound(MyTab^)^) 
echo End if 
echo DesktopPath = objShell.SpecialFolders("Desktop"^) 
echo Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "\" ^& Nom ^& ".lnk"^) 
echo objShortCut.TargetPath = Dblquote(CheminApplication^) 
echo ObjShortCut.IconLocation = "Winver.exe,0" 
echo objShortCut.Save 
echo End Sub 
echo ^'********************************************************************************************** 
echo ^'Fonction pour ajouter les doubles quotes dans une variable 
echo Function DblQuote(Str^) 
echo DblQuote = Chr(34^) ^& Str ^& Chr(34^) 
echo End Function 
echo ^'********************************************************************************************** 
) > %vbsfile% 
Start /Wait %vbsfile% 
Del %vbsfile% 
::**************************************************************************************************** 

Answer 2

set SCRIPT="%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs" 
echo Set oWS = WScript.CreateObject("WScript.Shell") >> %SCRIPT% 

echo Set shortcut = oWS.CreateShortcut("%USERPROFILE%\Desktop\unturned.exe.lnk") >> %SCRIPT% 

echo shortcut.TargetPath = "D:\SteamLibrary\SteamApps\common\Unturned\Unturned.exe -batchmode -nographics +secureserver/TheServer" >> %SCRIPT% 

echo shortcut.Save >> %SCRIPT% 


cscript /nologo %SCRIPT% 
del %SCRIPT%