Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.08;
Скачать: CL | DM;

Вниз

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

 
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 можно запустить нмап с параметром -О и разобрать его ответ.



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

Текущий архив: 2003.05.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-23080
maza
2003-04-25 23:52
2003.05.08
tab sheeeeeet


14-23340
race1
2003-04-19 16:07
2003.05.08
cakewalk vs. w2k


9-22901
ProTeuS
2002-12-05 11:34
2003.05.08
OpenGL


3-22916
Sour
2003-04-19 08:34
2003.05.08
Выделить элемент TDBLookupListBox (TDBLookupComboBox)


3-23005
Ihtiandr
2003-04-17 11:00
2003.05.08
lock