A voir également:
- Problème VB Script
- Script vidéo youtube - Guide
- Vb - Télécharger - Langages
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- Vb cable - Télécharger - Audio & Musique
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.
