On Error Resume Next

Dim nret1,nret2


Wscript.Echo "Proceed to ENABLE autorun in all drives"

Set geekside=WScript.CreateObject("WScript.Shell")

nret1=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ /v NoDriveTypeAutoRun /t REG_DWORD /d 149 /f",0,TRUE)
nret2=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\ /v NoDriveTypeAutoRun /t REG_DWORD /d 149 /f",0,TRUE)

WScript.Echo "You must restart your computer to make changes effective"