怎样修改我的电脑属性的图标

如何更改“我的电脑”图标的标题？

如果您希望自动更改“我的电脑”图标的标题，只需运行一个这样的脚本：

Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject("Wscript.Network") strComputer =

objNetwork.ComputerName Set objShell = CreateObject

("Shell.Application") Set objFolder = objShell.Namespace(MY_COMPUTER)

Set objFolderItem = objFolder.Self objFolderItem.Name = strComputer
该脚本开始时声明一个名为 MY_COMPUTER 的常量并为其赋值 &H11&；这是

Windows Shell 对象用于定位“我的电脑”的值。然后使用这两行代码确定本地

计算机的名称并将其名称存储在 strComputer 变量中：

Set objNetwork = CreateObject("Wscript.Network") strComputer =

objNetwork.ComputerName
目前为止还好吧，对不对？下一步，创建 Shell Application 对象的实例，使用

Namespace 方法将其绑定到与“我的电脑”相应的特定文件夹。然后使用下面一

行代码绑定到“我的电脑”的 FolderItem 对象：

Set objFolderItem = objFolder.Self
绑定到 FolderItem 之后，我们就可以访问文件夹属性，如文件夹名称。要想将

“我的电脑”标题设置为计算机名称，仅需将名称属性设置为 strComputer 这一

包含计算机名称的变量：

objFolderItem.Name = strComputer
就这样，不仅桌面图标，还有“开始”菜单中“我的电脑”的链接名称都会更改

。

如果您以后决定再将标题改回“我的电脑”，可以运行该脚本：

Const MY_COMPUTER = &H11&

Set objShell = CreateObject("Shell.Application") Set objFolder =

objShell.Namespace(MY_COMPUTER) Set objFolderItem = objFolder.Self

objFolderItem.Name = "My Computer"
请记住，这不能更改您的计算机名称，它仅仅更改“我的电脑”特定文件夹的标

题。重新命名计算机完全是另外一回事，我们将在别的时间讨论。您大概也注意

到了，即使更改了“我的电脑”标题，如变为 atl-ws-01，Shell Application

脚本仍然可以轻易找到“我的电脑”特定文件夹。这是因为脚本并不使用字符串

值“My Computer”来定位“我的电脑”，而是使用常量 &H11& 来定位特定文件

夹。

我的电脑属性窗口中个性化的部分，关键是在windows\system32文件夹下的两个文件在起作用，oeminfo.ini和oemlogo.bmp。
1、用记事本新建一个文件名是oeminfo.ini的文件，填写如下内容：
[general]
manufacturer=输入制造商名字
model=输入机器型号
[support
information]
line1=输入你想说的话
line2=输入你想说的话
line3=
line4=
……
依次类推，直到输完所有你想要说的话后保存。
2、利用图形软件（如ps或画图）新建一个文件名为oemlogo.bmp的文件，这就是制造商的logo图像了，你可以任意的修改图像的内容，图像的大小不要超过190*125像素，不然图像无法完全显示。
将这两个文件放在windows\system32文件夹下即可（不用重启）。
或者网上有这样的工具，更改电脑属性图标的工具

你吃多了？？？！！！