Hallo ICTs,
Ik wil graag dat als ik dit vbs scriptje draai dat ik inplaats van 3 vensters achtermekaar krijg dat ik gewoon 1 venster krijg met daarin de antwoorden onder elkaar:
Computer ... is actief
Computer ... is niet actief
computer ... is actief
is dat mogelijk?
Dit is de vbs script, puzzel er maar een beetje mee ^^:
Code
Option Explicit
dim objPing
dim objStatus
dim StringComputerlist
dim ArrayComputers
StringComputerlist= "D0153929|D0152794|D0154442"
ArrayComputers = Split(StringComputerlist, "|", -1, 1)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select Replysize from Win32_PingStatus where address = '" & ArrayComputers(0) & "'")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
WScript.Echo "Computer " & ArrayComputers(0) & " is niet actief"
'...
Else
WScript.Echo "Computer " & ArrayComputers(0) & " is actief"
'...
End If
Next
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select Replysize from Win32_PingStatus where address = '" & ArrayComputers(1) & "'")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
WScript.Echo "Computer " & ArrayComputers(1) & " is niet actief"
'...
Else
WScript.Echo "Computer " & ArrayComputers(1) & " is actief"
'...
End If
Next
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select Replysize from Win32_PingStatus where address = '" & ArrayComputers(2) & "'")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
WScript.Echo "Computer " & ArrayComputers(2) & " is niet actief"
'...
Else
WScript.Echo "Computer " & ArrayComputers(2) & " is actief"
'...
End If
Next
Set objPing=Nothing
Set objStatus=NothingDit omdat ik wil weten welke computers er allemaal actief zijn, zodat ik in me volgende vbs script de informatie kan uitlezen (wat dus alleen kan als de computer actief is).