Problème VB Script
Utilisateur anonyme
-
jordane45 Messages postés 40050 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 40050 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.
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.
A voir également:
- Problème VB Script
- Script vidéo youtube - Guide
- Ghost script - Télécharger - Polices de caractères
- Vb - Télécharger - Langages
- Mas script - Accueil - Windows
- Script cmd - Guide
6 réponses
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)
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."
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
--
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
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.
Tu pourras y trouver une début de réponse je pense.
