Archief - WSH-script en AD

Ik ben bezig met een heel script dat gebruikers aanmaakt in AD (active directory). Tijdens het aanmaken worden bepaalde instellingen gewijzigd. Nu zou ik ook nog graag automatisch een logon script toewijze maar ik nergens de methode vinden.

kan iemand mij helpen want via google krijg ik enkel alleen mar uitleg hoe ik een logon script maak en handmatig kan toewijze maar het moet automatisch gebeuren.

Dank bij voorbaat de jos

Kan nog verbeterd worden, maar dit moet u op weg helpen



'*******************************************************
'* INTO STRVARIABL LINE PUT THE PATH WHERE THE OBJECT TARGET IS CONTAINED
'*******************************************************

strVariabl = "OU=First Level,OU=Second Level,OU=First Level"
strLgnScript = vbNullString

'*******************************************************
'** INTO strLgnScript PUT THE NAME OF THE LOGONSCRIPT YOU WANT TO SET
'** IF YOU WANT TO CLEAR THI PARAMETER OF THE LOGON SCRIPT
'** SET strLgnScript = vbNullString or strLgnScript = "VALUE"
'*******************************************************

dim nome
ParseCommandLine()


Const ADS_PROPERTY_APPEND = 3
Const ADS_PROPERTY_CLEAR = 1

Set objRootDSE = GetObject("LDAP://rootDSE")

strFissa = strVariabl & "," & objRootDSE.Get("defaultNamingContext")


Set objUser = GetObject _
("LDAP://cn="& nome & "," & strFissa)

IF strLgnScript = vbNullString then
objUser.PutEx ADS_PROPERTY_CLEAR, "scriptPath", strLgnScript
objUser.SetInfo
Else
objUser.Put "scriptPath" , strLgnScript
objUser.SetInfo
End IF


Sub ParseCommandLine()
Dim vArgs

set vArgs = WScript.Arguments

if vArgs.Count <> 1 then
DisplayUsage()
Else
nome = vArgs(0)
End if
End Sub