Editer un article - Informaticien.be

[Actualités] Microsoft envisage un nouveau modèle de tarification pour le Game Pass suite à...
[Actualités] Des conditions météorologiques dynamiques arrivent dans TOUR DE FRANCE 2026
[Actualités] Microsoft débloque le système de fichiers FAT32, instaurant la limite de 32 Go
[Actualités] Intel prépare des iGPU puissants : Les cartes graphiques bon marché deviendron...
[Actualités] Une bannière demandant l'acceptation des cookies, c'est une blague. On est touj...
[Actualités] La console portable PlayStation 6 devrait offrir une rétrocompatibilité avec l...
[Actualités] « La PlayStation 6 Lite est techniquement irréaliste et irréalisable. »
[Actualités] YouTube va modifier sa stratégie de diffusion publicitaire. Les utilisateurs au...
[Actualités] Test GreedFall : The Dying World (PS5) - Une suite réussie mais perfectible
[Actualités] iOS 18.2 bêta 2 : Nouveautés exclusives à l’Europe et changements pour votr...
[Articles] Unit4 accélère sur le sourcing digital avec Scanmarket et renforce son virage IA
[Articles] GreedFall : The Dying World
[Articles] Mario Tennis Fever
[Articles] Le Tombeau de la Comète
[Articles] Kids on the Slope tome 1
[Articles] Life Is Strange: Reunion
[Articles] L'Apprenti de Lord Magear tome 1
[Articles] Screamer
[Articles] Avant-première ESET : nouvelles fonctionnalités de sécurité IA pour communic...
[Articles] Silly Symphonies

Se connecter Inscription Mot de passe perdu

Connexion

Editer un article

Titre
Mots Clés
Texte	Il vous suffit d'utiliser la fonction suivante. [vb]Function DN(UserName) On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection Set objRootDSE = GetObject("LDAP://rootDSE") objCommand.CommandText = "<LDAP://" & objRootDSE.Get("defaultNamingContext") & ">;(&(objectClass=user)(objectCategory=person)(SAMAccountName=" & UserName & "));AdsPath, cn;subtree" strUserCommand = objCommand.CommandText Set objRecordset = objCommand.Execute If objRecordset.RecordCount <> 0 Then objRecordset.MoveFirst DN=objRecordset.fields("AdsPath") End If objConnection.Close End Function[/vb]
Fichier

Forum - Derniers messages

Bavardages
Aujourd'hui, je rénove ou je construis ^^

Bavardages
Séries TV, vous regardez quoi?

Informations
Besoin d’avis sur l’UX de mon mini-projet web (et plus globalement sur ce qui vous rebute sur un site) ?

Software
problème sur windows 10

Réseaux et Télécom
Problème wifi (POE)

Software
Postfix - Need help

Bavardages
Oh râge oh désespoir !

Programmation
Enregistrement client et envoi mail

Software
SÉCURITÉ MACBOOK

Hardware
conseil matos réseau?

Actualités - Archives

Ada

CSS

Cobol

CPP

HTML

Fortran

Java

JavaScript

Pascal

Perl

PHP

Python

SQL

VB

XML

Anon URL

DailyMotion

eBay

Flickr

FLV

Google Video

Google Maps

Metacafe

MP3

SeeqPod

Veoh

Yahoo Video

YouTube

6px

8px

10px

12px

14px

16px

18px

Verixi Internet Services

Informaticien.be - © 2002-2026 Akretio SRL - Generated via Kelare Haut de page