30 lines
1.0 KiB
Plaintext
30 lines
1.0 KiB
Plaintext
Function U(hexList)
|
|
Dim parts, part
|
|
parts = Split(hexList, ",")
|
|
For Each part In parts
|
|
U = U & ChrW(CLng("&H" & part))
|
|
Next
|
|
End Function
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
root = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
Set shell = CreateObject("WScript.Shell")
|
|
|
|
desktop = shell.SpecialFolders("Desktop")
|
|
shortcutName = U("8282,76EE,70ED,5EA6,91C7,96C6,5DE5,5177") & ".lnk"
|
|
launcherExe = U("8282,76EE,70ED,5EA6,91C7,96C6,5DE5,5177") & "-" & U("72EC,7ACB,7A97,53E3,7248") & ".exe"
|
|
target = root & "\" & launcherExe
|
|
|
|
If Not fso.FileExists(target) Then
|
|
MsgBox U("672A,627E,5230,542F,52A8,6587,4EF6") & vbCrLf & target, vbExclamation, U("5B89,88C5,5931,8D25")
|
|
WScript.Quit 1
|
|
End If
|
|
|
|
Set shortcut = shell.CreateShortcut(desktop & "\" & shortcutName)
|
|
shortcut.TargetPath = target
|
|
shortcut.WorkingDirectory = root
|
|
shortcut.Description = U("8282,76EE,70ED,5EA6,91C7,96C6,5DE5,5177")
|
|
shortcut.Save
|
|
|
|
MsgBox U("5DF2,5B89,88C5,5230,684C,9762") & vbCrLf & desktop & "\" & shortcutName, vbInformation, U("5B89,88C5,5B8C,6210")
|