1 respuesta en este tema

[JoAnCa]

Hola a todos

Necesito saber que PC de mi red local no estan unidadas al dominio para aplicarles ciertas restricciones para q no puedan acceder a los servicios de red, y para hacerlo tengan q autenticarse en el dominio

 

Pero que sean solo las PC de mi red local, no las de las otras subredes a las q tambien les presto servicos

 

Ejemplo:

Mi red local: 10.1.0.x

Subred 1: 10.1.1.x

Subred 2: 10.1.2.x

Subred 3: 10.1.3.x

 

Solo lo necesito para el segmento de red 10.1.0.x

 

Es decir:

Si (la PC esta en la subred 10.1.0.x) y (No esta unida al Dominio), Entonces Aplicar restriccion

 

El objetivo es obligar a que todos los usuarios de la LAN se unan al dominio, dificultandole el trabajo si no lo hacen

Los demas miembros de la WAN (las otras subredes), no es necesario q esten en el dominio, ya q solo reciben servicio web y de correo

 

 

 

[escafandra]

Un ejemplo de como saber como se une un equipo a la red:

delphi

type
  TNetSetupJoinStatus = (
    NetSetupUnknownStatus,
    NetSetupUnjoined,
    NetSetupWorkgroupName,
    NetSetupDomainName);
 
function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall; external 'netapi32.dll';
function NetGetJoinInformation(lpServer: PWideChar; var lpNameBuffer: PWCHAR; var BufferType: TNetSetupJoinStatus): Cardinal; stdcall; external 'netapi32.dll';
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  SType: array [0..3]of String = ('Unknown','Unjoined','WorkgroupName','DomainName');
var
  Name:  PWCHAR;
  S:     TNetSetupJoinStatus;
begin
  NetGetJoinInformation(PWCHAR(WideString(Edit1.Text)), Name, S);
  Label1.Caption:= SType[integer(S)] + ': ' + String(Name);
  NetApiBufferFree(Name);
end;

Saludos.