may is too late but...

sub  New_IIS_Site  ###################################################
+#########
{
 my $ip = shift;
 my $header= shift;
 my $num;
  chomp $header;
 my $w3svc=Win32::OLE->GetObject("IIS://$ip/W3SVC")||die Win32::OLE->L
+astError();
 my $w3num;
 my $index;
 for($index=1;defined ($w3num=$w3svc->GetObject("","$index"));$index++
+)
  {next}
 my $bind=$ip.':80:'.$header;
 my $new=$w3svc->Create("IIsWebServer", "$index")||die Win32::OLE->Las
+tError();
 $new->{ServerBindings}=$bind;
 $new->{ServerComment}="$header";
 #$new->Put('FrontPageWeb', "1")||die Win32::OLE->LastError();;##noo I
+ hate this point!!
 $new->SetInfo();
 $new->Start();
 my $newdir=$new->Create("IIsWebVirtualDir", "ROOT")||die Win32::OLE->
+LastError();
 $newdir->{Path}="c:\\webroot\\_test";#####################
 $newdir->{AccessRead}="true";#
 $newdir->SetInfo();
 return $index;
}
[download]

and my 257370 and my 257372

PS I need your help!