In Bat text einfügen zur Ausgabe in eine andere Datei

Guten Morgen und Danke für die Antworten.
Der Inhalt der Datei an sich bleibt gleich, außer das ich das Root Passwort eintragen muss...

Kann ich vielleicht durch echo eine bestimmte Zeile ersetzen?
Oder den text zerhacken und per more >> wieder zusammen führen?
Wenn nicht werde ich das mit dem VBS versuchen, obwohl ich mich auch da auf Neuland bewege

Nochmal vielen Dank!!

Ich gebe mal einen Beispiel aus der Datei mit, zu ändern ist die letzte Zeile, im original folgen dann nochmal ca 100 Zeilen :

#!/usr/bin/perl -w
#

1. Copyright 2006 VMware, Inc. All rights reserved.

use strict;
use warnings;

use VMware::VIRuntime;
use VMware::VILib;
use HTTP::Date;
sub register;
sub unregister;

my ($username, $password);
my $enc = "utf8";
my $target_host;
my $host;
my $port = "443";
my $protocol = "https";
my $target_flag = 0;
my $help_flag = 0;
my $quiet_flag = 0;
my $verbose_flag = 0;
my $list_flag = 0;
my $server_flag = 0;
my @cmdarray = parse_cmdline();
my $operation = "";

if(validate()) {
setencoding();
connectserver();
if(validatehost()) {
vmaction();
}
disconnectserver();
}

sub vmaction {
if ($verbose_flag == 1) {
my $service_content = Vim::get_service_content();
Util::trace(0, "API Version: " . $service_content->about->apiVersion . "\n");
}
if ($list_flag == 1) {
get_all_vms();
}
elsif ($server_flag == 1) {
$operation = $cmdarray;
my $vm_cfg_path = generate_cfg_path($cmdarray[1]);
if ($operation eq 'unregister') {
my $vm_view = get_vm($vm_cfg_path);
if (defined $vm_view) {
if(unregister($vm_view)) {
if($quiet_flag == 0) {
Util::trace(0,"unregister() = ");
}
Util::trace(0,"1");
}
}
}
elsif ($operation eq 'register') {
if(register($vm_cfg_path)) {
if($quiet_flag == 0) {
Util::trace(0,"register() =");
}
Util::trace(0,"1");
}
}
}
else {
$operation = $cmdarray[1];
my $vm_cfg_path = generate_cfg_path($cmdarray);
my $vm_view;
if (defined $vm_cfg_path) {
$vm_view = get_vm($vm_cfg_path);
}
if (defined $vm_view) {
if ($operation eq 'getstate') {
if($quiet_flag == 0) {
Util::trace(0,"getstate() = ");
}
Util::trace(0, getstate($vm_view));
}
my $type = $cmdarray[2];
if(controlvm($vm_view, $operation, $type)) {
if($quiet_flag == 0) {
Util::trace(0,"${operation}() = ");
}
Util::trace(0,"1");
}
}
elsif ($operation eq 'getproductinfo') {
if($quiet_flag == 0) {
Util::trace(0,"getproductinfo(${cmdarray[2]}) = ");
}
Util::trace(0, getproductinfo());
}
elsif ($operation eq 'getuptime') {
if($quiet_flag == 0) {
Util::trace(0,"getuptime() = ");
}
Util::trace(0,getuptime($vm_view));
}
elsif ($operation eq 'answer') {
answer($vm_view);
}
elsif ($operation eq 'getconfigfile') {
if($quiet_flag == 0) {
Util::trace(0,"getconfigfile() = ");
}
Util::trace(0,getconfigfile($vm_view, $vm_cfg_path));
}
elsif ($operation eq 'gettoolslastactive') {
if($quiet_flag == 0) {
Util::trace(0,"gettoolslastactive() = ");
}
Util::trace(0,gettoolslastactive($vm_view));
}
elsif ($operation eq 'setguestinfo') {
if(setguestinfo($vm_view)) {
if($quiet_flag == 0) {
Util::trace(0,"setguestinfo(${cmdarray[2]} ${cmdarray[3]}) = ");
}
Util::trace(0,"1");
}
}
elsif ($operation eq 'getguestinfo') {
my ($flag, $value) = getguestinfo($vm_view);
if($flag) {
if($quiet_flag == 0) {
Util::trace(0,"getguestinfo(${cmdarray[2]}) = ");
}
Util::trace(0,$value);
}
else {
Util::trace(0,"The specified property or variable"
. " is invalid or undefined");
}
}
elsif ($operation eq 'hassnapshot') {
my $flag = hassnapshot($vm_view);
if($flag) {
if($quiet_flag == 0) {
Util::trace(0,"hassnapshot () = 1");
}
else {
Util::trace(0,"1");
}
}
else {
if($quiet_flag == 0) {
Util::trace(0,"hassnapshot () =");
}
else {
Util::trace(0," ");
}
}
}
elsif ($operation eq 'createsnapshot') {
my $flag = createsnapshot($vm_view);
if($flag) {
if($quiet_flag == 0) {
Util::trace(0,"createsnapshot (${cmdarray[2]} ${cmdarray[3]} ".
"${cmdarray[4]} ${cmdarray[5]}) = 1");
}
else {
Util::trace(0,"1");
}
}
}
elsif ($operation eq 'revertsnapshot') {

1. defect 255376
my $hassnap = hassnapshot($vm_view);
if($hassnap) {
my $flag = revertsnapshot($vm_view);
if($flag) {
if($quiet_flag == 0) {
Util::trace(0,"revertsnapshot () = 1");
}
else {
Util::trace(0,"1");
}
}
}
}
elsif ($operation eq 'removesnapshots') {
my $flag = removesnapshots($vm_view);
if($flag) {
if($quiet_flag == 0) {
Util::trace(0,"removesnapshot () = 1");
}
else {
Util::trace(0,"1");
}
}
}
elsif ($operation eq 'connectdevice') {
if(connectdevice($vm_view, 1)) {
if($quiet_flag == 0) {
Util::trace(0,"connectdevice(${cmdarray[2]}) = ");
}
Util::trace(0,"1");
}
}
elsif ($operation eq 'disconnectdevice') {
if(connectdevice($vm_view, 0)) {
if($quiet_flag == 0) {
Util::trace(0,"disconnectdevice(${cmdarray[2]}) = ");
}
Util::trace(0,"1");
}
}
}
}
}


