asdfThis script adds the computer name to the My computer icon. This is good for helpdesks who constantly have to ask their customers, “What’s your computer name?”
Const sKey = “HKEY_CLASSES_ROOTCLSID{20D04FE0-3AEA-1069-A2D8-08002B30309D}”
Dim oWSS,sTemp,sGarbage
On Error Resume Next
Set oWSS = WScript.CreateObject(“WScript.Shell”)
sTemp = oWSS.RegRead(sKey & “LocalizedString”)
If Err.Number = 0 Then
sGarbage = oWSS.RegRead(sKey & “LocalizedStringBackup”)
If Err.Number 0 Then
oWSS.RegWrite sKey & “LocalizedStringBackup”, sTemp, “REG_EXPAND_SZ”
End If
End If
oWSS.RegWrite sKey & “LocalizedString”, “My Computer %COMPUTERNAME%”,
“REG_EXPAND_SZ”
Set oWSS = Nothing

</div>