11. Работа с реестром

Работа с реестром из скрипта VBScript при помощи объекта WshShell: самостоятельная работа

Упражнение 1. Запись и чтение из реестра

Напишите скрипт RegistryFlag.vbs, который бы при запуске создавал в реестре флаг для фиксирования факта запуска этого скрипта или (если флаг уже создан) увеличивал бы его значение на 1.

Ответ к упражнению 1. Запись и чтение из реестра

Итоговый код скрипта RegistryFlag.vbs может быть таким:

Option Explicit

Dim WshShell

Dim sCounter

Set WshShell = CreateObject( "Wscript.Shell")

On Error Resume next

sCounter = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\0RunSript\Counter")

If sCounter = "" Then

            MsgBox ("Never started")

Else

            MsgBox ("Started: " & sCounter)

End If

On Error goto 0

sCounter = sCounter + 1

WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\0RunSript\Counter", sCounter, "REG_DWORD"

Получить учебные материалы по этому курсу