1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
| <html>
<head>
<title>Ping Utility</title>
<hta:application id="Accespointtest" applicationname="acces point link test" border="thin" caption="yes" contextmenu="no" maximizebutton="no"
navigable="no" scroll="no" selection="yes" showintaskbar="yes" singleinstance="yes" sysmenu="yes" windowstate="normal">
</head>
body { background-color:#173b71; color:black; font-family:arial; font-size:12pt; border:0px; padding:0px; margin:0px; }
div{ background-color:#173b71; color:white; font-family:tahoma; font-size:8pt; }
div.msg { background-color:#a1c6eb; border:3px double white; border-style:thin; color:black; font-family:tahoma; font-size:8.5pt;
font-weight:bold; position:relative; }
div.title{ background-color:#173b71; color:white; font-family:san-sarif; font-size:10pt; font-weight:bold; }
<script language="VBScript">
Sub Window_Onload
window.resizeTo 200,150
End Sub
Sub pingfromlist()
strList = "c:\list.txt"
strLog = "c:\log.txt"
Set objfso = CreateObject("scripting.filesystemobject")
Set objlist = objfso.OpenTextFile(strList,1)
Set objlog = objfso.CreateTextFile(strLog,True)
Do Until objlist.AtEndOfStream
strComputer = objlist.ReadLine
objlog.WriteLine Ping(strComputer)
Loop
Function Ping(strComputer)
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec( _
"ping -n 2 " & strComputer)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
If InStr(strPingResults, "ms") Then
If InStr(strPingResults, "la" ) Then
Ping = "did not respond to ping."
Else
Ping = strComputer & " responded to ping."
End If
Else
Ping = strComputer & " did not respond to ping."
End If
End Function
End Sub
</script>
<body onkeypress="DoCheckEnterKey">
<div class="title" style="position:absolute; left:45px; top:5px;">execute a ping test on all access point</div>
<div style="position:absolute; left:5px; top:40px; width:85px; height:35px;"><b>check logfile in c:</b></div>
<input class="action_button" type="button" value="Ping" name="PingButton"
onClick="pingfromlist" tabindex="2" style="position:absolute;left:225px; top:45px;">
</body>
</html> |
