[Win2003] Bulk Gebruikers aanmaken met Instellingen *

[Verwijderd]

Beste mensen,

Sinds kort werken wij met MS Windows 2003 Enterprise Server voor het hosten van enkele Remote Computing applikaties. Zoals je zult begrijpen moeten we hiervoor een hele hoop accounts aanmaken.

Nu heb ik met het tooltje "adduser.exe" al gevonden hoe ik grote hoeveelheden accounts snel kan aanmaken. Echter ik wil een klein stapje verder gaan :

Voor elke gebruiker maak ik in het tabblad "Environment" een tweetal regels aan waarmee ik ervoor zorg dat wanneer een gebruiker inlogd er direct een applikatie gestart wordt.

Mijn vraag : Is het mogelijk om bij de aanmaak van een gebruiker ook deze twee regels te vullen met de applikatie die gestart moet worden ?

Ik heb wat kreten gevonden als KixTart en VBS scripts maar afgezien van het feit dat het me wel iets zegt ben ik eigenlijk op zoek naar een kant-en klare oplossing. Wie kan en wil mij hierbij helpen ?

[Compubiter]

OS toegevoegd conform de WOS-Policy

[bolke]

Kant en klare oplossingen zijn er (nog) niet echt voor Windows 2003. Het enige wat je kan doen is zoeken naar VBs bestanden die dit voor je kan doen.

Ik heb het een en ander zelf gemaakt om user toe te voegen aan een AD domian.

code:

On error resume next

Set objOU = GetObject("LDAP://OU=Users, OU=Onbekend Europa, OU=EMEA, DC=emea, DC=Onbekend, DC=intra")

' Input
strGivenName= InputBox("First Name: ")
strTussenvoegsel = InputBox("Tussenvoegsel: ")
strSN= InputBox("Last Name: ")
strDescription= InputBox("Discription")

' Change Tussenvoegsel
strFirst = Trim(Left(strTussenvoegsel, 3))
strLast = Trim(Right(strTussenvoegsel, 3))
If Len(strTussenvoegsel) = 0 Then
    strTotal = ""
ElseIf Len(strTussenvoegsel) >3 Then 
    strTotal = strFirst & "." & strLast
Else
    strTotal = strFirst
End If
If Len(strTotal) = 0 Then
    strTotalName = strGivenname & "." & strSN
Else
    strTotalName = strGivenname & "." & strTotal & "." & strSN
End If

' Made all the variables
strCN = strSN & ", " & Mid(strGivenname,1, 1) & ". " & strTussenvoegsel & " - " & strGivenName &" -"
strCN2 = strSN & "\, " & Mid(strGivenname,1, 1) & ". " & strTussenvoegsel & " - " & strGivenName &" -"
strInitials= Mid(strGivenname,1, 1) & "."
strUserPrincipalName= strTotalName & "@Onbekend"
strMail = strTotalName & "@Onbekend-europe.com"
strScriptPath = strSN & Mid(strGivenname,1, 1) &".bat"
strSAMAccountName = Mid(strTotalName, 1, 20)
    
' Create user on the domain
If Len(strGivenName) <> 0 Or Len(strSN) <> 0 Then
    Set objUser = objOU.Create("User", "cn=" & strCN2)
    objUser.Put "DisplayName", strCN
    objUser.Put "sAMAccountName", strsAMAccountName
    objUser.Put "userPrincipalName", strUserPrincipalName
    objUser.Put "givenName", strGivenName
    objUser.Put "initials", strInitials
    objUser.Put "mail", strMail
    objUser.Put "sn", strSN
    objUser.Put "Description", strDescription
    objUser.Put "homeDirectory", "\\server\~" 
    objUser.Put "homeDrive", "G:"
    objUser.Put "scriptPath", strScriptPath
    objUser.Put "telephonenumber" , "nummer"
    objUser.Put "facsimiletelephonenumber" , "fax"
    objUser.Put "Company", "Onbekend Europa N.V."
    'objUser.Put "Address" , "address"
    'objUser.Put "
    objUser.SetInfo
' Other settings
    objUser.SetPassword "Onbekend"
    objUser.AccountDisabled = false
    objUser.PwdLastSet = CLng(-1)
    objUser.SetInfo
    WScript.echo "UserID created."
Else
    Wscript.echo "First name or Last name not filled-in. UserID not created."
End If

Set objUsr = Nothing

[ Voor 18% gewijzigd door bolke op 05-08-2003 08:43 ]

[Verwijderd]

Dat is een hele fraaie oplossing maar ik wil graag de applicatie kunnen vermelden die hij via Terminal Service moet starten wanneer de gebruiker inlogd. En die optie zie ik er helaas niet bij staan.

[mutsje]

dit is geen stel een vraag en krijg het antwoord zonder zelf iets te doen. Wat heb je zelf zoal lopen proberen?

[Sn3akz]

[mierenneuken]
Het is applicatie met een C
[/mierenneuken]

Ik weet niet of er zo'n kant en klare oplossing bestaat. Maar je kan eens met bovenstaand VB gaan stoeien en kijken of je het erin gebakken krijgt

[bolke]

Verwijderd schreef op 05 augustus 2003 @ 09:19:
Dat is een hele fraaie oplossing maar ik wil graag de applikatie kunnen vermelden die hij via Terminal Service moet starten wanneer de gebruiker inlogd. En die optie zie ik er helaas niet bij staan.

Saven als een VBS bestand en opstarten als een applicatie.