Share via

嗨，Scripting Guy！

  • 發行項

Hey，Scripting Guy！

歡迎使用 TechNet 專欄，Microsoft Scripting Guys 會在此為您解答有關系統管理指令碼的常見問題。您有關於系統管理指令碼方面的問題嗎？請將電子郵件傳送到 scripter@microsoft.com。我們無法保證能夠逐一回答每個問題，不過我們會盡力而為。

今天的問題：如何變更「我的電腦」圖示的標題？

如何變更「我的電腦」圖示的標題？

問

嗨，Scripting Guy！我不想要桌面上的「我的電腦」圖示名稱是「我的電腦」，我想更改電腦名稱。我可以用指令碼來更改嗎？

-- TG
答 TG，您好。我們常被問到這個問題；顯然很多人覺得把電腦名稱擺在桌面上是很方便的，可以讓使用者很容易知道他們所登入的電腦是哪一台。如果想要自動執行變更「我的電腦」圖示標題的工作，您只要執行類似這樣的指令碼即可： 
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& 來找到特殊資料夾。

就這樣，標題就變更了，不只是桌面圖示，同時也變更了 [開始] 功能表中的 [我的電腦] 連結。

如果稍後您想要把標題改回「我的電腦」，只要執行這個指令碼即可：

如需詳細資訊

查看嗨，Scripting Guy！- 過往文件

 

回到頁首 回到頁首