Found the vbs function below on the Internet (don't remember where), anyway I added it to markdmac's logon script (add on code section). The script runs, no errors. But this function does not work.
Any idea's,
Thanks in advance.
Function RenameMyComp ()
' Rename the "my Computer" icon
Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = ucase(objNetwork.UserName) & " on " & ucase(objNetwork.ComputerName)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = objComputerName
End Function
