Mengakses Registry bertipe Dword dengan VBS

dim yadoy666
masuk()
sub masuk()
set yadoy666 = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"[YaDoY SoFtWarE DeVeLoPmEnT]"

nilai = inputbox(keterangan,"Edit Run",0)

yadoy666.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer\NoRun",nilai,"REG_DWORD"

if nilai=1 then
msgbox "Run dinonaktifkan",vbInformation,"Edit Run"
else
if nilai=0 then
msgbox "Run diaktifkan",vbInformation,"Edit Run"

yadoy666.RegDelete
"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer\NoRun"

else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Run"
masuk()
end if
end if

end sub