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

更新时间：2024-12-23 04:08:22

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

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

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& 来定位特定文件

夹。