WDForge.org - Forums

Script VBS en Windev

Sujet: Script VBS en Windev
par Elloyeen sur 18/8/2009 10:55:47

Bonjour,

Je voudrais savoir s'il était possible de transformer un script vbs en langage WinDev ? J'ai vu que cela était possible avec les objets automation mais je ne vois pas comment cela fonctionne.

Mon script est le suivant :

 Dim oContainer

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("activedirectory.txt",2,true)

Set oContainer=GetObject("LDAP://DC=test,DC=local")

 EnumerateUsers oContainer

 f.close()
 Set oContainer = Nothing
 WScript.Quit(0)
 

Sub EnumerateUsers(oCont)
 Dim oUser
 For Each oUser In oCont
  Select Case LCase(oUser.Class)
   Case "user"
  f.writeline(oUser.sAMAccountName & "#" & oUser.displayName & "#" & oUser.scriptPath & "#" &  oUser.homeDrive & "#" & oUser.homeDirectory & "#" & oUser.name & "#" & oUser.mail)
   Case "organizationalunit", "container"
    EnumerateUsers oUser
  End Select
 'OutPutFile.WriteLine
 Next
End Sub