Frage zu JavaScript im HTA-File

mmahoni · 13 November 2006

Hallo, ich möchte gern per wmi abfragen welche Rechner im Netz online bzw. "pingbar" sind. Im Prinzip funktioniert das auch schon, nur bekomme ich es nicht hin das in dem HTA-File dann auch die Ergebnisse untereinander aufgelistet werden ( es wird halt bei jedem durchlauf überschrieben). Da ich leider ein ProgrammierDAU bin hoffe ich hier hilfe zu bekommen.

Danke schonmal für eure Hilfe...
mmahoni

HTML:

<head>
<title>Operating System Version</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Operating System Version"
     SCROLL="yes"
     SINGLEINSTANCE="yes">
</head>

<script language="VBScript">


Sub Ping
strComputer = "."
arrTargets = Array( "192.168.0.11", "192.168.0.12", _
 "134.100.98.15")

 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 For Each strTarget In arrTargets

   Set colPings = objWMIService.ExecQuery _
   ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
  If Err = 0 Then
    
    For Each objPing in colPings
      If objPing.StatusCode = 0 Then
        
strHTML = "<table border='1' style='border-collapse: collapse' "  & _
        "bordercolor='#111111' width='100%' id='Table1' >"

        strHTML = strHTML & "<tr>"
        strHTML = strHTML & "<td width='50%'>" & VbCrLf & strTarget & " responded to ping." & "</td>"
        strHTML = strHTML & "<td width='50%'>" & objPing.ProtocolAddress & _
"</td>"
       
      Else

strHTML = "<table border='1' style='border-collapse: collapse' "  & _
        "bordercolor='#111111' width='100%' id='Table1' >"
    
    strHTML = strHTML & "<tr>"
        strHTML = strHTML & "<td width='50%'>" & VbCrLf & strTarget & " did not respond to ping." & "</td>"
        strHTML = strHTML & "<td width='50%'>" & "Status Code: " & objPing.StatusCode & _ 
        "</td>"
 End If
    Next
  Else 
    
  End If

 Next

strHTML = strHTML & "</table>"
    DataArea.InnerHTML = strHTML

End Sub 

</script>

<body STYLE="font:14 pt arial; color:white;
 filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">

<input type="button" value="Online" name="run_button"  onClick="Ping">

<p>
<span id = "DataArea"></span>
</body>

Moderator-Edit - Aktion: Code-Tags hinzugefügt (Artemis)

Frage zu JavaScript im HTA-File

mmahoni

Neues Mitglied

Neueste Beiträge