Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать какая винда стоит на другой машине в локалке [D5, Win95/98, Win2k]

Fixxxer © (2003-03-06 02:03:00)
Уважаемые мастера! Подскажите пожалуйста как можно узнать какой версии стоит винда на компе в локалке.
Заранее благодарю.

Saint_Byte (2003-03-13 08:48:00) [1]
В Kylix можно запустить нмап с параметром -О и разобрать его ответ.

KAN (2003-03-12 14:26:00) [2]
Набросок процедуры
procedure ScanNet(Server:String);
var
info : PSERVER_INFO_100;
FCount,ent, ResumeHandle : cardinal;
i,er,_type,major,minor : integer;
Srv : LPWSTR;
ListItem: TListItem;
Platform_id : DWord;
HostName,comment,OS : String;

begin
GetMem( Srv, 50 );
if Server <> "" then
begin
if Pos( "\\", Server) = 0 then Server := "\\" + Server;
StringToWideChar( Server, Srv, 50 );
end
else
Srv := nil;
er := NetServerEnum( Srv, 101, PByte(info), sizeof(PSERVER_INFO_100), ent, FCount,1,nil, ResumeHandle );
if er = 0 then
begin
for i:=0 to ent-1 do
begin
HostName := WideCharToString(info^.sv101_name);
Platform_id := Info^.sv101_platform_id;
major := info^.sv101_version_major;
minor := info^.sv101_version_minor;
comment := info^.sv101_comment;
OS := "Win9x";
if Platform_id =500 then
begin
OS := "WinNT"+IntToStr(major)+"."+IntToStr(minor);
end;

ListItem := Form1.ListView1.Items.Add;
ListItem.Caption := "";
ListItem.ImageIndex := -1;
ListItem.SubItems.Add(HostName); //Host
ListItem.SubItems.Add(OS); //OS
ListItem.SubItems.Add(comment);
ListItem.Checked := True;
Inc(info);
end;

end;
FreeMem( Srv, 50 );
end;

Malder (2003-03-11 18:01:00) [3]
Ты лучше в интернете поищи на эту тему, а не на этом сайте - так как непосредственно к дельфе это отношение не имеет. Не помню, как это называется, но такое вполне возможно... хотя существуют стандарты, но разные ОС придерживаются их по разному, а иногда и сами себя идентифицируют.

А вообще, сабжем не занимался - так что помочь не смогу... =)

alexteam (2003-03-11 13:24:00) [4]
спросить

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »