Ir al contenido



Foto

Como saber si una PC no esta unida al dominio


1 respuesta en este tema

#1 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 741 mensajes
  • LocationPinar del Río, Cuba

Escrito 22 diciembre 2015 - 03:40

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

 

 

 


  • 0

#2 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.893 mensajes
  • LocationMadrid - España

Escrito 23 diciembre 2015 - 07:44

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



delphi
  1. type
  2. TNetSetupJoinStatus = (
  3. NetSetupUnknownStatus,
  4. NetSetupUnjoined,
  5. NetSetupWorkgroupName,
  6. NetSetupDomainName);
  7.  
  8. function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall; external 'netapi32.dll';
  9. function NetGetJoinInformation(lpServer: PWideChar; var lpNameBuffer: PWCHAR; var BufferType: TNetSetupJoinStatus): Cardinal; stdcall; external 'netapi32.dll';
  10.  
  11. var
  12. Form1: TForm1;
  13.  
  14. implementation
  15.  
  16. {$R *.dfm}
  17.  
  18. procedure TForm1.Button1Click(Sender: TObject);
  19. const
  20. SType: array [0..3]of String = ('Unknown','Unjoined','WorkgroupName','DomainName');
  21. var
  22. Name: PWCHAR;
  23. S: TNetSetupJoinStatus;
  24. begin
  25. NetGetJoinInformation(PWCHAR(WideString(Edit1.Text)), Name, S);
  26. Label1.Caption:= SType[integer(S)] + ': ' + String(Name);
  27. NetApiBufferFree(Name);
  28. end;



Saludos.
  • 1



Responder en este tema