Den WinXP Rechner kannst Du per RDP (Remote Desktop Protocol) ansprechen.
Steht alles am Ende des ersten Post:
http://homematic-forum.de/forum/viewtop ... 1480#p7119
Code: Alles auswählen
<?
$V_MAKRONetzwerkMonitor1_errcnt = 0;
$V_MAKRONetzwerkMonitor1_prot = "";
$s = fsockopen("obiwan.kugelmann.net", 3389, $errno, $errstr, 1);
if (!$s) {
$V_MAKRONetzwerkMonitor1_prot = $V_MAKRONetzwerkMonitor1_prot."/rdp ";
$V_MAKRONetzwerkMonitor1_errcnt++;
}
else
{
fclose($s);
}
?>
wenn prot = "" dann
LOGNetzwerkStatus := "Serverstatus:<<<<obiwan.kugelmann.net ist OK"
sonst
LOGNetzwerkStatus := "Serverstatus:<<<<obiwan.kugelmann.net ist fehlerhaft<<Protokoll " + prot + "down"
endewenn
wenn errcnt = 0 dann
OBJNetStatObiwan := "ok"
OBJNetStatObiwan.errcnt := 0
OBJNetStatObiwan.mail := 0
sonst
OBJNetStatObiwan.errcnt := OBJNetStatObiwan.errcnt + 1
endewenn
wenn OBJNetStatObiwan.errcnt >= 2 und errcnt > 0 und errcnt <= 2 dann
OBJNetStatObiwan := "warnung"
** hier ggf. aktionen ausführen für den fall "warnung"
endewenn
wenn OBJNetStatObiwan.errcnt >= 2 und errcnt > 2 dann
OBJnetstatObiwan := "fehler"
** hier ggf. aktionen ausführen für den fall "fehler"
endewenn