home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 July & August / PCWorld_2005-07-08_cd.bin / software / vyzkuste / tipy / tipy.exe / pcwTweakcp.js < prev    next >
Encoding:
JavaScript  |  2005-05-13  |  3.3 KB  |  82 lines
  1. /* Script:    pcwTweakcp.js                    */
  2.  
  3.  
  4. var oWs = WScript.CreateObject("WScript.Shell");
  5. var oFs = new ActiveXObject("Scripting.FileSystemObject");
  6.  
  7. var strwindir = oWs.ExpandEnvironmentStrings("%WINDIR%");
  8.  
  9.  
  10.  
  11. if (winxpchk() == 0) {
  12.   oWs.Popup("Toto nejsou Windows XP", 0, "Skript PC-WORLDu", 16);
  13.   WScript.Quit();
  14. }
  15.  
  16.  
  17. if (oFs.FileExists(strwindir + "\\system32\\tweakui.exe")  == false) {
  18.   var btnanswer = oWs.Popup("Tweak UI nejsou nainstalovßna. Chcete otev°φt internetovou strßnku pro jejich sta₧enφ?", 0, "Skript PC-WORLDu", 4+ 16);
  19.   switch(btnanswer) {
  20.     case 6:
  21.     oWs.Run("http://www.microsoft.com/windowsxp/pro/downloads/powertoys.asp");
  22.     case 7:
  23.     break;
  24.   }
  25. WScript.Quit();
  26. }
  27.  
  28.  
  29. if (KeyExists("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ControlPanel\\NameSpace\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\") == true) {
  30.   delreg();
  31. }
  32. else { writereg(); }
  33.  
  34.  
  35. function writereg() {
  36.   try {
  37.     oWs.RegWrite("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\","TweakUIXP");
  38.     oWs.RegWrite("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\InfoTip","Tweak UI pro Windows XP");
  39.     oWs.RegWrite("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\DefaultIcon\\","%SystemRoot%\\System32\\tweakui.exe,0", "REG_EXPAND_SZ");
  40.     oWs.RegWrite("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\Shell\\Open\\Command\\", "tweakui.exe");
  41.     oWs.RegWrite("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\ShellFolder\\Attributes", 48, "REG_DWORD");
  42.     oWs.RegWrite("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ControlPanel\\NameSpace\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\", "Tweak UI");
  43.   }
  44.   catch(error) { oWs.Popup("Nenφ mo₧nΘ zapsat do registru. P°ihlaÜte se jako sprßvce systΘmu.", 0, "Skript PC-WORLDu", 16); WScript.Quit(); }
  45.   oWs.Popup("Tweak UI nynφ spustφte p°es Ovlßdacφ panely. Musφte se vÜak znovu p°ihlßsit do systΘmu.", 0, "Skript PC-WORLDu", 64);
  46. }
  47.  
  48. function delreg() {
  49.   try {
  50.     oWs.RegDelete("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ControlPanel\\NameSpace\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\");
  51.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\ShellFolder\\");
  52.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\Shell\\Open\\Command\\");
  53.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\Shell\\Open\\");
  54.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\Shell\\");
  55.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\DefaultIcon\\");
  56.     oWs.RegDelete("HKCR\\CLSID\\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\\");
  57.   }
  58.   catch(error) { oWs.Popup("Nenφ mo₧nΘ zapsat do registru. P°ihlaÜte se jako sprßvce systΘmu.", 0, "Skript PC-WORLDu", 16); WScript.Quit(); }
  59.   oWs.Popup("Ikona Tweak UI byla z Ovlßdacφch panel∙ odstran∞na. Nynφ je nutno se znovu p°ihlßsit do systΘmu.", 0, "Skript PC-WORLDu", 64);
  60. }
  61.  
  62.  
  63. function winxpchk() {
  64.   var strver = true;
  65.   try {
  66.    if (oWs.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProductName") != "Microsoft Windows XP") {
  67.       strver = false;
  68.     }
  69.   }
  70.   catch(error) { strver = false; }
  71.   return strver
  72.  
  73. }
  74.  
  75.  
  76. function KeyExists(key) { 
  77.   findstate = true;
  78.   try {oWs.RegRead(key);}
  79.   catch(error) {findstate = false;}
  80.   return findstate
  81. }
  82.