Trax^
Legacy Member
Ik moet een script maken om gebruikers in windows 2000 server toe te voegen aan Active Directory. Deze gegevens staan in een excel file. Maar ik denk dat ik volledig fout ben.
Server UserID Voornaam Familienaam Wachtwoord Groep
MijnServer Irebroff Iwan Rebrofft test topsecret
MijnServer Wtura Will Tura lol softie
Zo krijg ik dus een hele lijst gebruikers. Ik heb al een deel van het script maar het klopt niet denk ik.
Server UserID Voornaam Familienaam Wachtwoord Groep
MijnServer Irebroff Iwan Rebrofft test topsecret
MijnServer Wtura Will Tura lol softie
Zo krijg ik dus een hele lijst gebruikers. Ik heb al een deel van het script maar het klopt niet denk ik.
Code:
Option Explicit
Dim strMap,objExcel,intRij,intKolom,naam,objFSO,strUsers,strBest and
set objexcel = wscript.createobject("Excel.application")
strMap="C:\Gebruikers.xls"
objExcel.workbooks.open strMap
objExcel.sheets("Blad1").Activate
intRij=2
intKolom=1
do until objExcel.cells(intRij,intKolom).value=""
do until ObjExcel.cells(intrij,intKolom).value=""
naam = objExcel.cells(intrij,intKolom)
if intKolom=1 then
strUser=naam
set objFSO = wscript.createobject("scripting.filesystemobject")
if not objfso.FolderExists(strFolder) then
objFSO.createFolder(strFolder)
end if
else
strBestand=objFSO.BuildPath(strFolder,naam)
if not objfso.FileExists(strBestand) then
objFSO.createTextFile(strBestand)
end if
end if
wscript.echo naam
intKolom = intKolom + 1
loop
intKolom=1
intrij = intrij + 1
loop