Скачать: CL | DM;

Почему не получается получить адрес хоста для TCP/IP порта   Найти похожие ветки 

← →
AlexEgorov   (2006-02-21 15:42) [0]

принтера. На машинах WinXP SP2 всё работает, а на Win2003 SP1 не работает - вылетает с исключением, хотя этот же код, написанный на VBS отлично работает и на Win2003. Почему такое может быть?

function GetHostAddress(Computer, PortName: WideString): WideString;
var
 SWbemLocator:   ISWbemLocator;
 Services, Port: OleVariant;
begin
 Result := "";
 try
   SWbemLocator := CreateOleObject("WbemScripting.SWbemLocator") as ISWbemLocator;
   Services     := SWbemLocator.ConnectServer(Computer, "root\CIMV2", "", "", "", "", 0, nil);
   Port         := Services.Get("Win32_TCPIPPrinterPort.Name=""" + PortName + """");
   try
     Result := Port.HostAddress;
   finally
     Port     := Unassigned;
     Services := Unassigned;
   end;  
 except
 end;
end;


Вылетает на строке Result := Port.HostAddress;

---

← →
umbra ©   (2006-02-21 16:30) [1]

> Вылетает

а можно подробнее: какая ошибка получается и т.д.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c