Ping Script ?

[MrWho]

Hi Guys,

One of the friends from here posted this script

Is there a way to feed a list of computers to that script .. ( list of IP/Hostnames )

Thank you very much

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <Constants.au3>
#include "array.au3"
#include <GUIConstants.au3>

Dim $line 
Dim $item
$GUI = GUICreate("My GUI" , 800 , 600) 
$listview = GuiCtrlCreateListView ("Indication|Computer|Ip|Status  ", 40,40,400,500)

GUISetState (@SW_SHOW)  

$foo = Run(@ComSpec & " /c net view ", @SystemDir, @SW_HIDE,2)

While 1 
    $sActiveLine = StdoutRead($foo)
    If @error Then ExitLoop
    If StringLeft($sActiveLine, 2) = "\\" Then
        $line &= StringReplace($sActiveLine, "\\" , "") & @CRLF
    EndIf
Wend

$line = StringReplace($line, " " , "")
$line = StringReplace($line, @LF,"")
$line = StringSplit ($line, @CR)

TCPStartup()

For $i = 1 To $line[0] - 1
    $result = Ping($line[$i] ,1)
    If NOT @ERROR Then
        $line[$i] = GuiCtrlCreateListViewItem($line[$i] & "|" & TCPNameToIP($line[$i]) &"|ONLINE",$listview)
        GUICtrlSetImage(-1, "shell32.dll",21)
    Else
        $line[$i] = GuiCtrlCreateListViewItem($line[$i] & "|" & TCPNameToIP($line[$i]) &"|OFFLINE",$listview)
        GUICtrlSetImage(-1, "shell32.dll",22)
    EndIf
Next

TCPShutdown()

while 1 
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

[martin]

It looks like a strange script to me. It uses net view which gives a list of connected computers. It then converts the computer names to an ip , which is not necessary, then pings using the ip but using the name would work, to find out if the computer which is connected is connected. So I would expect that half of the script could be removed.

Anyway, the point is that you need to learn a language if you want to use it and you need to have written or modified something yourself which you are having trouble with to get much help here IMO.

[CH0VI3]

Hi MrWho,

I have found a sample in here, that is called "pingtest1.6.1.zip". Have a look around and see if this is what you are looking for.

Kind Regards

CH0VI3

Edited April 20, 2011 by CH0VI3

[UEZ]

Here something I wrote - just download it: http://www.autoit.de/index.php?page=Thread&postID=220550

Screenshot: http://www.autoit.de/index.php?page=Attachment&attachmentID=15983

Any feedback would be great!

Br, UEZ

Edited July 18, 2012 by UEZ

[Fr0zT]

Well I'm a bit late to the ball here but for reference you might want to check out an AutoIt ping utility I wrote here:

It is fully multi-threaded(real threads, not timers or adlib) so it works well for pinging multiple IP's simultaneously. Also you can feed a list in simply by enumerating and calling pingThreaded("x.x.x.x")

Edited July 19, 2011 by Fr0zT

[travelerjjm]

UEZ, I tried your code and got these errors. Maybe I have too new a version of something?

expandcollapse popup

