// // SAP-DR-PING.VDM (C) C.Z. 10.10.1997 // 10.02.2003 // // ermittelt, ob der Eintrag der Cursorzeile in der exportierten SAP-Drucker-Liste // anpingbar ist // Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 2 ) RS(99,^ bol Search_Block('PALPDHOST = "', CP, EoL_Pos, ADVANCE+NOERR) if (EM) { Statline_Message(" kein Drucker-Eintrag! ") // Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 0 ) return } bb(CP) S('"') rcb(10,bb,cp) bb(clear) File_Delete("|(VEDIT_TEMP)\ping.tmp", OK+NOERR) Message(" pinging, please wait ...", STATLINE) system("ping |@(10) > |(VEDIT_TEMP)\ping.tmp",DOS+SIMPLE+OK) File_Open("|(VEDIT_TEMP)\ping.tmp") Search("|{Antwort von,unbekannt,erreichbar,Zeit|Aberschreitung}", BEGIN+NOERR) if(!EM){ if(MI==1){ RS(12, "|@(10) reached ") }else{ if(MI==2){ RS(12, "|@(10) unknown ") }else{ RS(12, "|@(10) NOT reached ") } } }else{ RS(12, ">>> unknown error ") } Buf_Quit(OK) Statline_Message("|@(12)") ^) Key_Add("F12","[VISUAL EXIT] Call(99)",OK) // 123.45.67 test