Problème VB Script

Fermé

Utilisateur anonyme - 10 mai 2016 à 10:13
jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 - 10 mai 2016 à 11:02

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.

A voir également:

Problème VB Script
Script vidéo youtube - Guide
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Script bat - Guide
Executeur de script - Télécharger - Édition & Programmation

6 réponses

Réponse 1 / 6

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 10:16

Bonjour,

Et en ajoutant le "d" à la fin ?

adsUser.AccountDisabled = False

Réponse 2 / 6

Utilisateur anonyme
10 mai 2016 à 10:17

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

Réponse 3 / 6

Utilisateur anonyme
10 mai 2016 à 10:18

Voilà mon script.

--

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 10:21

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)

Réponse 4 / 6

Julien3392 Messages postés 5 Date d'inscription mercredi 6 janvier 2016 Statut Membre Dernière intervention 10 mai 2016
10 mai 2016 à 10:37

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

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 10:40

Et où sont les balises de code ?????
Merci d'éditer ton message pour les y ajouter.

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 10:40

Merci également de nous indiquer, si il y en a un, le message d'erreur rencontré".

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Utilisateur anonyme
10 mai 2016 à 10:43

Je ne comprends pas les balises de codes.

Par contre le problème viens sur la ligne du

adsUser.AccountDisabled = True

--

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 10:46

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

Réponse 6 / 6

Julien3392 Messages postés 5 Date d'inscription mercredi 6 janvier 2016 Statut Membre Dernière intervention 10 mai 2016
10 mai 2016 à 10:56


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

jordane45 Messages postés 38189 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 mai 2024 4 673
10 mai 2016 à 11:02

Regarde ici : https://www.computerperformance.co.uk/
Tu pourras y trouver une début de réponse je pense.

Discussions similaires

recherche script "les visiteurs"

executer un fichier .py sous linux

Liste COMPLETE des commandes .bat

besoin d'un script

Discussions similaires

Newsletters