title: Creating a lnk in VBS
body: <p>I get an error that on line 6, the one with lnk.TargetPath, that the argument is invalid. I am hoping to make a link to this program under the start menu on the desktop. Anybody know why it is doing this?</p>
  
  <pre><code>Set objShell = WScript.CreateObject("WScript.Shell")
  Set lnk = objShell.CreateShortcut("C:\Users\%USERDATA%\Desktop\Shutdown.LNK")
  Dim strUserProfile
  strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
  
  lnk.TargetPath = "C:\Users\" &amp; strUserProfile &amp; "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat"
  lnk.Arguments = ""
  lnk.Description = "Shutdown"
  'lnk.HotKey = "ALT+CTRL+F"
  lnk.IconLocation = "C:\Users\" &amp; strUserProfile &amp; "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat, 2"
  lnk.WindowStyle = "1"
  lnk.WorkingDirectory = "C:\Users\" &amp; strUserProfile &amp;"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs"
  lnk.Save
  Set lnk = Nothing
  </code></pre>