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->LastError();
 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->LastError();
 $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;
}