home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 December (Special) / PCWorld_2004-12_Special_cd.bin / Windows / komfort / komfort.exe / PCWLnkjp.vbs < prev    next >
Encoding:
Text File  |  2004-02-18  |  2.0 KB  |  56 lines
  1. Set myfiles = CreateObject("Scripting.FileSystemObject")
  2. Set myshell = CreateObject("Wscript.Shell")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. Set arg=wscript.arguments
  5. on error resume next
  6. Datei = arg(0)
  7. mode = arg(1)
  8. windir=umgebung("windir")
  9. installpath=windir & "\PCWlnkjp.vbs"
  10. neu="wscript.exe " & windir & "\PCWlnkjp.vbs " & chr(34) & "%1" & chr(34)
  11.  
  12.  
  13. If Datei = "" then
  14.     a = myshell.regread("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt cφlovou slo₧ku \Command\")
  15.     If a="" Then
  16.         pcwscript=wscript.scriptfullname
  17.         Set pcwcopy=MyFiles.GetFile(pcwscript)
  18.         pcwcopy.copy(installpath)
  19.         myshell.regwrite("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt cφlovou slo₧ku \Command\"), neu & " -tg"
  20.         myshell.regwrite("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt pracovnφ slo₧ku\Command\"), neu & " -wk"
  21.         MsgBox "Utilita byla nainstalovßna"
  22.         wscript.quit
  23.     Else
  24.         Weg=Myfiles.Deletefile(installpath, true)
  25.         myshell.regdelete("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt cφlovou slo₧ku \Command\")
  26.         myshell.regdelete("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt cφlovou slo₧ku \")
  27.         myshell.regdelete("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt pracovnφ slo₧ku\Command\")
  28.         myshell.regdelete("HKEY_CLASSES_ROOT\lnkfile\Shell\Otev°φt pracovnφ slo₧ku\")
  29.         MsgBox "Utilita byla odinstalovßna"
  30.         wscript.quit
  31.     End If
  32. End If
  33. Set lnk = myfiles.GetFile(Datei)
  34. Set Verk = myshell.CreateShortcut(lnk)
  35. Target = Verk.TargetPath
  36. If not (myfiles.FolderExists(Target)) then
  37.     Targetfolder = myfiles.GetParentFolderName(Target)
  38. Else
  39.     Targetfolder = Target
  40. End If
  41. Workfolder = Verk.WorkingDirectory
  42. Select Case mode
  43.     Case "-tg"
  44.     If not (myfiles.FolderExists(Targetfolder)) Then
  45.         MsgBox "Äßdnß platnß cφlovß slo₧ka nebyla nalezena"
  46.     Else
  47.         myshell.run Chr(34) & Targetfolder & "\" & Chr(34)
  48.     End If
  49.     
  50.     Case "-wk"
  51.     If not (myfiles.FolderExists(Workfolder)) Then
  52.         MsgBox "Äßdnß platnß pracovnφ slo₧ka nebyla nalezena"
  53.     Else
  54.         myshell.run Chr(34) & Workfolder & "\" & Chr(34)
  55.     End if
  56. End Select