topic-31553

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

IADsADSystemInfo interface
Posted: Tue Nov 10, 2015 10:07 AM

Buenos días,

por si alguien necesita esta información o quiere jugar con ADSystenInfo

#include "Fivewin.ch"

FUNCTION Main()

LOCAL objSysInfo
LOCAL oDC, oSN, oTree, n, nLen

objSysInfo := CreateObject("ADSystemInfo")
oDC := objSysInfo:GetAnyDCName()
oSN := objSysInfo:GetDCSiteName("tu dominio")
oTree := objSysInfo:GetTrees()
nLen := LEN(oTree)
MsgInfo(oDC)
MsgInfo(oSN)
MsgInfo(nLen)
FOR n:=1 TO nLen
    MsgInfo(oTree[n])
END
MsgInfo(objSysInfo:UserName,"Usuario")
MsgInfo(objSysInfo:ComputerName, "Nombre de la computadora")
MsgInfo(objSysInfo:SiteName, "Nombre del sitio")
MsgInfo(objSysInfo:DomainShortName, "Nombre corto del Dominio")
MsgInfo(objSysInfo:DomainDNSName, "Nombre del DNS")
MsgInfo(objSysInfo:ForestDNSName, "Nombre de DNS del árbol")
MsgInfo(objSysInfo:PDCRoleOwner,"Rol PDC")
MsgInfo(objSysInfo:SchemaRoleOwner, "Propietario del esquema")
MsgInfo(objSysInfo:IsNativeMode, "Está en modo nativo ?")
objSysInfo := NIL

RETURN NIL

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: IADsADSystemInfo interface
Posted: Tue Nov 10, 2015 10:43 AM

Thanks, Felix

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: IADsADSystemInfo interface
Posted: Tue Nov 10, 2015 03:47 PM

Gracias Felix.

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion