Find name of 'My computer'?
 

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

Find name of 'My computer'?
 

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
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Find name of 'My computer'?
 

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:
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

Find name of 'My computer'?
 

On 01/05/2012 12:53, Charlotte E. wrote:
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

--
Adrian C

Find name of 'My computer'?
 

BINGO :-)

Thanks...

CE

Den 01.05.2012 16:00, Adrian C skrev:
Const MY_COMPUTER = &H11&

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