home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / registry.vbs < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.4 KB  |  67 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.  
  16. L_Welcome_MsgBox_Message_Text   = "Ten przyk│ad pokazuje w jaki spos≤b zapisywaµ/usuwaµ zawarto£µ rejestru."
  17. L_Welcome_MsgBox_Title_Text     = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows"
  18. Call Welcome()
  19.  
  20.  
  21. ' ********************************************************************************
  22. ' *
  23. ' * Metody zwi╣zane z rejestrem.
  24. ' *
  25.  
  26. Dim WSHShell
  27. Set WSHShell = WScript.CreateObject("WScript.Shell")
  28.  
  29. WSHShell.Popup "Utw≤rz klucz HKCU\MyRegKey z warto£ci╣ 'Top level key'"
  30. WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"
  31.  
  32. WSHShell.Popup "Utw≤rz klucz HKCU\MyRegKey\Entry z warto£ci╣ 'Second level key'"
  33. WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"
  34.  
  35. WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Value na REG_SZ 1"
  36. WSHShell.RegWrite "HKCU\MyRegKey\Value", 1
  37.  
  38. WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Entry na REG_DWORD 2"
  39. WSHShell.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD"
  40.  
  41. WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Entry\Value1 na REG_BINARY 3"
  42. WSHShell.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY"
  43.  
  44. WSHShell.Popup "Usu± warto£µ HKCU\MyRegKey\Entry\Value1"
  45. WSHShell.RegDelete "HKCU\MyRegKey\Entry\Value1"
  46.  
  47. WSHShell.Popup "Usu± klucz HKCU\MyRegKey\Entry"
  48. WSHShell.RegDelete "HKCU\MyRegKey\Entry\"
  49.  
  50. WSHShell.Popup "Usu± klucz HKCU\MyRegKey"
  51. WSHShell.RegDelete "HKCU\MyRegKey\"
  52.  
  53. ' ********************************************************************************
  54. ' *
  55. ' * Witamy
  56. ' *
  57. Sub Welcome()
  58.     Dim intDoIt
  59.  
  60.     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _   
  61.                       vbOKCancel + vbInformation,       _
  62.                       L_Welcome_MsgBox_Title_Text )
  63.     If intDoIt = vbCancel Then
  64.         WScript.Quit
  65.     End If
  66. End Sub
  67.