Advertisement
Guest User

Untitled

a guest
Feb 10th, 2013
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. set WshShell = WScript.CreateObject("WScript.Shell")
  2. strDesktop = WshShell.SpecialFolders("Desktop")
  3. firefoxFolder = "C:\Program Files (x86)\Mozilla Firefox"
  4. set oShellLink = WshShell.CreateShortcut(strDesktop & "\Not Firefox.lnk")
  5. oShellLink.TargetPath = firefoxFolder & "\firefox.exe"
  6. oShellLink.IconLocation = firefoxFolder & "\firefox.exe"
  7. oShellLink.Description = "Shortcut Script 222"
  8. oShellLink.WorkingDirectory = firefoxFolder
  9. oShellLink.Save
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement