Server mit 2 USVen - Herunterfahren bei Ausfall beider USVen

Hallo zusammen,

ich arbeite zurzeit an einem Konzept wo Server an 2 USVen angeschlossen sind.

Da APC nicht die Möglichkeit bietet, die angeschlossenen Server zeitversetzt herunterzufahren, sonder nur alle zur gleichen Zeit (auch mit Zeitverzögerung, aber alle gleichzeitig), habe ich ein VB Skript geschrieben, in dem der Batteriezustand abgefragt wird und ab einem gewissen Level die angeschlossenen Server herunterfahren in der Reihenfolge, die ich vorher per CSV festgelegt habe.

Nun habe ich bisher nur mit einer USV getestet und alles funktioniert reibungslos.

Wenn ich die 2. USV anschließe, bekomme ich diese am Server angezeigt, allerdings werden die Server bereits heruntergefahren, wenn die erste USV auf Batteriestrom geht.

Wie bekomme ich es hin, dass mein Skript beide USVen betrachtet und erst dann zur Tat schreitet, wennbeide USVen auf Batteriestrom gehen?

Mein Skript in Auszügen:

Set objWMIBattery = GetObject("WinMgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Battery")

Do 
For Each objBattery In objWMIBattery
  objBattery.Refresh_
	Select Case objBattery.BatteryStatus
		Case 1, 4, 5, 9 '1=Discharging, 4=Low, 5=Critical, 9=Critical and Charging
			If objBattery.EstimatedChargeRemaining <= intBatteryThresholdLevel Then
				objLogFile.WriteLine(Now & vbTab & "USV-Control hat einen Fehler festgestellt") 'Eintrag im Logfile
				ShutdownProcess
			End If
	End Select
Next
WScript.Sleep(1000)
Loop

Ich hoffe es findet sich jemand, der mir helfen kann. Im Moment stehe ich wie ein Ochs vorm Berg.

Gruß

André

André Hoppenkamps