WDForge.org - Forums - WD 14 - Script VBS en Windev

Index des forums WDForge.org

WD 14

Script VBS en Windev

Bas

Suivant S'enregistrer pour contribuer

Script VBS en Windev

Stagiaire WDF

Inscrit:
09/06/2009 14:53

Post(s): 2

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

Contribution le : 18/08/2009 10:55

	Re: Script VBS en Windev	#2
Stagiaire WDF Inscrit: 19/12/2005 11:01 Post(s): 10	Bonjour , La possibilité d'exécuter le script à partir de Windev vous suffit ? Cordialement. Contribution le : 22/08/2009 14:42
Stagiaire WDF Inscrit: 19/12/2005 11:01 Post(s): 10	_________________ www.3gwin.fr gestion téléphonie

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.