home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / registry.js < prev    next >
Text File  |  1998-01-22  |  3KB  |  71 lines
  1. // Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. //
  3. // ------------------------------------------------------------------------
  4. //               Copyright (C) 1996-1997 Microsoft Corporation
  5. //
  6. // Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
  7. // i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. // ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. // zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. // ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. // ------------------------------------------------------------------------
  12. //
  13. // Ten przyk│ad pokazuje w jaki spos≤b zapisywaµ/usuwaµ zawarto£µ rejestru 
  14.  
  15. var vbOKCancel = 1;
  16. var vbInformation = 64;
  17. var vbCancel = 2;
  18.  
  19. var L_Welcome_MsgBox_Message_Text   = "Ten przyk│ad pokazuje w jaki spos≤b zapisywaµ/usuwaµ zawarto£µ rejestru.";
  20. var L_Welcome_MsgBox_Title_Text     = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows";
  21. Welcome();
  22.  
  23.  
  24. // ********************************************************************************
  25. // *
  26. // * Metody zwi╣zane z rejestrem.
  27. // *
  28.  
  29. var WSHShell = WScript.CreateObject("WScript.Shell");
  30.  
  31. WSHShell.Popup("Utw≤rz klucz HKCU\\MyRegKey z warto£ci╣ 'Top level key'");
  32. WSHShell.RegWrite("HKCU\\MyRegKey\\", "Top level key");
  33.  
  34. WSHShell.Popup("Utw≤rz klucz HKCU\\MyRegKey\\Entry z warto£ci╣ 'Second level key'");
  35. WSHShell.RegWrite("HKCU\\MyRegKey\\Entry\\", "Second level key");
  36.  
  37. WSHShell.Popup("Ustaw warto£µ HKCU\\MyRegKey\\Value na REG_SZ 1");
  38. WSHShell.RegWrite("HKCU\\MyRegKey\\Value", 1);
  39.  
  40. WSHShell.Popup("Ustaw warto£µ HKCU\\MyRegKey\\Entry na REG_DWORD 2");
  41. WSHShell.RegWrite("HKCU\\MyRegKey\\Entry", 2, "REG_DWORD");
  42.  
  43. WSHShell.Popup("Ustaw warto£µ HKCU\\MyRegKey\\Entry\\Value1 na REG_BINARY 3");
  44. WSHShell.RegWrite("HKCU\\MyRegKey\\Entry\\Value1", 3, "REG_BINARY");
  45.  
  46. WSHShell.Popup("Usu± warto£µ HKCU\\MyRegKey\\Entry\\Value1");
  47. WSHShell.RegDelete("HKCU\\MyRegKey\\Entry\\Value1");
  48.  
  49. WSHShell.Popup("Usu± klucz HKCU\\MyRegKey\\Entry");
  50. WSHShell.RegDelete("HKCU\\MyRegKey\\Entry\\");
  51.  
  52. WSHShell.Popup("Usu± klucz HKCU\\MyRegKey");
  53. WSHShell.RegDelete("HKCU\\MyRegKey\\");
  54.  
  55. //////////////////////////////////////////////////////////////////////////////////
  56. //
  57. // Witamy
  58. //
  59. function Welcome() {
  60.     var WSHShell = WScript.CreateObject("WScript.Shell");
  61.     var intDoIt;
  62.  
  63.     intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
  64.                               0,
  65.                               L_Welcome_MsgBox_Title_Text,
  66.                               vbOKCancel + vbInformation );
  67.     if (intDoIt == vbCancel) {
  68.         WScript.Quit();
  69.     }
  70. }
  71.