'changedrivelabel.vbs - Changes the default drive label for CD/DVD Drives in Explorer
'© Doug Knox and Kelly Theriot - 04/07/03

On Error Resume Next

'Declare variables
Dim WSHShell, p, strDrive, strLabel


strDrive = Inputbox("Adja meg az átnevezni kívánt meghajtó betűjelét: (pl: E)","Meghajtó-átnevezés","")

If strDrive = "" Then
	WScript.Quit
End If

strLabel = Inputbox("Adja meg a meghajtó új nevét:","Meghajtó-átnevezés","CD-író")

If strLabel = "" Then
	WScript.Quit
End If

'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"& strDrive & "\DefaultLabel\"
WshShell.RegWrite p, strLabel

Set WshShell = Nothing

MsgBox "Átnevezés megtörtént. Frissítse a Sajátgép/Intéző ablak tartalmát.", 4096,"Meghajtó-átnevezés"