Problème VB Script

Bonjour,

Et en ajoutant le "d" à la fin ?

adsUser.AccountDisabled = False

Même avec le D.
Cela ne fonctionne pas ..

Voilà mon script.

--

Voila mon script :

wscript.echo "Le script commence. Cliquez OK pour continuer."
DIM arrRecord
Const ForReading = 1

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
Set Domain = GetObject("LDAP://" & DomainPath)
Set ou_HR = GetObject("LDAP://OU=UOSio, " & DomainPath)
Set fso = CreateObject ("Scripting.FileSystemObject")

Set tsTextFile = fso.OpenTextFile ("C:\ADSI\SIO.txt",ForReading, False)

While Not tsTextFile.AtEndOfStream 'START OF LOOP
strRecord = tsTextFile.ReadLine

arrRecord = Split (strRecord, ":")
Set adsUser = ou_HR.Create("user","CN="& arrRecord(2))

adsUser.Put"sAMAccountName", arrRecord(2)
adsUser.Put"userPrincipalName", arrRecord(2)
adsUser.AccountDisabled = True
adsUser.sn = arrRecord(0)
adsUser.GivenName = arrRecord(1)

Set grp = GetObject("LDAP://OU=UOSio,DC=siosoft,DC=local")

Set adsUser=Nothing
Wend 'END OF LOOP

tsTextFile.Close

wscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."

Je ne comprends pas les balises de codes.

Par contre le problème viens sur la ligne du

adsUser.AccountDisabled = True

--

wscript.echo "Le script commence. Cliquez OK pour continuer."
DIM arrRecord
Const ForReading = 1

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
Set Domain = GetObject("LDAP://" & DomainPath)
Set ou_HR = GetObject("LDAP://OU=UOSio, " & DomainPath)
Set fso = CreateObject ("Scripting.FileSystemObject")

Set tsTextFile = fso.OpenTextFile ("C:\ADSI\SIO.txt",ForReading, False)

While Not tsTextFile.AtEndOfStream 'START OF LOOP
strRecord = tsTextFile.ReadLine

arrRecord = Split (strRecord, ":")
Set adsUser = ou_HR.Create("user","CN="& arrRecord(2))

adsUser.Put"sAMAccountName", arrRecord(2)
adsUser.Put"userPrincipalName", arrRecord(2)
adsUser.AccountDisabled = True
adsUser.sn = arrRecord(0)
adsUser.GivenName = arrRecord(1)

Set grp = GetObject("LDAP://OU=UOSio,DC=siosoft,DC=local")

Set adsUser=Nothing
Wend 'END OF LOOP

tsTextFile.Close

wscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."

Message d'erreur rencontrer : 8000500D
Erreur sur la ligne : adsUser.AccountDisabled = True