Peut on faire des scripts vb en delphi

Version imprimable

15/04/2007, 13h13
neuneu1

Peut on faire des scripts vb en delphi

Bonjour,

je voulais savois si il etait possible de faire des etexecute des script vbs avec delphi 7 et 2005

merci
15/04/2007, 13h28
evarisnea

:salut:
qu'entends tu par faire ?
s'il s'agit de coder, compiler et déboguer je ne pense pas. delphi n'est pas VB quand même, et encore !

pour ce qui est de les exécuter, un simple ShellExecute suffit non ?
15/04/2007, 14h32
neuneu1
Non,Juste la posibile d 'execute un script en passant des variablr

Exemple
Code:

1 2 3 4 Set objDomain = GetObject("LDAP://dc=delphi ,dc=local") Set objOU = objDomain.Create("organizationalUnit", "ou=nom de l'OU") objOU.SetInfo
et faire paser le teste d un edit comme variable a la place de nomde l'OU.

Mais si il etait possible de mettre des script dans delphi ca serait encore mieux.

merci
15/04/2007, 14h35
evarisnea

une solution serait de créer ton script dans un programme delphi à la volée, pour contenir la valeur d'un edit, de l'enregistrer dans un fichier sur le disque et puis de le lancer via ShellExecute.

tu peux utiliser le TScriptControl pour executer des script vbs ou javascript
apres avoir importer la bibliotheque de type "Microsoft Script Control" et creer le wrapper a condition que le vbscript soit installe sur ta machine.

ensuite tu peux executer du VBScript dans delphi ex:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.btn1Click(Sender: TObject); begin c := TScriptControl.Create(Self); try c.Language := 'VBScript'; c.AddCode('Nom = InputBox("Rentrez votre nom")'); c.AddCode('MsgBox "Bonjour " & Nom '); finally c.Free; end; end;
je suis pas un as du vbscript mais ceci a pour effet de demander le nom (exemple Kaféine) et ensuite afficher "bonjour Kaféine"

15/04/2007, 16h31
evarisnea

+1 @Kaféine.

que demander de plus ?
15/04/2007, 18h09
neuneu1

Merci je vais chercher tout ce que tu as di:king:
15/04/2007, 18h17
neuneu1

Par curiosite

C'est pas un objet de la palette de composant

Si oui ou

J'ai bien compris que je le creais mais comment as tu decouvert ca

merci
15/04/2007, 18h21
neuneu1

Desole je connais un peu mieux le vbs que delphi et je n'arrive apres avoir copier ton code a faire tourne.

Comment declarer TScriptControl et ou

merci
15/04/2007, 18h23
evarisnea

Citation:

Envoyé par Kaféine

tu peux utiliser le TScriptControl pour executer des script vbs ou javascript
apres avoir importer la bibliotheque de type "Microsoft Script Control" et creer le wrapper a condition que le vbscript soit installe sur ta machine.

tu dois importer un contrôle ActiveX
si tu ne sais pas comment t'y prendre, regarde ici dans la :faq:

et puis fais preuve d'un peu de patience tout de même, un forum c'est pas un chat ! :aie:
15/04/2007, 18h25
neuneu1

Merci j'ai fais un tour sur la FAQ trop tard
15/04/2007, 20h04
skywaukers

bonjour,

tiens, question bête : pourquoi executer du script vbs dans Delphi ? Pourquoi ne pas l'écrire tout simplement en Delphi ?

@++
Dany
16/04/2007, 00h03
neuneu1

oui mais comment:(
16/04/2007, 21h01
Kaféine

Citation:

Envoyé par skywaukers

tiens, question bête : pourquoi executer du script vbs dans Delphi ? Pourquoi ne pas l'écrire tout simplement en Delphi ?

un des intérêts qui me viens à l'esprit c'est que avec les scripts tu peux ajouter des fonctionnalites à l'application sans avoir à recompiler celle-ci.
ex: beaucoup de client IRC utilise les scripts.

Citation:

Envoyé par neuneu1

oui mais comment

oui mais comment quoi? :)
16/04/2007, 21h06
neuneu1

