[AccessD] SPAM-LOW: Access-D Desktop

Max Wanadoo max.wanadoo at gmail.com
Sun Aug 2 16:09:14 CDT 2009


I will send it off-line to you Stuart.  (you are up early?)
If any body wants a copy, let me know.
It is also handy to quickly see what OS, updates etc you have on your
machine when answering questions from people.

A reminder that is was written for Vista so some code may not work on other
platforms.

Just d/click to run it and let it sit at the bottom of the screen, just a
click away.

This is my first stab and I will try to improve on it.

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: 02 August 2009 21:59
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] SPAM-LOW: Access-D Desktop

A lot of line breaks were inserted by the mailing.

Quite a few of these were in points which break the code (inside strings for
example).
You need to do a fair bit of tidying up  to get it all working.  

Even then, I get one error "can't create object" on "Set objWord = 
CreateObject("Word.Application")".

-- 
Stuart

On 2 Aug 2009 at 13:43, jwcolby wrote:

> I get an "unterminated string" error message.  Several in fact.  It
eventually does open, and 
> displays a bunch of clocks, and then hardware info lines with no info.
> 
> John W. Colby
> www.ColbyConsulting.com
> 
> 
> Max Wanadoo wrote:
> > Hi List:
> > I had many frustrating times when I was trying to figure out which of
you
> > were awake and which asleep
> > Anyway, here is a .hta text file to keep open on your desktop.  If your
> > interested, just copy everything below my name to a text file called
> > MyDeskop.hta and put in somewhere.  Then d/click it.
> > 
> > Some other PC info as well.  Bit of a hack.
> > 
> > Max
> > 
> > <head>
> > <title>Access-D Dashboard.      max.wanadoo at gmail.com</title>
> > <!-- Author Max Sherman 2nd August 2009 - Free to all. -->
> > 
> > <!-- Runs on Vista Machines.
> > Some code may run on other platforms but not tested.
> > No guarantees and definitely NO support.
> > This is a big  hack from the help files.  Once I understand
> > what I am actually doing, I may be able to improve on it !!
> > Please report bugs or suggestions to:
> > max.wanadoo at gmail.com
> > Many thanks.
> > Hope you find it useful.
> > Max -->
> > 
> > <!-- The clocks come from /www.worldtimeserver.com and reflect six time 
> > zones I am interested in across the World to see when my colleagues 
> > on Access-D might be available to help with MS Access problems.
> > 
> > It start on the West coast of N.America across the the E.Coast, then
London,
> > 
> > Moscow and ending up in the two sides of Oz.
> > 
> > Add, delete as you wish.
> > 
> > There are 24 hour (military) style clocks - which I prefer - and 
> > normal 12 hour clocks with the DAY shown in the centre.
> > The showing of the day is very useful because frequently my 
> > colleagues "down-under" are starting a new day when I am ending 
> > the previous one. -->
> > 
> > <HTA:APPLICATION 
> >      APPLICATIONNAME="AccessD-Desktop"
> >      SCROLL="yes"
> >      SINGLEINSTANCE="yes"
> >      WINDOWSTATE="normal">
> > </head>
> > 
> > <body>
> > <hr>
> > <br>
> > <table border="0" cellspacing="0" cellpadding="0">
> > <tr><td align="left"><font color="#FF0000"><p><span id =
> > "MyName"></span></font></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">World Local Times - 24hr
> > Military (with Day) and 12Hr (with AM/PM)</font></b></td></tr>
> > </table>
> > 
> > <table>
> > <tr>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objUSCA = new Object;objUSCA.wtsclock = "wtsclock024.swf";objUSCA.color
=
> > "6495ED";objUSCA.wtsid = "US-CA";objUSCA.width = 100;objUSCA.height =
> > 100;objUSCA.wmode = "transparent";showClock(objUSCA);</script>
> > </td>
> > 
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objUSNY = new Object;objUSNY.wtsclock = "wtsclock024.swf";objUSNY.color
=
> > "6495ED";objUSNY.wtsid = "US-NY";objUSNY.width = 100;objUSNY.height =
> > 100;objUSNY.wmode = "transparent";showClock(objUSNY);</script>
> > </td>
> > 
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objGB = new Object;objGB.wtsclock = "wtsclock024.swf";objGB.color =
> > "6495ED";objGB.wtsid = "GB";objGB.width = 100;objGB.height =
100;objGB.wmode
> > = "transparent";showClock(objGB);</script>
> > </td>
> > <td align="center">
> > <script type=<script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objRUMOW = new Object;objRUMOW.wtsclock =
"wtsclock024.swf";objRUMOW.color =
> > "6495ED";objRUMOW.wtsid = "RU-MOW";objRUMOW.width = 100;objRUMOW.height
=
> > 100;objRUMOW.wmode = "transparent";showClock(objRUMOW);</script>
> > </td>
> > 
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">objAUWA = new
> > Object;objAUWA.wtsclock = "wtsclock024.swf";objAUWA.color =
> > "6495ED";objAUWA.wtsid = "AU-WA";objAUWA.width = 100;objAUWA.height =
> > 100;objAUWA.wmode = "transparent";showClock(objAUWA);</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objAUACT = new Object;objAUACT.wtsclock =
"wtsclock024.swf";objAUACT.color =
> > "6495ED";objAUACT.wtsid = "AU-ACT";objAUACT.width = 100;objAUACT.height
=
> > 100;objAUACT.wmode = "transparent";showClock(objAUACT);</script>
> > </td>
> > </tr>
> > 
> > <tr>
> > <td align="center"><h4>California</h4></td>
> > <td align="center"><h4>New York</h4></td>
> > <td align="center"><h4>London</h4></td>
> > <td align="center"><h4>Moscow</h4></td>
> > <td align="center"><h4>Perth</h4></td>
> > <td align="center"><h4>Canbera</h4></td>
> > </tr>
> > 
> > <tr>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objUSCA=new
> >
Object;objUSCA.wtsclock="wtsclock001.swf";objUSCA.color="FFFF00";objUSCA.wts
> >
id="US-CA";objUSCA.width=100;objUSCA.height=100;objUSCA.wmode="transparent";
> > showClock(objUSCA);</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">
> > objUSNY=new
> >
Object;objUSNY.wtsclock="wtsclock001.swf";objUSNY.color="FFFF00";objUSNY.wts
> >
id="US-NY";objUSNY.width=100;objUSNY.height=100;objUSNY.wmode="transparent";
> > showClock(objUSNY);</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">objGB=new
> >
Object;objGB.wtsclock="wtsclock001.swf";objGB.color="FFFF00";objGB.wtsid="GB
> >
";objGB.width=100;objGB.height=100;objGB.wmode="transparent";showClock(objGB
> > );</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">objRUMOW=new
> >
Object;objRUMOW.wtsclock="wtsclock001.swf";objRUMOW.color="FFFF00";objRUMOW.
> >
wtsid="RU-MOW";objRUMOW.width=100;objRUMOW.height=100;objRUMOW.wmode="transp
> > arent";showClock(objRUMOW);</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">objAUWA=new
> >
Object;objAUWA.wtsclock="wtsclock001.swf";objAUWA.color="FFFF00";objAUWA.wts
> >
id="AU-WA";objAUWA.width=100;objAUWA.height=100;objAUWA.wmode="transparent";
> > showClock(objAUWA);</script>
> > </td>
> > <td align="center">
> > <script type="text/javascript"
> > src="http://www.worldtimeserver.com/clocks/embed.js"></script>
> > <script type="text/javascript" language="JavaScript">objAUACT=new
> >
Object;objAUACT.wtsclock="wtsclock001.swf";objAUACT.color="FFFF00";objAUACT.
> >
wtsid="AU-ACT";objAUACT.width=100;objAUACT.height=100;objAUACT.wmode="transp
> > arent";showClock(objAUACT);</script>
> > </td>
> > </tr>
> > </table>
> > <br>
> > 
> > <hr>
> > <br>
> > <table>
> > <tr><td align="left"><b><font color="#0000FF">Outlook
> > Mail</font></b></td></tr>
> > <tr><td align="left">Inbox Total Items: </td><td align="left"><p><span
id =
> > "MyInboxCt"></span></td></tr>
> > <tr><td align="left">Inbox Unread Items: </td><td align="left"><p><span
id =
> > "MyInboxUnreadCt"></span></td></tr>
> > </table>
> > <br>
> > 
> > <hr>
> > <br>
> > <table>
> > <tr><td align="left"><b><font color="#0000FF">Operating
> > System</font></b></td><td align="left"><p><span id =
> > "OSVersion"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Service
> > Pack</font></b></td><td align="left"><p><span id =
> > "OSServicePack"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Computer
> > Type</font></b></td><td align="left"><p><span id =
> > "MyComputerType"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Physical No. of
> > Processors</font></b></td><td align="left"><p><span id =
> > "MyProcessorsPhysical"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Logical No. of
> > Processors</font></b></td><td align="left"><p><span id =
> > "MyProcessorsLogical"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Architecture
> > Type</font></b></td><td align="left"><p><span id =
> > "MyArchitecture"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">HyperThreading
> > Architecture</font></b></td><td align="left"><p><span id =
> > "MyHyperThreading"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">Total Physical
> > Memory</font></b></td><td align="left"><p><span id =
> > "MyMemory"></span></td></tr>
> > <tr><td align="left"><b><font color="#0000FF">System Rating
> > Scores:-</font></b></td></tr>
> > <tr><td align="left">Processor</span></td><td align="left"><p><span id =
> > "MyProcessorScore"></span></td></tr>
> > <tr><td align="left">Memory</span></td><td align="left"><p><span id =
> > "MyMemoryScore"></span></td></tr>
> > <tr><td align="left">Primary Hard Disk</span></td><td
align="left"><p><span
> > id = "MyDiskScore"></span></td></tr>
> > <tr><td align="left">Graphics</span></td><td align="left"><p><span id =
> > "MyGraphicsScore"></span></td></tr>
> > <tr><td align="left">Gaming Graphic</span></td><td align="left"><p><span
id
> > = "MyD3DScore"></span></td></tr>
> > </table>
> > <br>
> > 
> > <hr>
> > <br>
> > <table>
> > <tr><td><b><font color="#0000FF">Running
Applications:-</font></b></td></tr>
> > <tr><td align="left"><p><span id = "MyRunningApps"></span></td></tr>
> > </table>
> > <br>
> > 
> > <!-- What Processes Are Running-->
> > <hr>
> > <br>
> > <table>
> > <tr><td><b><font color="#0000FF">Running
Processes:-</font></b></td></tr>
> > <tr><td align="left"><p><span id =
"MyRunningProcesses"></span></td></tr>
> > </table>
> > <br>
> > 
> > <hr>
> > </body>
> > 
> > <script language="VBScript">
> >     sub window_onLoad
> > 	<!-- Update Outlook mail count every 30 seconds -->
> > 	<!--   GetMemory -->
> >    <!--    iTimerID = window.setInterval("GetOutlookInBox", 30000) -->
> > 	  getMyName
> > 	  GetRunningApps
> > 	  GetOSVersion
> > 	  GetOSServicePack
> > 	  GetSystem
> > 	  GetProcesses
> > 	  GetComputerType
> > 	  GetProcessors
> > 	  GetArchitecture
> >       GetOutlookInBox
> >     end sub
> > 
> > 	sub GetSystem
> > 	<!-- Vista Only -->
> > 	strComputer = "."
> >     Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >     Set colItems = objWMIService.ExecQuery("Select * From Win32_WinSAT")
> >     
> >     For Each objItem in colItems
> >         MyProcessorScore.InnerHTML = objItem.CPUScore
> >         MyMemoryScore.InnerHTML =  objItem.MemoryScore 
> >         MyDiskScore.InnerHTML =  objItem.DiskScore
> >         MyGraphicsScore.InnerHTML=  objItem.GraphicsScore
> >         MyD3DScore.InnerHTML = objItem.D3DScore
> >         <!-- strHTML = strHTML &  "Windows System Performance Rating: "
&
> > objItem.WinCRSLevel & "<br>" -->
> >     Next
> > 	end sub
> > 
> >     Sub GetOSVersion
> > 	       strComputer = "."
> >            Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >            Set colOperatingSystems = objWMIService.ExecQuery _
> >                ("Select * from Win32_OperatingSystem")
> >            For Each objOperatingSystem in colOperatingSystems
> >             	OSVersion.InnerHTML=objOperatingSystem.Caption & " "
&
> > objOperatingSystem.Version
> >            Next
> >     End Sub
> > 
> >     sub GetOSServicePack
> > 	strComputer = "."
> > 	Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> > 	Set colOperatingSystems = objWMIService.ExecQuery _
> > 	    ("Select * from Win32_OperatingSystem")
> > 	For Each objOperatingSystem in colOperatingSystems
> > 	    OSServicePack.InnerHTML ="(Major.Minor) " &
> > objOperatingSystem.ServicePackMajorVersion & "." &
> > objOperatingSystem.ServicePackMinorVersion
> > 	Next
> >     end sub
> > 
> > 	sub GetComputerType
> > 	strComputer = "." 
> >       Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\CIMV2") 
> >       Set colItems = objWMIService.ExecQuery("SELECT * FROM
> > Win32_ComputerSystem") 
> >       
> >       Select Case colItems.ItemIndex(0).PCSystemType
> >           Case 0
> >               MyComputerType.InnerHTML= "Unspecified"
> >           Case 1
> >              MyComputerType.InnerHTML="Desktop"
> >           Case 2
> >               MyComputerType.InnerHTML= "Mobile"
> >           Case 3
> >               MyComputerType.InnerHTML= "Workstation"
> >           Case 4
> >               MyComputerTyp.InnerHTMLe= "Enterprise Server"
> >           Case 5
> >               MyComputerType.InnerHTML= "SOHO Server"
> >           Case 6
> >               MyComputerType.InnerHTML= "Applicance PC"
> >           Case 7
> >               MyComputerType.InnerHTML= "Performance Server"
> >           Case 8
> >              MyComputerType.InnerHTML= "Role Maximum"
> >       End Select
> > 	end sub
> > 	
> > 	sub GetProcessors
> >   		strComputer = "." 
> >       Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\CIMV2") 
> >       Set colItems = objWMIService.ExecQuery("SELECT * FROM
> > Win32_ComputerSystem") 
> >       
> >       intLogical = colItems.ItemIndex(0).NumberOfLogicalProcessors
> >       intPhysical = colItems.ItemIndex(0).NumberOfProcessors
> >       
> >       MyProcessorsLogical.InnerHTML= "Logical: " & intLogical
> > 	  MyProcessorsPhysical.InnerHTML= "Physical: " & intPhysical
> >       
> >       If  intLogical > intPhysical Then
> >           MyHyperThreading.InnerHTML= "This is a hyperthreading
> > architecture."
> >       Else
> >           MyHyperThreading.InnerHTML="This is not a hyperthreading
> > architecture."
> >       End If	
> > 	end sub
> > 	
> > 	sub GetArchitecture
> > 		strComputer = "." 
> >       Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\CIMV2") 
> >       Set colItems = objWMIService.ExecQuery("SELECT * FROM
> > Win32_Processor") 
> >       For Each objItem in colItems 
> >           MyArchitecture.InnerHTML= "Architecture: " &
objItem.Architecture
> >           Select Case objItem.Architecture
> >               Case 0
> >                  MyArchitecture.InnerHTML=MyArchitecture.InnerHTML & "
> > (x86)"
> >               Case 1
> >                  MyArchitecture.InnerHTML=MyArchitecture.InnerHTML &   "
> > (MIPS)"
> >               Case 2
> >                  MyArchitecture.InnerHTML=MyArchitecture.InnerHTML &   "
> > (Alpha)"
> >               Case 3
> >                   MyArchitecture.InnerHTML=MyArchitecture.InnerHTML &
"
> > (PowerPC)"
> >               Case 6
> >                  MyArchitecture.InnerHTML=MyArchitecture.InnerHTML & "
> > (Intel Itanium Processor Family [IPF])"
> >               Case 9
> >                  MyArchitecture.InnerHTML=MyArchitecture.InnerHTML & "
> > (x64)"
> >           End Select         
> >       Next
> > 	end sub
> > 	
> > 	sub GetOutlookInBox
> > 	Const olFolderInbox = 6
> > 		  strComputer = "."
> >       Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >       Set colItems = objWMIService.ExecQuery _
> >           ("Select * From Win32_Process Where Name = 'outlook.exe'") 
> >       If colItems.Count = 0 Then
> >           Set objOutlook = CreateObject("Outlook.Application")
> >           Set objNamespace = objOutlook.GetNamespace("MAPI")
> >           objNamespace.Logon "Default Outlook Profile",, False, True    
> >           Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
> >           objFolder.Display
> >           Set colItems = objFolder.Items
> > 		  MyInboxCt.InnerHTML= colItems.Count
> > 		  MyInboxUnReadCt.InnerHTML=objFolder.UnreadItemCount
> >       Else
> >           Set objOutlook = CreateObject("Outlook.Application")
> >           Set objNamespace = objOutlook.GetNamespace("MAPI")
> >           Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
> >           Set colItems = objFolder.Items
> > 		  MyInboxCt.InnerHTML= colItems.Count
> > 		  MyInboxUnReadCt.InnerHTML= objFolder.UnreadItemCount
> >       End If
> > 	end sub
> > 
> > 	sub GetRunningApps
> > 	  strHTML = "<table border='1' style='border-collapse: collapse' "
> > & _
> >           "bordercolor='#111111' width='100%' id='Table1' >"
> > 	  Set objWord = CreateObject("Word.Application")
> >       Set colTasks = objWord.Tasks      
> >       For Each objTask in colTasks
> >           If objTask.Visible Then
> > 		     strHTML = strHTML & "<tr><td>" & objTask.Name &
> > "</td></tr>"
> >           End If
> >       Next      
> >       objWord.Quit
> >       strHTML = strHTML & "</table><br>"
> > 	  MyRunningApps.InnerHTML=strHTML
> >     end sub
> > 	
> >     Sub GetProcesses
> >   	strHTML = "<table border='1' style='border-collapse: collapse' "  &
> > _
> >           "bordercolor='#111111' width='100%' id='Table1' >"
> > 	  strHTML=strHTML & "<tr><td>Processes</td><td>Process ID</td></tr>"
> >        strComputer = "."
> >        Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >        Set colProcesses = objWMIService.ExecQuery("Select * from
> > Win32_Process")  
> >        For Each objProcess in colProcesses
> >           strHTML = strHTML & "<tr>"
> >           strHTML = strHTML & "<td width='50%'>" & objProcess.Name &
"</td>"
> >           strHTML = strHTML & "<td width='50%'>" & objProcess.ProcessID
& _
> >               "</td>"
> >        Next  
> >       strHTML = strHTML & "</table><br>"
> >       MyRunningProcesses.InnerHTML = strHTML
> >     End Sub
> > 	
> > 	sub GetMemory	
> >   	strComputer = "atl-dc-01" 
> >       Set wbemServices = GetObject("winmgmts:\\" & strComputer) 
> >       Set wbemObjectSet =
> > wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") 
> >       For Each wbemObject In wbemObjectSet 
> >           MyMemory.InnerHTML= wbemObject.TotalPhysicalMemory 
> >       Next 
> > 	end sub
> > 	
> > 	sub GetMyName
> > 		strHTML=""
> >       	strComputer = "."
> >       Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >       Set colComputers = objWMIService.ExecQuery _
> >           ("Select * from Win32_ComputerSystem")
> >       For Each objComputer in colComputers
> >           strHTML=  objComputer.Name
> >       Next	  
> > 	  strComputer = "."
> >         Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> >         Set IPConfigSet = objWMIService.ExecQuery _
> >             ("Select IPAddress from Win32_NetworkAdapterConfiguration
Where
> > IPEnabled=TRUE")
> >         For Each IPConfig in IPConfigSet
> >             If Not IsNull(IPConfig.IPAddress) Then
> >                 For Each strAddress in IPConfig.IPAddress
> >                     strHMTL = strHTML & " IP Address: " & strAddress
> >                 Next
> >             End If
> >         Next
> > 		MyName.InnerHTML = strHTML
> >     end sub
> > </script>
> > 
> > 
> -- 
> 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




More information about the AccessD mailing list