Problème VB Script
Utilisateur anonyme
-
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
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.
--
Posté depuis CCM Live forum pour Android
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.
--
Posté depuis CCM Live forum pour Android
6 réponses
-
Bonjour,
Et en ajoutant le "d" à la fin ?adsUser.AccountDisabled = False
-
-
-
Merci de nous coller le code DIRECTEMENT sur le forum au lieu d'en mettre une capture écran.
NB: Pense à utiliser les BALISES DE CODE (explications ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code)
-
-
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." -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Je ne comprends pas les balises de codes.
Par contre le problème viens sur la ligne du
adsUser.AccountDisabled = True
---
Tu ne comprends pas les balises de code ???
Et le lien que je t'ai donné .... tu as été voir au moins ?
Lis (et applique) ceci : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
-
-
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-
Regarde ici : https://www.computerperformance.co.uk/
Tu pourras y trouver une début de réponse je pense.
-
