|
| [WD10] comment connaitre le nom de domaine d'un ordinateur |
| Iniciado por b.quincy, 23,mar. 2006 09:46 - 4 respuestas |
| |
| | | |
|
| |
Publicado el 23,marzo 2006 - 09:46 |
Bonjour
Je voudrais via wd10 connaitre le nom de domaine d'un ordinateur ?
Y a t-il une fonction Wd10, je ne trouve pas dans l'aide ?
Merci de votre réponse
Amicalement
Bernard
-- |
| |
| |
| | | |
|
| | |
| |
Publicado el 23,marzo 2006 - 11:37 |
Bonjour
Je voudrais via wd10 connaitre le nom de domaine d'un ordinateur ?
Y a t-il une fonction Wd10, je ne trouve pas dans l'aide ?
Merci de votre réponse
Amicalement
Bernard
sDomaine est une chaîne
sDomaine = SysEnvironnement("USERDOMAIN")
sDomaine = ExtraitChaîne(sDomaine, 2, "=")
Cordialement
--
BLR |
| |
| |
| | | |
|
| | |
| |
Publicado el 23,marzo 2006 - 12:11 |
| |
| |
| | | |
|
| | |
| |
Publicado el 23,marzo 2006 - 13:25 |
FUNCTION LDAPGetDomainName()
// renvoie \\[computerName].[DomainName]
NomDuDomaine est une chaîne = ""
nCONTROLLER_INFO est un entier sans signe sur 8 octets
sDomainControllerName est une chaîne ASCIIZ sur 1024 =""
dwRes est un entier sur 8 octets
PileDesProcedures += "LDAPGetDomainName()"+CRLF
WHEN EXCEPTION IN
API("Netapi32.dll", "DsGetDcNameA", 0x00, 0x00, 0x00, 0x00, 0 , &nCONTROLLER_INFO)
Transfert(&dwRes, nCONTROLLER_INFO, 4)
Transfert(&sDomainControllerName, dwRes, 1023)
DO
RENVOYER ""
END
RENVOYER NomDuDomaine |
| |
| |
| | | |
|
| | |
| |
Publicado el 23,marzo 2006 - 13:26 |
PileDesProcedures += "LDAPGetDomainName()"+CRLF
A oter
"Philippe Pasquali" <philippe.pasquali@bopack.com> a écrit dans le message
de news: 442282e1$1@news.pcsoft.fr...
FUNCTION LDAPGetDomainName()
// renvoie \\[computerName].[DomainName]
NomDuDomaine est une chaîne = ""
nCONTROLLER_INFO est un entier sans signe sur 8 octets
sDomainControllerName est une chaîne ASCIIZ sur 1024 =""
dwRes est un entier sur 8 octets
PileDesProcedures += "LDAPGetDomainName()"+CRLF
WHEN EXCEPTION IN
API("Netapi32.dll", "DsGetDcNameA", 0x00, 0x00, 0x00, 0x00, 0 ,
&nCONTROLLER_INFO)
Transfert(&dwRes, nCONTROLLER_INFO, 4)
Transfert(&sDomainControllerName, dwRes, 1023)
DO
RENVOYER ""
END
RENVOYER NomDuDomaine
|
| |
| |
| | | |
|
| | | | |
| | |
|