Find name of 'My computer'?

[Charlotte E.]

I'm looking for a way to find the name/description of 'My Computer"???

I'm not talking about the computername, i.e. network, but the 'My
Computer" description???

Normally this is 'My Computer' but on my system this had been renamed to
just 'Computer'.

Is it possible to find this name/description using VBA?


TIA,

CE

 

[Claus Busch]

Hi Charlotte,

Am Tue, 01 May 2012 13:02:22 +0200 schrieb Charlotte E.:

I'm looking for a way to find the name/description of 'My Computer"???

MsgBox Environ("ComputerName")


Regards
Claus Busch

 

[Charlotte E.]

Sorry, but, no - this gives excately the name I didn't want!

I want the function to return the value 'Computer' on my computer - on
most other systems it should return 'My computer'.

I want the description under the icon, when you place the 'My computer'
icon on the desktop.

Did I explain it right this time???


CE

Den 01.05.2012 13:08, Claus Busch skrev:

 

[Adrian C]

Sorry, but, no - this gives excately the name I didn't want!

I want the function to return the value 'Computer' on my computer - on
most other systems it should return 'My computer'.

I want the description under the icon, when you place the 'My computer'
icon on the desktop.

Const MY_COMPUTER = &H11&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
msgbox objFolderItem.Name

 

[Charlotte E.]

BINGO

Thanks...

CE

Den 01.05.2012 16:00, Adrian C skrev: