|
| Home → WINDEV 2024 → [WD10] comment connaitre le nom de domaine d'un ordinateur |
| [WD10] comment connaitre le nom de domaine d'un ordinateur |
| Started by b.quincy, Mar., 23 2006 9:46 AM - 4 replies |
| |
| | | |
|
| |
Posted on March, 23 2006 - 9:46 AM |
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
-- |
| |
| |
| | | |
|
| | |
| |
Posted on March, 23 2006 - 11:37 AM |
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 |
| |
| |
| | | |
|
| | |
| |
Posted on March, 23 2006 - 12:11 PM |
| |
| |
| | | |
|
| | |
| |
Posted on March, 23 2006 - 1:25 PM |
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 |
| |
| |
| | | |
|
| | |
| |
Posted on March, 23 2006 - 1:26 PM |
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
|
| |
| |
| | | |
|
| | | | |
| | |
|