Create Shortcut

Set wshShell = WScript.CreateObject("WScript.Shell")

Set argL = WScript.Arguments
user = argL(0)
loc = argL(1)

Set lnk = wshShell.CreateShortcut(loc)

lnk.TargetPath = user & "\AppData\Roaming\shutdown.bat"
lnk.Arguments = ""
lnk.Description = "Shutdown"
lnk.IconLocation = user & "\AppData\Roaming\shutdown.bat, 0"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "C:\temp"
lnk.Save()
Set lnk = Nothing