Vbscript Create Shortcut….
today i needed to create a shortcut for something so i wrote small script 
set WshShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = WshShell.SpecialFolders(“Desktop”)
set oShellLink = WshShell.CreateShortcut(strDesktop & “\ShortCut WTF.lnk”)
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
oShellLink.TargetPath = currentDirectory & “ClearSky-Start.exe”
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “CTRL+SHIFT+V”
oShellLink.IconLocation = currentDirectory & “ClearSky-Start.exe”
oShellLink.Description = “ShortCut WTF ?”
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Leave a comment
