Re: Find name of 'My computer'?

's Computer Specifications

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

's Computer Specifications

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

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Re: creating last name first, first name last from a column of first name last name data	Rick Rothstein	Microsoft Excel Programming	0	27th Jul 2009 07:25 AM
1st name last name to last name, 1st name	shan	Microsoft Excel Worksheet Functions	2	11th Mar 2009 07:59 PM
change first name last name to last name first name	Doris smith	Microsoft Excel Misc	3	25th Feb 2009 12:35 PM
how do I reveerse name order last name, first name to first name, last name	Don Smith	Microsoft Excel Discussion	9	29th Nov 2006 10:55 PM
Changing a list from last name, first name to first name, last name	zgall1	Microsoft Excel Misc	3	17th Feb 2006 12:49 AM