Problème VB Script Fermé

Question

Bonjour à tous, voilà je me trouve face à un problème.
J'ai créer mon fichier VBS pour créer mes utilisateurs tout fonctionne sans soucis jusque là mais quand je rajoute la commande : adsUser.AccountDisable = False.

La problème une erreur survient ce qui est embêtant car si je l'enlève il me créer bien tout les utilisateurs mais en compte désactiver.

Help Me.

jordane45 · Answer

Bonjour,

Et en ajoutant le "d" à la fin ?

adsUser.AccountDisabled = False

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

Voilà mon script.

--

Julien3392 · Answer

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."

Utilisateur anonyme · Answer

Je ne comprends pas les balises de codes.

Par contre le problème viens sur la ligne du

adsUser.AccountDisabled = True

--

Julien3392 · Answer

wscript.echo "Le script commence. Cliquez OK pour continuer."DIM arrRecordConst ForReading = 1Set 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 LOOPstrRecord = tsTextFile.ReadLinearrRecord = Split (strRecord, ":")Set adsUser = ou_HR.Create("user","CN="& arrRecord(2))adsUser.Put"sAMAccountName", arrRecord(2)adsUser.Put"userPrincipalName", arrRecord(2)adsUser.AccountDisabled = TrueadsUser.sn = arrRecord(0)adsUser.GivenName = arrRecord(1)Set grp = GetObject("LDAP://OU=UOSio,DC=siosoft,DC=local")Set adsUser=NothingWend 'END OF LOOPtsTextFile.Closewscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."

Message d'erreur rencontrer : 8000500D
Erreur sur la ligne : adsUser.AccountDisabled = True

Problème VB Script

6 réponses

Discussions similaires