¿ VBScript en Delphi ?

Veremos como crear un objeto en Delphi de forma que se incluira el Vbscript en Delphi. Aunque ustedes no lo crean se puede y esto nos facilitará la apasionante programación de estos 2 lenguajes de empresas opuestas. Las sintaxis de Vbscript son las mismas no cambia nada mas que la creación del objeto y al colocarlo en otra variable.

Usando la librería ComObj podemos crear objetos como por ejemplo los de Excel, Word, Wscrip.Shell, etc; Insertemos la librería en el uses:

Uses
ComObj

Ahora podemos usar una declaración llamada CreateOleObject donde crearemos el objeto deseado. Declaración:

var
dirwin : string;
fso : variant;
.
.
.
//Objeto = CreateOleObject('Objeto a crear');
Fso := CreateOleObject('Scripting.FileSystemObject');

En este momento ya se ha cargado la libreria Scripting.FileSystemObject en Delphi !Sencillo no¡ ahora a usarla. Si no sabes nada de Visual Basic Script, te recomiendo que leas la Vx-Ezine 1 de http://mlhrcorporation.tripod.com o un manual
de internet sobre las librerias Scripting.FileSystemObject y Wscript. Ahora comprobemos que si es cierto o no, que este cargado el objeto FSO.

DirWin:=Fso.GetSpecialFolder(0);
ShowMessage(DirWin);

En este sencillo ejemplo comprobamos que si funciona VBS en Delphi. Es una opción de programar más fácil en Delphi aunque tambien nos la podemos matar con la libreria ShellApi o Registry, etc. Cabe resaltar ja ja ja, que algunas cosas no se
pueden utilizar de VBS en Delphi tales como On error Resumen Next o Execute, Solo se pueden cargar objetos.

Otro ejemplo:

WsN := CreateOleObject('Wscript.Network');
ShowMessage(WsN.ComputerName);

Esto es algo que he visto de los programadores de virus en Delphi, para hacerlo más fácil investigué sobre esto. Nota: La versión de delphi donde fué probado es la Boland Delphi (Delfin) 7. xD. ¡Vamos México!,
¡Que todo México se entere que le mando Saludos a MJ Campos Sánchez Alias Maximo!