Lidt hjælp søges til iis

Hej jeg sider og arbejder med at lave et admin system til mig selv hvor jeg gerne vil kun oprette domain på iis, og jeg fandt så et script som dog virker på min XP men ikke på min Windows 2000 Server, og håber der er en der kan hjælpe mig..

/**  Script:  MakeWebSite.js
*
*    Purpose: Makes a website on a Windows 2000 server, the coresponding
*            resource record in the DNS and the folder that conteints the website.
*    Author:  Dan Casier
*    Date:    30 oct 2004
*    Web:    none
*    Note:    runs on a Windows 2000 server with IIS and DNS installed.
*            not tested on Windows 2003 server
              //** do not forget to give permissions for IUSR-users to the folder.
*            creating a website this way takes less then a second.
*
*    Copyright 2004 Dan Casier
*
**/ 010.050.076.205
var Web          = "examplesite";          //name of the website
var strRRsufix    = ". IN A 10.50.76.205";  //ip address of the IIS server
var ServerBinding = "010.050.076.205:80:";  //ip address and portnumber
var DNSroot      = ".domain.com";
var strDomain    = "domain.com";
var sRootDir      = "c:\\websites\\mtest\\iis2";      //place of the site

CreateWeb(Web + DNSroot,sRootDir,Web);

function CreateWeb( sHostName, sRootDir, comments )
{
var oWeb = GetObject("IIS://localhost/W3SVC");
oWeb.GetInfo();
//looks for the first free website and create it
var Index = 1;
var cont  = 0;
while( cont == 0 )
{
  try
  {
    var webobj = GetObject("IIS://localhost/w3svc/" + Index);
  }
  catch( e ) 
  {
    if( ( e.number & 0xFFFF ) > 0 )
    {
      cont= 1;
    }
  }
  Index = Index + 1;
}
Index = Index - 1;
WScript.Echo( "Next Index: " + Index );
WScript.Echo("creating web " + sHostName);
oServer = oWeb.Create("IIsWebServer",Index);
//Configure the new server
oServer.DefaultDoc        = "default.htm, index.htm";
oServer.ServerComment    = comments;
oServer.ConnectionTimeout = 600;
oServer.ServerBindings    = ServerBinding + sHostName;
oServer.SetInfo();
var fs    = new ActiveXObject("Scripting.FileSystemObject");
if( !fs.FolderExists( sRootDir ) )
  var foldr = fs.CreateFolder(sRootDir);
//Create virtual root directory for the new site
oServer  = GetObject("IIS://localhost/w3svc/" + Index );
var oVdir = oServer.Create("IIsWebVirtualDir", "ROOT");
//Configure the virtual root directory
oVdir.Path        = sRootDir;
oVdir.AccessRead  = "True";
oVdir.AccessWrite  = "True";
oVdir.AccessScript = "True";
oVdir.SetInfo();
//Starting the website
WScript.Echo("starting web " + sHostName + " " + Index);
oServer.Start();
//add DNS-record
strRR=sHostName + strRRsufix;
var objDNS      = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\MicrosoftDNS");
var objRR        = objDNS.Get("MicrosoftDNS_ResourceRecord");
var objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name=\".\"");
var strNull      = objRR.CreateInstanceFromTextRepresentation(objDNSServer.Name, strDomain, strRR);

} //end function

Jeg har prøver at finde ud af hvordan jeg kan lave en version der virker på min server så jeg kan oprette og Rette og slette
og har søgt som en gal på nette men finder ikke nåde der kan bruges.. så håber der er en sød person som kan hjælpe mig..