home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _608e1a3a7adcdc5605eae1ac3b64af0a < prev    next >
Text File  |  2000-03-15  |  249b  |  7 lines
  1. <Job Id="heh">
  2. Set WshShell = WScript.CreateObject("WScript.Shell")
  3. Set oShellLink = WshShell.CreateShortcut("Current Script.lnk")
  4. oShellLink.TargetPath = WScript.ScriptFullName
  5. oShellLink.IconLocation = "notepad.exe, 0"
  6. oShellLink.Save
  7. </job>