[AccessD] Access-D Desktop

Bill, delighted that you had fun with it.  I am going to see what else I can
do with it.
Your memory code did not work for me.  Not sure why, but it just "hangs".

My system (Taken from my Desktop.hta screen -Tarah!) shows:

Operating System MicrosoftR Windows VistaT Home Premium 6.0.6002 
Service Pack (Major.Minor) 2.0 
Computer Type Desktop 
Physical No. of Processors Physical: 1 
Logical No. of Processors Logical: 3 
Architecture Type Architecture: 9 (x64) 
HyperThreading Architecture This is a hyperthreading architecture. 
Total Physical Memory 
 
System Rating Scores:- 
Processor 5.5 
Memory 5.9 
Primary Hard Disk 5.9 
Graphics 5.9 
Gaming Graphic 5.4

If you can make any sense of that, please let me know. I would like to be
able to show memory.

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten
Sent: 03 August 2009 00:44
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access-D Desktop

Max

Way cool.

I found a bunch of problems because of word wrap I guess, I learned a lot 
about scripting while playing with them. . I also fixed the
total Physical Memory thing. Removed the rem's from the get memory call and 
replaced the code in
get memory with this.


sub GetMemory
    strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & 
"\root\cimv2")
     Set colItems = objWMIService.ExecQuery("Select * from 
Win32_ComputerSystem")
     For Each subItem in colItems
        MyMemory.InnerHTML = int((subItem.TotalPhysicalMemory + 1023) 
/1000000000 ) & " GB"
     Next
end sub


I won't tell how much time I spent "learning this"  <grin>  but it was fun 
learning.

Bill