Ben ne pas passer par l objet script.

Par contre merci a toi mes script tourne bien (nouveau user dans Ad, UO, etc..)

La je m'attaque a recuper les donner d un script dans un grid, pas gagne :yaisse2:
16/04/2007, 21h07
neuneu1

Ben ne pas passer par l objet script.l'ecrire en delphi.

Par contre merci a toi mes script tourne bien (nouveau user dans Ad, UO, etc..)

La je m'attaque a recuper les donner d un script dans un grid, pas gagne :yaisse2
16/04/2007, 21h13
Kaféine

Citation:

Envoyé par neuneu1

Ben ne pas passer par l objet script.l'ecrire en delphi.

en important la bibliotheque de type ActiveDs_TLB tu peux faire ce que tu dit a propos de Active Directory directement dans delphi sans les scripts vbs
16/04/2007, 21h28
neuneu1

Desole surement rop balaise pour mois .

un exemple un tuto ds lecoin:(

merci quand meme
17/04/2007, 00h33
neuneu1

j'ai trouve ca mais du mal a comprendre

j'ai telecharge les unite, je dois bien faire projet ajoute

par contre la librairie et activex ????

http://developpez.net/forums/showthread.php?t=309949

Pour les construction ad ca va aller mais le debut dur.

Plus simple avec le rootds
merci

script VB:

Code:

1
2
3
4
 
Set objDomain = GetObject("LDAP://dc=delphi ,dc=local")
Set objOU = objDomain.Create("organizationalUnit", "ou=nom de l'OU")
objOU.SetInfo

Citation:

Envoyé par skywaukers

bonjour,
tiens, question bête : pourquoi executer du script vbs dans Delphi ? Pourquoi ne pas l'écrire tout simplement en Delphi ?

Citation:

Envoyé par neuneu1

oui mais comment

et bien voilà...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
function ADsGetObject(lpszPathName: PWideChar;
   const riid: TGUID; out obj): HResult; stdcall;
   external 'activeds.dll';
 
function ADsOpenObject(lpszPathName: PWideChar;
  lpszUserName: PWideChar; lpszPassword: PWideChar;
  dwReserved: LongInt; const riid: TGUID; out obj): HResult;
   stdcall; external 'activeds.dll';
 
 
//=== Ajout dans les USES: ActiveDs_TLB ===
procedure TForm1.Button1Click(Sender: TObject);
var
  LDAPWideStr:WideString;
  adDomain:IADsContainer;
  adOU:IADsOU;
  UnknownObj: IUnknown;
  i:integer;
begin
  LDAPWideStr:='LDAP://dc=delphi,dc=local';
  ADsGetObject( PWideChar(LDAPWideStr),IADsContainer,adDomain);
  adOU:=IADsOU(adDomain.Create('organizationalUnit', 'ou=EBDemo'));
  adOU.SetInfo;
end;

18/04/2007, 23h37
neuneu1

Desole et merci

mais j'ai pas le niveau requis.

J'ai copier ton code et plein d 'erreur (c'est ma faute) comme IADsContainer non declarer etc..

Je te remerci quand meme d avoir repondu.

merci
19/04/2007, 15h12
Eric Boisvert
IADsContainer est déclaré dans ActiveDs_TLB

tu as seulement a ajouter ActiveDs_TLB dans la clause uses (en haut de ton code delphi).

exemple ici :
Code:

1 2 3 4 5 6 7 8 unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,ActiveDs_TLB,ComObj;
20/04/2007, 09h52
neuneu1

Bon je vous remerci tous.

Mais mon Ad a plante encore une foid(heureusemet que c'est du VPc.

je reviendrait certainement.

merci:king: