'Disable CD Autorun in Windows XP
'© Doug Knox - 9/3/2001

Option Explicit

'Declare variables
Dim WSHShell, n, p, itemtype, MyBox

'set variables
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDriveTypeAutoRun"
itemtype = "REG_DWORD"
n = 181

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite p, n, itemtype

MyBox = MsgBox("CD Autorun is disabled" & vbCR & "Log off/on or Reboot, if necessary.", 4096, "Disable CD Autorun")