[AccessD] Access-D Desktop

All sorted now Bill.  Unlike some other systems I won't mention....ahem!

I have just done another .hta to show all space on local logical drives.  

Quite good fun .hta's

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten
Sent: 03 August 2009 18:30
To: Access Developers discussion and problem solving
Subject: Re: [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 MicrosoftR 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 

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