如何在2000和NT下监测机器中安装得多台网络打印机的状态是否可用！！急！急！急！在线等。。。。。。。。。。。。。。。。。。。。。。。

function TestPrinterStatus(LPTPort: word): byte; 
var 
  Status: byte; 
  CheckLPT: word; 
begin 
  Status := 0; 
  if (LPTPort >= 1) and (LPTPort <= 3) then 
    begin 
      CheckLPT := LPTPort -1; 
      asm 
        mov dx, CheckLPT; 
        mov al, 0; 
        mov ah, 2; 
        int 17h; 
        mov &Status, ah; 
      end; 
    end; 
  Result := Status; 
end; 
用这个会报错！！在int 17h;处！请高手给种别的监测方法！！~！！