home *** CD-ROM | disk | FTP | other *** search
- ' Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
- '
- ' ------------------------------------------------------------------------
- ' Copyright (C) 1996-1997 Microsoft Corporation
- '
- ' Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
- ' i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej
- ' ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem
- ' zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie
- ' ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
- ' ------------------------------------------------------------------------
- '
- ' Ten przyk│ad pokazuje w jaki spos≤b zapisywaµ/usuwaµ zawarto£µ rejestru
-
-
- L_Welcome_MsgBox_Message_Text = "Ten przyk│ad pokazuje w jaki spos≤b zapisywaµ/usuwaµ zawarto£µ rejestru."
- L_Welcome_MsgBox_Title_Text = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows"
- Call Welcome()
-
-
- ' ********************************************************************************
- ' *
- ' * Metody zwi╣zane z rejestrem.
- ' *
-
- Dim WSHShell
- Set WSHShell = WScript.CreateObject("WScript.Shell")
-
- WSHShell.Popup "Utw≤rz klucz HKCU\MyRegKey z warto£ci╣ 'Top level key'"
- WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"
-
- WSHShell.Popup "Utw≤rz klucz HKCU\MyRegKey\Entry z warto£ci╣ 'Second level key'"
- WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"
-
- WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Value na REG_SZ 1"
- WSHShell.RegWrite "HKCU\MyRegKey\Value", 1
-
- WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Entry na REG_DWORD 2"
- WSHShell.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD"
-
- WSHShell.Popup "Ustaw warto£µ HKCU\MyRegKey\Entry\Value1 na REG_BINARY 3"
- WSHShell.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY"
-
- WSHShell.Popup "Usu± warto£µ HKCU\MyRegKey\Entry\Value1"
- WSHShell.RegDelete "HKCU\MyRegKey\Entry\Value1"
-
- WSHShell.Popup "Usu± klucz HKCU\MyRegKey\Entry"
- WSHShell.RegDelete "HKCU\MyRegKey\Entry\"
-
- WSHShell.Popup "Usu± klucz HKCU\MyRegKey"
- WSHShell.RegDelete "HKCU\MyRegKey\"
-
- ' ********************************************************************************
- ' *
- ' * Witamy
- ' *
- Sub Welcome()
- Dim intDoIt
-
- intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
- vbOKCancel + vbInformation, _
- L_Welcome_MsgBox_Title_Text )
- If intDoIt = vbCancel Then
- WScript.Quit
- End If
- End Sub
-