"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Users\John\gcheck Online Status\Check Online Status.au3" /UserParams  
+>14:18:29 Starting AutoIt3Wrapper v.2.1.0.8    Environment(Language:0409  Keyboard:00000409  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0)  from:C:\Program Files (x86)\AutoIt3
C:\Program Files (x86)\AutoIt3\Include\WinAPI.au3(159,38) : ERROR: $TMPF_FIXED_PITCH previously declared as a 'Const'.
Global Const $TMPF_FIXED_PITCH = 0x01
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\WinAPI.au3(160,33) : ERROR: $TMPF_VECTOR previously declared as a 'Const'.
Global Const $TMPF_VECTOR = 0x02
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\WinAPI.au3(161,35) : ERROR: $TMPF_TRUETYPE previously declared as a 'Const'.
Global Const $TMPF_TRUETYPE = 0x04
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\WinAPI.au3(162,33) : ERROR: $TMPF_DEVICE previously declared as a 'Const'.
Global Const $TMPF_DEVICE = 0x08
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(115,103) : WARNING: $WS_EX_TOPMOST: possibly used before declaration.
Global Const $Label = GUICtrlCreateLabel("", 222, 538, 66, 17, $SS_CENTER + $SS_SIMPLE, $WS_EX_TOPMOST)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(123,83) : WARNING: $WS_VSCROLL: possibly used before declaration.
        BitOR($GUI_SS_DEFAULT_LISTVIEW, $LVS_AUTOARRANGE, $LVS_NOSORTHEADER, $WS_VSCROLL)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(124,26) : WARNING: $WS_EX_CLIENTEDGE: possibly used before declaration.
        BitOR($WS_EX_CLIENTEDGE,
        ~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(181,27) : WARNING: $WM_COMMAND: possibly used before declaration.
GUIRegisterMsg($WM_COMMAND,
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(182,31) : WARNING: $WM_CONTEXTMENU: possibly used before declaration.
GUIRegisterMsg($WM_CONTEXTMENU,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(357,95) : WARNING: $STDOUT_CHILD: possibly used before declaration.
    Local $run = Run(@ComSpec & " /c ping -a -n 1 -4 " & $ip, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(369,106) : WARNING: $WS_EX_TOOLWINDOW: possibly used before declaration.
    Local Const $hGUI_IP = GUICreate("IP Range (class c only)", 354, 179, -1, -1, Default, $WS_EX_TOOLWINDOW,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(485,78) : WARNING: $GUI_SS_DEFAULT_GUI: possibly used before declaration.
    $hGUI_Settings = GUICreate("Settings", 612, 229, -1, -1, $GUI_SS_DEFAULT_GUI,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(518,131) : WARNING: $WS_TABSTOP: possibly used before declaration.
    $cSlider = GUICtrlCreateSlider(88, 138, 440, 30, BitOR($TBS_BOTH,$TBS_NOTICKS, $TBS_ENABLESELRANGE, $TBS_FIXEDLENGTH, $WS_TABSTOP)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(556,28) : WARNING: $WM_HSCROLL: possibly used before declaration.
    GUIRegisterMsg($WM_HSCROLL,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(765,74) : WARNING: $COLOR_MENU: possibly used before declaration.
        $hBitmap = _WinAPI_CreateSolidBitmap(0, _WinAPI_GetSysColor($COLOR_MENU)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(115,103) : ERROR: $WS_EX_TOPMOST: undeclared global variable.
Global Const $Label = GUICtrlCreateLabel("", 222, 538, 66, 17, $SS_CENTER + $SS_SIMPLE, $WS_EX_TOPMOST)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(123,83) : ERROR: $WS_VSCROLL: undeclared global variable.
        BitOR($GUI_SS_DEFAULT_LISTVIEW, $LVS_AUTOARRANGE, $LVS_NOSORTHEADER, $WS_VSCROLL)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(124,26) : ERROR: $WS_EX_CLIENTEDGE: undeclared global variable.
        BitOR($WS_EX_CLIENTEDGE,
        ~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(181,27) : ERROR: $WM_COMMAND: undeclared global variable.
GUIRegisterMsg($WM_COMMAND,
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(182,31) : ERROR: $WM_CONTEXTMENU: undeclared global variable.
GUIRegisterMsg($WM_CONTEXTMENU,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(357,95) : ERROR: $STDOUT_CHILD: undeclared global variable.
    Local $run = Run(@ComSpec & " /c ping -a -n 1 -4 " & $ip, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(369,106) : ERROR: $WS_EX_TOOLWINDOW: undeclared global variable.
    Local Const $hGUI_IP = GUICreate("IP Range (class c only)", 354, 179, -1, -1, Default, $WS_EX_TOOLWINDOW,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(485,78) : ERROR: $GUI_SS_DEFAULT_GUI: undeclared global variable.
    $hGUI_Settings = GUICreate("Settings", 612, 229, -1, -1, $GUI_SS_DEFAULT_GUI,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(518,131) : ERROR: $WS_TABSTOP: undeclared global variable.
    $cSlider = GUICtrlCreateSlider(88, 138, 440, 30, BitOR($TBS_BOTH,$TBS_NOTICKS, $TBS_ENABLESELRANGE, $TBS_FIXEDLENGTH, $WS_TABSTOP)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(556,28) : ERROR: $WM_HSCROLL: undeclared global variable.
    GUIRegisterMsg($WM_HSCROLL,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3(765,74) : ERROR: $COLOR_MENU: undeclared global variable.
        $hBitmap = _WinAPI_CreateSolidBitmap(0, _WinAPI_GetSysColor($COLOR_MENU)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\John\gcheck Online Status\Check Online Status.au3 - 15 error(s), 11 warning(s)

[water]

The $TMPF_* constants have been defined in another UDF you included. As WinAPI is an UDF that comes with AutoIt you should remove the constants from one of the non-default UDFs.

All other missing constants just show that another default UDF is missing.

Add

#AutoIt3Wrapper_Add_Constants=y

and the missing files will be included automatically.

[UEZ]

@travelerjjm: which AutoIt version you are using? Seems to be that your version is an older one.

Br,

UEZ

[travelerjjm]

I am running 3.3.8.1 which is the current version according to the site.

[travelerjjm]

I copied the code directly.I understand about the missing constants and fixed that as you suggested. I still have dups in the $TMPF constants.from WinAPI. I only included what you did. I commented them out of APIConstants.au3 and the code runs. I'm not sure why the values are duplicated in the include files.