por si alguien necesita esta información o quiere jugar con ADSystenInfo
- Code: Select all Expand view
- #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
