[AccessD] Access-D Desktop

Max,

Not sure why it doesn't work, I'm assuming you removed the word wraps or you 
would have had error messages.

Our machines are similar except you have 3 logical processors???

I added the wrapper below to the GetSystem and ran it in an XP machine, and 
the memory part worked fine. I had some errors with word.Application but 
ignored them and got 1 GB.

if inStr(OSVersion.InnerHTML, "Vista") > 0 then
    GetSystem
 end if

I love the clocks, added Paris and Christchurch (NZ) and really don't need 
the other stuff as SIW works for me.

Thanks for sharing

Bill

My Vista...
Operating System Microsoft® Windows VistaT Ultimate 6.0.6002
Service Pack (Major.Minor) 2.0
Computer Type SOHO Server
Physical No. of Processors Physical: 1
Logical No. of Processors Logical: 4
Architecture Type Architecture: 9(x64)
HyperThreading Architecture This is a hyperthreading architecture.
Total Physical Memory 4 GB
System Rating Scores:-
Processor 5.9
Memory 5.5
Primary Hard Disk 5.5
Graphics 5.9
Gaming Graphic 5.5




--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Sunday, August 02, 2009 11:51 PM
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Subject: Re: [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


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com