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"
 
	? "er på horsens server"
	$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" 
	? "er på Fredericia server"
	? $strLDAP
	$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 
	$AdsUser = $Container.Create("User", "CN="+$strBruger) 
;Sets login name 
	$AdsUser.Put("SamAccountName",$strBruger)
;Sets Fornavn 
	$AdsUser.Put("givenName",$strFornavn)
	$AdsUser.Put("FirstName",$strFornavn)
;Sets efternavn 
	$AdsUser.Put("Lastname",$strEfternavn)
	$AdsUser.put("sn",$strEfternavn)
	$adsuser.Put("Description ",$strhold)
;Sets Logonbat
	$AdsUser.put("ScriptPath","wkix32.exe /I login.kix")
;Sets Homedir
	$AdsUser.put("HomeDirectory",$strHomedir)
;Sets HomeDrive
	$AdsUser.put("HomeDrive","T:")
;Sets logon W2k
	$AdsUser.put("userPrincipalName",$strBruger)
;Sets Homedir
	$AdsUser.Put("HomeDirectory",$strUNCsti + $strBruger)
;Sætter profil stien - Fjern ; nedenunder For at For profil stien med.
	$AdsUser.Put("profilePath",strUNCsti + strBruger + "\profil")
;Sets Account udløber
	$AdsUser.Put("AccountExpirationDate",$strUdloeber)
;Writes information To directory 
	$AdsUser.Setinfo
;Sets password To password 
	$AdsUser.SetPassword("$strPassword")
;Sets Password udløbet
	$AdsUser.put("pwdLastSet", -1)
	$AdsUser.SetInfo
	sleep 1
  	$CreateUserAccount = @error
	sleep 1
    if $CreateUserAccount
        ? "SetInfo Error: " + @error +  " "  + @Serror
	sleep 4
    endif


;Enables account 
; sætter kodeord til at være udløbet og skal ændres
;	NewUserAccount.UserAccountControl = NewUserAccountControl And Not +H200
	$AdsUser.UserAccountControl("NewUserAccountControl", +H200, +h10000)
	
;Tilføjer bruger til grupper
	$objGruppe1.Add ("LDAP://CN=$strbruger,ou=$strhold,DC=sosva,DC=elev")
	$objGruppe2.Add ("LDAP://CN=$strbruger,ou=$strhold,DC=sosva,DC=elev")
	$objGruppe3.Add ("LDAP://CN=$strbruger,ou=$strhold,DC=sosva,DC=elev")
	OpretMappe($strBruger)
;loop

;*** SLUT INDSÆT 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