Как узнать какая винда стоит на другой машине в локалке

← →
Fixxxer © (2003-03-06 02:03) [0]

Уважаемые мастера! Подскажите пожалуйста как можно узнать какой версии стоит винда на компе в локалке.
Заранее благодарю.

← →
alexteam © (2003-03-11 13:24) [1]

спросить

← →
Malder © (2003-03-11 18:01) [2]

Ты лучше в интернете поищи на эту тему, а не на этом сайте - так как непосредственно к дельфе это отношение не имеет. Не помню, как это называется, но такое вполне возможно... хотя существуют стандарты, но разные ОС придерживаются их по разному, а иногда и сами себя идентифицируют.

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

← →
KAN (2003-03-12 14:26) [3]

Набросок процедуры
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;

← →
Saint_Byte (2003-03-13 08:48) [4]

В Kylix можно запустить нмап с параметром -О и разобрать его ответ.

Как узнать какая винда стоит на другой машине в локалке Найти похожие ветки