'Enable CD Burning for Limited Users
'© Doug Knox - 04/02/2002

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

'set variables
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AllocateDASD"
itemtype = "REG_SZ"


'Modify the value for AllocateDASD and set it to 2
	WSHShell.RegWrite p, 2, itemtype

MyBox = MsgBox("CD Burning is now Enabled" & vbCR & "for Limited Users", 4096, "CD-Burning")

Set WshShell = Nothing