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

Хочу сделать такое:
Программно добавляю в реестр запись.
Каждый раз программа при запуске ищет в реестре эту запись. если она существует - база работает.
По истечении там дней пяти программа при запуске удаляет запись из реестра и, соответственно, не найдя ее выводит окошко, что срок работы истек.
Как это реализовать?
_______________________
Дорогу осилит идущий...

а при первом запуске программы как быть? записи то в реестре еще нет...

bubucha

а при первом запуске программы как быть? записи то в реестре еще нет...

так я изначально и введу ее. тока КАК это делается ПРОГРАММНО?

dim Wsh
set Wsh = WScript.CreateObject("WScript.Shell")
s = Wsh.RegRead("HKCU\Identities\Default User ID")
Wsh.RegWrite "HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\Store Root", "P:\mail\OutLook"

Ёжик`

dim Wsh set Wsh = WScript.CreateObject("WScript.Shell") s = Wsh.RegRead("HKCU\Identities\Default User ID") Wsh.RegWrite "HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\Store Root", "P:\mail\OutLook"

а как удалить?

savesetting и getsetting вроде...

...
Wsh.RegDelete "HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\Store Root"

Ёжик`

... Wsh.RegDelete "HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\Store Root"

пасибки. ща попробую :-)

PS: это было на VBS, для MSA:

DIM Wsh as Object, s as String
...

Ёжик`

PS: это было на VBS, для MSA: DIM Wsh as Object, s as String ...

чего-чего?... я знаю тока что такое VBA и SQL... =)))