The following script should create the users from at specified ttx file.

Tw script reads every string i neeed, but it does not put anything i AD.

Why not?




Dim $LoginName,
$NewUserAccount,
$Container,
$objGruppe1,
$objGruppe2,
$objGruppe3,
$filesys,
$filetxt,
$strTemp,
$strBruger,
$strPassword,
$strUdloeber,
$strHomedir,
$strUNCsti,
$strFilsti
$ForAppending
$ForWriting
$Forreading

$forAppending='8'
$ForWriting='2'
$Forreading='1'



;$filesys = CreateObject("Scripting.FileSystemObject")
;$filetxt = $filesys.OpenTextFile("052ve.ttx", $ForReading, 1)

open(3, "052ve.ttx")
$strLDAP=readline(3)


;*** START LÆS I FIL ***

;* Sætter stien til AD. Første linie i test.txt.
If Not $filetxt.AtEndOfStream
$strLDAP = Replace(filetxt.ReadLine, " ", "")
EndIf
;* Læser en linie i filen. Klipper linien In stykker ved alle mellemrum. Sætter alle variabler, brugernavn mv. *
;* WScript.Echo viser en dialogboks med indholdet af variablen *

While readline(3) =0

$strTemp = ReadLine(3)
sleep 0.5
;* Brugernavn *
$strBruger = Left($strTemp, (InStr($strTemp, ",")) - 1)
;* Fornavn *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strFornavn = Left($strTemp, (InStr($strTemp, ",")) - 1)

;* Efternavn *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strEfternavn = Left($strTemp, (InStr($strTemp, ",")) - 1)

;* Afdeling *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strAfdeling = Left($strTemp, (InStr($strTemp, ",")) - 1)
;* Gruppe1 *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strGruppe1 = Left($strTemp, (InStr($strTemp, ",")) - 1)

;* Gruppe2 *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strGruppe2 = Left($strTemp, (InStr($strTemp, ",")) - 1)
;* Gruppe3 *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strGruppe3 = Left($strTemp, (InStr($strTemp, ",")) - 1)
;* Udløber *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strUdloeber = Left($strTemp, (InStr($strTemp, ",")))
;* hold *
$strTemp = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
$strhold = Left($strTemp, (InStr($strTemp, ",")) - 1)
;* Password *
$strPassword = Right($strTemp, Len($strTemp) - InStr($strTemp, ","))
;------------------------------------
;*Set userfolder UNC And drive SOSFELEV
If $strAfdeling="SOSHELEV"
;* UNCstien til userfolder
$strUNCsti = "\\SOSHELEV\DATA\hold\" + $strHold + "\"
;* filepath til userfolder On server SOSHELEV
strFilsti = "H:\hold\" + $strhold + "\"
EndIf
;*Set userfolder UNC And drive SOSFELEV
If $strAfdeling="SOSFELEV"
;* UNCstien til userfolder
$strUNCsti = "\\SOSFELEV\DATA\hold\" + $strHold + "\"
;* filepath til userfolder On server SOSFELEV
$strFilsti = "G:\hold\" + $strhold + "\"
EndIf

;* home directory
$strhomedir = $strUNCsti + "$strBruger"
;*** START inset In AD ***
;* connect To AF groups On SOSFELEV*
If $strAfdeling = "SOSHELEV"


$Container = GetObject($strLDAP)

$objGruppe1 = GetObject("LDAP://cn=" + $strGruppe1 + ",OU=grupper i horsens,OU=grupper,DC=sosva,DC=elev")
$objGruppe2 = GetObject("LDAP://cn=" + $strGruppe2 + ",OU=grupper i horsens,OU=grupper,DC=sosva,DC=elev")
$objGruppe3 = GetObject("LDAP://cn=" + $strGruppe3 + ",OU=grupper,DC=sosva,DC=elev")
EndIf
;* connect To AF groups On SOSFELEV*
If $strAfdeling="SOSFELEV"

$Container = GetObject($strLDAP)

$objGruppe1 = GetObject("LDAP://cn=" + $strGruppe1 + ",OU=grupper i fredericia,OU=grupper,DC=sosva,DC=elev")
$objGruppe2 = GetObject("LDAP://cn=" + $strGruppe2 + ",OU=grupper i fredericia,OU=grupper,DC=sosva,DC=elev")
$objGruppe3 = GetObject("LDAP://cn=" + $strGruppe3 + ",OU=grupper,DC=sosva,DC=elev")

EndIf

;* Opretter den nye bruger *
;Creates account
$NewUserAccount = $Container.Create("User, CN=" + $strBruger)
;Sets login name
$NewUserAccount.SamAccountName = $strBruger
;Sets Fornavn
$NewUserAccount.givenName = $strFornavn
;Sets Fornavn
$NewUserAccount.sn = $strEfternavn
;Sets Logonbat
$NewUserAccount.ScriptPath = "wkix32.exe login.kix"
;Sets Homedir
$NewUserAccount.HomeDirectory = $strHomedir
;Sets HomeDrive
$NewUserAccount.HomeDrive = "T:"
;Sets logon W2k
$NewUserAccount.userPrincipalName = $strBruger
;Sets Homedir
$NewUserAccount.HomeDirectory = $strUNCsti + $strBruger
;Sætter profil stien - Fjern ; nedenunder For at For profil stien med.
; NewUserAccount.profilePath = strUNCsti + strBruger + "\profil"
;Sets Account udløber
$NewUserAccount.AccountExpirationDate = $strUdloeber
;Writes information To directory
$NewUserAccount.Setinfo
;Sets password To password
$NewUserAccount.SetPassword $strPassword
;Sets Password udløbet
$NewUserAccount.pwdLastSet = '-1'
$NewUserAccount.Setinfo
;Enables account
; sætter kodeord til at være udløbet og skal ændres
; NewUserAccount.UserAccountControl = NewUserAccountControl And Not +H200
$NewUserAccount.UserAccountControl = $NewUserAccountControl And +H200 And +h10000
$NewUserAccount.Setinfo
;Tilføjer bruger til grupper
$objGruppe1.Add $NewUserAccount.ADSPath
$objGruppe2.Add $NewUserAccount.ADSPath
$objGruppe3.Add $NewUserAccount.ADSPath
OpretMappe($strBruger)
loop

;*** NED PUT I AD ***

;------------------------------------

? "The command completed successfully."

Function OpretMappe($strUser)
? "opret funktion"
sleep 1
$WshNetwork = CreateObject("Network")
$WshShell = CreateObject("Shell")
$newfolderpath = $strFilSti + $strUser
$filesys=CreateObject("Scripting.FileSystemObject")
If Not $filesys.FolderExists($newfolderpath)
$newfolder = $filesys.CreateFolder($newfolderpath)
EndIf

Run "xcacls" + $strFilsti + $strUser + " /p sosva-E\" + $strUser + ":c "+"sosva-E\domain-admins:F "+"sosva-e\SSA-laerer:F"+" /y"

EndFunction

Function Replace($String,$SS,$RS)
$Replace=Join(Split($String,$SS),$RS)
EndFunction

eks. on ttx-file
LDAP://OU=052ve,OU=hold/fr,DC=sosva,DC=elev
994,Majbritt Berit Friis,Andersen,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,5301
3442,Linda S.H.,Mathiasen,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,18357
4180,Pia,Holdorff,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,22293
5329,Helle,Dantoft,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,28421
10104,Susanne,Mikkelsen,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,53888
10157,Pia,Hentzen,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,54171
10244,Heidi,Cortsen,SOSFELEV,fre-elev,fre-kursus,alle,05/11/05,052ve,54635