How to Change Drive Icons, Not using "autorun.inf" Trick

[jpdc_luke]

Is there a registry key/program that will allow me to
change the Icons in "My Computer" to something else
besides the standard icons?


Thanks!

 

[anonymous]

i think you can only change them if they are on the
desktop or quick launch bar next to start button. use
right click to properties and change icon button.

 

[FredP]

Can't remember where I got this so I apologize for not giving credit where
due ... but copy the following lines that are between (but not incuding) the
'--' marks into Notepad and save it as a VBS file ... i.e. 'DriveIcons.vbs',
and then run the saved file. You can select whatever icons you've
stored/downloaded/created.
--
Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, p1, p2, t, cn, itemtype, Mybox, Title

p =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
p = p & "8"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype

p1 =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"

n = WSHShell.RegRead(p1 & "8")
t = "Change Your Hard Drive Icon "
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "8", cn
End If

Title = "Your Hard Drive Icons have been changed. Reboot for the changes to
take effect." & vbCR

Title = Title & "" & vbCR
Title = Title & "To set back to default, run the script again and leave the
entry blank, reboot." & vbCR
MyBox = MsgBox(Title,4096,"Finished")

 

[Sir_George]

jpdc,

HOW TO CHANGE ICON & RENAME A DRIVE LETTER IN WINDOWS XP

This tweak allows you to change the name and icon shown in Explorer for a
specific drive letter.

Open your registry and find the key below. If the key does not already exist
then create it.

Within the main key create a new sub-key with a single letter representing
the drive letter of the drive to be modified. (e.g. [HKEY...\DriveIcons\D])

Within the drive letter key create another sub-key called "DefaultIcon"
(e.g. [HKEY...\DriveIcons\D\DefaultIcon]) and set the "(Default)" value to
equal the fully qualified name of the icon file. If the file contains more
that one icon follow it with a comma and the zero-based index of the icon
(e.g. "c:\icons\myicons.dll,4").

Create another sub-key within the drive letter key called "DefaultLabel"
(e.g. [HKEY...\DriveIcons\D\DefaultLabel]) and set it's "(Default)" value to
equal the label for the drive letter (e.g. "My ZIP Drive").

For example: HKEY_LOCAL_MACHINE
Software
Microsoft
Windows
CurrentVersion
Explorer
DriveIcons
D
DefaultIcon
(Default) = c:\icons\myicons.dll,4
DefaultLabel
(Default) = My ZIP Drive

You may need to restart Windows for the change to take effect, or press F5
to refresh My Computer.

Note: The "DefaultLabel" value only works with Windows 2000 and higher.

 

[Kelly]

Looks familiar, Fred. )



Registry Edits, Tips and Tricks for XP
http://www.kellys-korner-xp.com/xp_tweaks.htm

 

[FredP]

Ah ... Hi, Kelly, I should have guessed. ;-)

 

[FredP]

.... the preceding VBS script is from that extremely talented and
extraordinarily valuable MVP, Kelly Theriot, and is available at her site
'Kelly's Korner' at www.kellys-korner-xp.com (Hope I've made it up to you,
Kelly ... [grin])

 

[David ...M....]

Go to kelly's corner at http://www.kellys-korner-
xp.com/xp_tweaks.htm

line 119 has a registry update to change the drive icon.

 

[Kelly]

<LOL> I love it. Thanks, Fred. )



Registry Edits, Tips and Tricks for XP
http://www.kellys-korner-xp.com/xp_tweaks.htm

... the preceding VBS script is from that extremely talented and
extraordinarily valuable MVP, Kelly Theriot, and is available at her site
'Kelly's Korner' at www.kellys-korner-xp.com (Hope I've made it up to you,
Kelly ... [grin])
--
Fred

Can't remember where I got this so I apologize for not giving credit
where due ... but copy the following lines that are between (but not
incuding) the '--' marks into Notepad and save it as a VBS file ...
i.e. 'DriveIcons.vbs', and then run the saved file. You can select
whatever icons you've stored/downloaded/created.
--
Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, p1, p2, t, cn, itemtype, Mybox, Title

p =

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell

Icons\"
p = p & "8"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype

p1 =

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell

Icons\"

n = WSHShell.RegRead(p1 & "8")
t = "Change Your Hard Drive Icon "
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "8", cn
End If

Title = "Your Hard Drive Icons have been changed. Reboot for the
changes to take effect." & vbCR

Title = Title & "" & vbCR
Title = Title & "To set back to default, run the script again and
leave the entry blank, reboot." & vbCR
MyBox = MsgBox(Title,4096,"Finished")