bonjour a tous
comme Jean je cherche un script pour creer des utilisateurs sur un serveur
SBS 2003 a partir d'un fichier Excel dans lequel ils sont notes
(secretariat note les utilisateurs puis lance le script pour creer les
comptes)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Mathieu CHATEAU
bonjour,
j'avais commencé à créer un tel script sans aller jusqu'au bout faute de temps. le format du fichier excel est par colonne: prenom nom nomade (0/1) mot de passe
Le mot de passe doit être changé à la première connexion ;)
voici mon script en l'état, qui lit parcours le fichier excel: ''''''''''''''''''''''''''''''' Set objWb = objXl.WorkBooks.Open(GetPath+"compte_utilisateur.xls") Set objWb = objXL.ActiveWorkBook.WorkSheets("Users") objWb.Activate Counter=2 prenom=objWb.Cells(2, 1).Value
Check = True: Counter = 2 ' Initialize variables. Do ' Outer loop. Do While prenom != " " ' Inner loop. Counter = Counter + 1 ' Increment Counter. If IsEmpty(objWb.Cells(Counter, 5).Value) Then wscript.echo "pas de donnee" Exit Do Check = False Else Wscript.echo objWb.Cells(Counter, 1).Value End If Loop Loop Until Check = False ' Exit outer loop immediately.
While prenom=objWb.Cells(Counter, 1).Value nom=objWb.Cells(Counter, 2).Value nomade=objWb.Cells(Counter, 3).Value password=objWb.Cells(Counter, 4).Value
counter++ Wend
Function GetPath() ' Retrieve the script path DIM path path = WScript.ScriptFullName ' Script name GetPath = Left(path, InstrRev(path, "")) End Function
bonjour a tous comme Jean je cherche un script pour creer des utilisateurs sur un serveur SBS 2003 a partir d'un fichier Excel dans lequel ils sont notes (secretariat note les utilisateurs puis lance le script pour creer les comptes)
bonjour,
j'avais commencé à créer un tel script sans aller jusqu'au bout faute de
temps.
le format du fichier excel est par colonne:
prenom
nom
nomade (0/1)
mot de passe
Le mot de passe doit être changé à la première connexion ;)
voici mon script en l'état, qui lit parcours le fichier excel:
'''''''''''''''''''''''''''''''
Set objWb = objXl.WorkBooks.Open(GetPath+"compte_utilisateur.xls")
Set objWb = objXL.ActiveWorkBook.WorkSheets("Users")
objWb.Activate
Counter=2
prenom=objWb.Cells(2, 1).Value
Check = True: Counter = 2 ' Initialize variables.
Do ' Outer loop.
Do While prenom != " " ' Inner loop.
Counter = Counter + 1 ' Increment Counter.
If IsEmpty(objWb.Cells(Counter, 5).Value) Then
wscript.echo "pas de donnee"
Exit Do
Check = False
Else
Wscript.echo objWb.Cells(Counter, 1).Value
End If
Loop
Loop Until Check = False ' Exit outer loop immediately.
While
prenom=objWb.Cells(Counter, 1).Value
nom=objWb.Cells(Counter, 2).Value
nomade=objWb.Cells(Counter, 3).Value
password=objWb.Cells(Counter, 4).Value
counter++
Wend
Function GetPath()
' Retrieve the script path
DIM path
path = WScript.ScriptFullName ' Script name
GetPath = Left(path, InstrRev(path, ""))
End Function
"jthern" <jthern@discussions.microsoft.com> wrote in message
news:B7D3490A-6B2D-4D66-AE56-71EC02EA31E8@microsoft.com...
bonjour a tous
comme Jean je cherche un script pour creer des utilisateurs sur un serveur
SBS 2003 a partir d'un fichier Excel dans lequel ils sont notes
(secretariat note les utilisateurs puis lance le script pour creer les
comptes)
j'avais commencé à créer un tel script sans aller jusqu'au bout faute de temps. le format du fichier excel est par colonne: prenom nom nomade (0/1) mot de passe
Le mot de passe doit être changé à la première connexion ;)
voici mon script en l'état, qui lit parcours le fichier excel: ''''''''''''''''''''''''''''''' Set objWb = objXl.WorkBooks.Open(GetPath+"compte_utilisateur.xls") Set objWb = objXL.ActiveWorkBook.WorkSheets("Users") objWb.Activate Counter=2 prenom=objWb.Cells(2, 1).Value
Check = True: Counter = 2 ' Initialize variables. Do ' Outer loop. Do While prenom != " " ' Inner loop. Counter = Counter + 1 ' Increment Counter. If IsEmpty(objWb.Cells(Counter, 5).Value) Then wscript.echo "pas de donnee" Exit Do Check = False Else Wscript.echo objWb.Cells(Counter, 1).Value End If Loop Loop Until Check = False ' Exit outer loop immediately.
While prenom=objWb.Cells(Counter, 1).Value nom=objWb.Cells(Counter, 2).Value nomade=objWb.Cells(Counter, 3).Value password=objWb.Cells(Counter, 4).Value
counter++ Wend
Function GetPath() ' Retrieve the script path DIM path path = WScript.ScriptFullName ' Script name GetPath = Left(path, InstrRev(path, "")) End Function
bonjour a tous comme Jean je cherche un script pour creer des utilisateurs sur un serveur SBS 2003 a partir d'un fichier Excel dans lequel ils sont notes (secretariat note les utilisateurs puis lance le script pour creer les comptes)
Gilles LAURENT
"jthern" a écrit dans le message de news: | bonjour a tous
Bonjour,
| comme Jean je cherche un script pour creer des utilisateurs sur un | serveur SBS 2003 a partir d'un fichier Excel dans lequel ils sont | notes (secretariat note les utilisateurs puis lance le script pour | creer les comptes)
Répondu sur le forum server.active_directory
-- Gilles LAURENT http://glsft.free.fr
"jthern" <jthern@discussions.microsoft.com> a écrit dans le message de
news:B7D3490A-6B2D-4D66-AE56-71EC02EA31E8@microsoft.com
| bonjour a tous
Bonjour,
| comme Jean je cherche un script pour creer des utilisateurs sur un
| serveur SBS 2003 a partir d'un fichier Excel dans lequel ils sont
| notes (secretariat note les utilisateurs puis lance le script pour
| creer les comptes)
"jthern" a écrit dans le message de news: | bonjour a tous
Bonjour,
| comme Jean je cherche un script pour creer des utilisateurs sur un | serveur SBS 2003 a partir d'un fichier Excel dans lequel ils sont | notes (secretariat note les utilisateurs puis lance le script pour | creer les comptes)