FiveTech Software tech support forums

#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