Uprava skriptu pro export z ad – Visual Basic – Fórum – Programujte.com

Dobrý den, mám niže uvedený skript který mi exportuje zaměstnance z ad, kteří jsou seřazeny dle abecedy mohl by mi někdo poradit jak bych mohl upravit skript tak aby se mi na začátku skriptu zobrazili zaměstnanci, kteří mají např. telefonní číslo 123456

Global variables

Dim oContainer

Dim OutPutFile

Dim FileSystem



Dim uLine



'Initialize global variables

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

Set OutPutFile = FileSystem.CreateTextFile("export.txt", True)

Set oContainer=GetObject("LDAP:/")



'Enumerate Container

EnumerateUsers oContainer



'Clean up

OutPutFile.Close



Set FileSystem = Nothing

Set oContainer = Nothing



WScript.Echo "Finished"

WScript.Quit(0)



Sub EnumerateUsers(oCont)

Dim oUser



For Each oUser In oCont



Select Case LCase(oUser.Class)

Case "user"



If Not IsEmpty(oUser.name) Then

uLine = oUser.Get ("name")

End If



   If Not IsEmpty(oUser.telephoneNumber) Then 

        uLine = uLine & ";" & oUser.telephoneNumber

      End If



Case "organizationalunit" , "container"



EnumerateUsers oUser



End Select



If (uLine "") Then

OutPutFile.WriteLine uLine

End If



uLine = ""



Next



End Sub