Script VBS en Windev
Posté par Elloyeen le 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 :
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 SubCette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6261&post_id=24883