SoloCodigo

Hola gente bueno tengo 2 dudas que no se resolver la pi¡rimera es como puedo hacer PAYLOAD en un VBS,me lo explicaron una vez pero no me quedo mu calro, y la seguna pregunta es como puedo crear un archivo VBS que cuando se ejecute genre otro archivo VBS con instrucciones diferentes,mas que nada por que si pono este codigo:


[CODE]


Set fso = CreateObject("Scripting.FileSystemObject")
Set var = fso.CreateTextFile("c:\ArchivoPrueba.txt", True)
var.write("Este es el contenido del archivo")
var.close


Si en Archivodeprueba.txt le canbio el txt por vbs i despues en Este es el contenido del archvi por ejemplo pongo:  
set mensaje =msgbox("hola mundo",0,"tritulo")

el codigo finalmente quedaria aisn:

Set fso = CreateObject("Scripting.FileSystemObject")
Set var = fso.CreateTextFile("c:\ArchivoPrueba.VBS", True)
var.write("set mensaje =msgbox("hola mundo",0,"tritulo")")
var.close

Pues esto sesupone que me tendria k generar un archivo VBS que cuando se ejecute me tendria k salir el mensaje i en canvio no em sale lo uniko k me sale es un maldito erro que me dice se esperava esto ')'


ya e probado de substituir las " en ' pero no me funciono



ayuda porfavor  

Aver alguien me puede explicar que es un array y exactamente para que sirve ?

a ser podible les pido tmb un ejemplo lo mas sencillo posible para poder entenderlo sin ningun problema gracias!

Weno mi problema es el siguiente e echo varias aplicaciones DOS en pascal i ayer mismo empeze con delphi (OBject pascal" que weno delphi es mas k na pascal peor em encontre la sorpresita k no es exactamente igual ya k me lio sobretodo en una parte llamada Type kien me puede expikar i poner un ejemplo de eso porfa el codigo k me da el gprograma al principio es esto:

Explikenme de k konsta kada aprte porfi

[CODE]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Perdonad me ekivoke