[AccessD] Access-D Desktop

...uh huh ...take a look in the zip at my vbs script to show all my 
hds/size/free space in neat columns ...I'm still quite proud of that one 
...I've got a fancier version that uses if/then/else to post different 
colored scripts if the free space or hd temp get out of safe zones but I'm 
not happy with the refresh time it uses.

William

--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Monday, August 03, 2009 2:25 PM
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Subject: Re: [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
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>