Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Client for MS Networks   Найти похожие ветки 

← →
Andrew1   (2003-01-22 00:42) [0]

Подскажите, как программно определить 1) разрешен ли Client for Microsoft Network; 2) разрешен ли NetBIOS over TCP/IP для сетевого адаптера?
Спасибо.

---

← →
Alex Konshin   (2003-01-22 07:47) [1]

Наверно, можно как-то по-другому, но и через Winsock2 тоже можно.


program Test;

{$APPTYPE CONSOLE}
uses
Windows,
SysUtils,
Winsock2;

procedure PrintProtocolInfos( AddsressFamily : Integer );
const MaxProtoInfo = 64;
var pInfo : PWSAPROTOCOL_INFO;
n, i : Integer;
len : DWORD;
pBuffer : Pointer;
begin
len := SizeOf(WSAPROTOCOL_INFO)*MaxProtoInfo;
GetMem(pBuffer,len);
try
pInfo := pBuffer;
n := WSAEnumProtocolsA( nil, pBuffer, len );
WriteLn("n=",n);
if n<0 then
begin
WriteLn( "Error on get network protocols info: "+SysUtils.SysErrorMessage(WSAGetLastError) );
Exit;
end;
if n>0 then
for i := 0 to n-1 do
begin
with pInfo^ do
if iAddressFamily=AddsressFamily then WriteLn( "Protocol "+szProtocol+" is available" );
Inc(pInfo);
end;

finally
FreeMem(pBuffer);
end;
end;

var
rWSAData : TWSAData;
begin
if WSAStartUp( $0202, rWSAData )<>0 then
WriteLn( "Can""t initialize Winsock2" )
else
try
WriteLn("NETBIOS protocols:");
PrintProtocolInfos(AF_NETBIOS);
WriteLn("IPX/SPXII protocols:");
PrintProtocolInfos(AF_IPX);
finally
WSACleanup;
end;
end.


---

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

Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c