Finde operativsystem på en computer i netværk

Ikke testet!


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  SERVER_INFO_101 = record
    sv101_platform_id : Integer;
    sv101_name : PWideChar;
    sv101_version_major : Integer;
    sv101_version_minor : Integer;
    sv101_type : Integer;
    sv101_comment : PWideChar;
  end;
  PSERVER_INFO_101 = ^SERVER_INFO_101;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function NetServerGetInfo(Server: PWideChar; Level: DWord; var BufPtr:Pointer): LongInt; stdcall; external 'netapi32.dll';

procedure TForm1.Button1Click(Sender: TObject);

function GetServerInfo(ComputerName: String):String;
var
  MyPtr:Pointer;
  MyInfo:PSERVER_INFO_101;
  Server:WideString;
begin
  Server := ComputerName;
  if NetServerGetInfo(PWideChar(Server), 101, MyPtr) <> 0 then
      result := Server+' not available' else begin
  if (MyPtr <> nil) then
  begin
    MyInfo:=PSERVER_INFO_101(MyPtr);
    if MyInfo^.sv101_version_major <= 4 then
  Result := 'Windows NT' else begin
  case MyInfo^.sv101_version_minor of
    0: result := 'Windows 2000';
    1: result := 'Windows XP';
  end;
  end;
  end else result := 'Windows 9x';
  end;
end;
begin
ShowMessage(GetServerInfo('ServerCompany'));
end;
end.

Det kan du med f.eks. portscannings programmet Nmap. det fortæller dig en masse om porte samt giver dig et rimeligt bud på operativsystemet. Der findes flere forskellige værktøjer til dette. Disse værktøjer kan du finde en liste over på samme side som du downloader Nmap. http://www.insecure.org

>>bufferzone
Jeg er i gang med at lave mit eget licensstyringsprogram, hvor jeg har brug for at finde ud af hvilke programmer der er installeret på en maskine samt hvilket operativsystem, den kører.
Jeg kan finde det jeg har brug for i registreringsdatabasen undtage OS. Derfor dette spørgsmål.

>>dkn
Det virker perfekt selvom jeg havde glemt at skrive, at jeg bruger Delphi 5

Okay, vil sige at der måske er noget problemer hvis programmet bliver kørt på win9x maskiner, da dll filen hedder noget andet der, håber ikke det er tilfældet. Men der er skam også råd for det :)

Bare lige sig til

>>dkn
Der er nogle få Win9x maskiner på domænet, så det ville da være dejligt at få en funktion, som dækker alle maskiner.

funktionen dækker alle, det kræves bare at den bliver kørt på en computer med os over win2k så vodt jeg ved.

Men vis programmet skal køres på win9x maskiner så sig lige til igen :)

Jamen det skal det (også)

Ok har bixet en dll som understøtter begge operativ systemmer.

Den tjekker egentlig bare efter det styresystem den er på, og vælger så den rette dll (svrapi.dll eller netapi32.dll).

Men kom med mail og jeg kan sende den til dig.

>>dkn
Du er en knag. Tak for hjælpen.
Send venligst din kode til nca@pmc.odense.dk