dim fs,fname
Set fs = New FileSystemObject
Set fname = fs.CreateTextFile("D:\vb\perlprog.txt", True)
fname.WriteLine ("#!/usr/bin/perl -w")
fname.WriteLine ("use strict;")
.
.
.
fname.WriteLine ("my $t = Net::Telnet->new(Host => $ipad, PORT => '23' , Timeout => 10 , Errmode => 'return');")
.
.
.