How to Combine Multiple vbs Scripts into 1 script?

[MarkT]

Define the containers in an array and then loop through list.

Option Explicit
Dim objOU, objUser, objRootDSE
Dim strLastUser, strDNSDomain, intCounter, intAccValue
Dim strContainer(1), intCounter

    ' define the containers
    strContainer(0) = "OU=Development - Secretary,OU=Development,OU=Regular - User's ,"
    strContainer(1) = "OU=Development - Manager,OU=Development,OU=Regular - User's ,"

    
    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")
    intAccValue = 544
    
    For intCounter = 0 to 1
        strContainer(intCounter) = strContainer(intCounter) & strDNSDomain
        set objOU =GetObject("LDAP://" & strContainer(intCounter))
        intCounter = 0
        For each objUser in objOU
            If objUser.class="user" then
            objUser.SetPassword "p@$$w0rd"
            objUser.SetInfo
            objUser.Put "userAccountControl", intAccValue
            objUser.SetInfo
            intCounter = intCounter +1
            strLastUser = objUser.Get ("name")
            objuser.Put "pwdLastSet", CLng(0)
            objuser.SetInfo
        End if
        next
    Next
    
    WScript.Echo intCounter & " Users change pwd next logon. Value " _
    & intAccValue
    WScript.Quit