Jkeith247 Posted January 24, 2011 Share Posted January 24, 2011 (edited) Hello all! I am working on an app that will monitor the status of 16 pc's on a network. Pinging them works great, the only problem is, while the program is pinging, it does not accept any other forms of input. This essentially locks up the program until the pinging is done. Is there a more efficient way of doing this? Thanks!! expandcollapse popupWhile 1 ;Following conditional statement monitors pc1 $var1 = Ping($ip1,50) If $var1 Then GUICtrlCreateLabel("PC 1 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 1 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc2 $var2 = Ping($ip2,50) If $var2 Then GUICtrlCreateLabel("PC 2 is ONLINE ", 170, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 2 IS OFFLINE", 170, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc3 $var3 = Ping($ip3,50) If $var3 Then GUICtrlCreateLabel("PC 3 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 3 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc4 $var4 = Ping($ip4,50) If $var4 Then GUICtrlCreateLabel("PC 4 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 4 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc5 $var5 = Ping($ip5,50) If $var5 Then GUICtrlCreateLabel("PC 5 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 5 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc6 $var6 = Ping($ip6,50) If $var6 Then GUICtrlCreateLabel("PC 6 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 6 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc7 $var7 = Ping($ip7,50) If $var7 Then GUICtrlCreateLabel("PC 7 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 7 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc8 $var8 = Ping($ip8,50) If $var8 Then GUICtrlCreateLabel("PC 8 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 8 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc9 $var9 = Ping($ip9,50) If $var9 Then GUICtrlCreateLabel("PC 9 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 9 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc10 $var10 = Ping($ip10,50) If $var10 Then GUICtrlCreateLabel("PC 10 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 10 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc11 $var11 = Ping($ip11,50) If $var11 Then GUICtrlCreateLabel("PC 11 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 11 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc12 $var12 = Ping($ip12,50) If $var12 Then GUICtrlCreateLabel("PC 12 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 12 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc13 $var13 = Ping($ip13,50) If $var13 Then GUICtrlCreateLabel("PC 13 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 13 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc14 $var14 = Ping($ip14,50) If $var14 Then GUICtrlCreateLabel("PC 14 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 14 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc15 $var15 = Ping($ip15,50) If $var15 Then GUICtrlCreateLabel("PC 15 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 15 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf ;Following conditional statement monitors pc16 $var16 = Ping($ip16,50) If $var16 Then GUICtrlCreateLabel("PC 16 is ONLINE ", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0x00ff00) Else GUICtrlCreateLabel("PC 16 IS OFFLINE", 60, 110, 85, 15, $SS_CENTER) GUICtrlSetBkColor(-1, 0xff0000) EndIf Sleep (30000) Wend Edited January 24, 2011 by Jkeith247 Link to comment Share on other sites More sharing options...
water Posted January 24, 2011 Share Posted January 24, 2011 (edited) You have two functions (pinging the PCs on one side and the GUI with additional functions on the other side) which you now try to handle with a single script. I would split it into two scripts running concurrently. One script is running in the background and pings the PCs in a loop. The result is stored in the registry / an ini file / whatever. The second script does the GUI plus the additional stuff. When the user wants to know if the PCs are up and running, read the data and display the result. If the GUI script is closed set a key in the registry / and entry in the ini file ... to let the first script know that it has to exit as well. Just my 2 cts. Edited January 24, 2011 by water My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Jkeith247 Posted January 24, 2011 Author Share Posted January 24, 2011 I thought about that, that is a great idea, Thank you! Do you think it would be better to do this through the registry or an ini file? Which is faster? One would assume the registry, but I could be wrong... Thanks again! Link to comment Share on other sites More sharing options...
water Posted January 24, 2011 Share Posted January 24, 2011 Don't know. If there is a difference it will be quite small. It depends on how often you will do a ping and if you write the results after each ping. If you expect the 16 PCs to be up most of the time I would suggest to ping all 16 PCs, store the results in an array and then write the array at once. Wait a minute and then start over again. My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now