sub parse_cmdline {
my @cmdarray;
for (my $i=0; $i<=$#ARGV; $i++) {
if ($ARGV[$i] eq "-l") {
$list_flag = 1;
}
elsif ($ARGV[$i] eq "-s") {
$server_flag = 1;
}
elsif ($ARGV[$i] eq "-H") {
$host = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-T") {
$target_flag = 1;
$target_host = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-U") {
$username = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-P") {
$password = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-Q") {
$protocol = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-O") {
$port = $ARGV[$i+1];
$i++;
}
elsif ($ARGV[$i] eq "-h") {
$help_flag = 1;
}
elsif ($ARGV[$i] eq "-q") {
$quiet_flag = 1;
}
elsif ($ARGV[$i] eq "-v") {
$verbose_flag = 1;
}
elsif($ARGV[$i] eq "--server") {
$host = $ARGV[$i+1];
$i++;
}
elsif($ARGV[$i] eq "--username") {
$username = $ARGV[$i+1];
$i++;
}
elsif($ARGV[$i] eq "--password") {
$password = $ARGV[$i+1];
$i++;
}
elsif($ARGV[$i] eq "--encoding") {
$enc = $ARGV[$i+1];
$i++;
}
else {
@cmdarray = (@cmdarray,$ARGV[$i]);
}
}
return @cmdarray;
}

sub setencoding {
if ($enc eq "utf8") {
$enc = Opts::getencname();
}

if (defined($enc)) {
binmode(STDIN, ":encoding($enc)");
binmode(STDOUT, ":encoding($enc)");
binmode(STDERR, ":encoding($enc)");
}
}

sub connectserver {
my $url = $protocol."://" . $host . ":$port". "/sdk";
eval {
Vim::login(service_url => $url, user_name => $username, password => "ROOTPASSWORT");

Mahlzeit!!
Danke für die schnelle Antwort Bastla!
Und kann man den Zerlegten Text in der BAT mit übergeben oder muss mann diese in einer getrennten Datei mitführen?
Oder ist es möglich die Datei "vmware-cmd.pl" aus der Bat zu Zerlegen?

MfG

Hallo Bastla,
werde mich dann mal mit VBS beschäftigen, schaden kann das ja nichts
Und bis ich dann so weit bin werde ich zerlegen und dann Zippen

Auf jeden Fall vielen Dank für die Hilfe!!!

Grüße aus Frankreich