Read , Write ,Delete to Reg

'Shell ("C:\WINDOWS\system32\reg.exe ADD HKEY_LOCAL_MACHINE\SOFTWARE\ /v aaaip /d 333 /f"), vbHide
Dim WshShell As ObjectSet WshShell = CreateObject("WScript.Shell")
' 建立 Wsh Shell 物件
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\aaaip", "123", "REG_SZ"Set WshShell = Nothing

'---------------------------------------------------------------------------------------

Dim WshShell As ObjectSet WshShell = CreateObject("WScript.Shell")
' 建立 Wsh Shell 物件
MsgBox WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\aaaip")
Set WshShell = Nothing

'---------------------------------------------------------------------------------------
Dim WshShell As ObjectSet WshShell = CreateObject("WScript.Shell")
' 建立 Wsh Shell 物件
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\aaaip"
Set WshShell = Nothing