GetDomainCount();
    echo "Domain count: $domcount\r\n";

    $domlist = $com->GetDomainList();
    echo "Domain list: $domlist\r\n";
    
    $domainname = $com->GetDomain(0);
    echo "First domain: $domainname\r\n";

    echo "\r\n";

    // Domain work
    $domain = $com->OpenDomain($domainname);
    $domname = $domain->Name;
    echo "Loaded domain: $domname\r\n";
    
    $accnum = $domain->GetAccountCount();
    echo "Account count: $accnum\r\n";

    $acclist = $domain->GetAccountList();
    echo "Account list: $acclist\r\n";

    $acc = $domain->GetAccount(0);
    echo "First account: $acc\r\n";

    echo "\r\n";

    // Account work
    $account = $domain->OpenAccount($acc);
    echo "Loaded account: $acc\r\n";

    $accdom = $account->Domain;
    echo "Account's domain: $accdom\r\n";
   
    echo "\r\n";

    // Creating new domain
    $domain = $com->NewDomain("test.com");
    $domain->SetProperty("D_Description", "Test Domain");
    $domain->SetProperty("D_AdminEmail", "postmaster@test.com");
    $domain->Save();
    
    // Create new account
    $account = $domain->NewAccount("test");
    $account->SetProperty("U_Password", "password");
    $account->SetProperty("U_Name", "Test");
    $account->SetProperty("U_Comment", "Comment");
    $account->Save();
    $account->Delete();
   
    $domain->Delete();
    
    $com->Release();
    $com = null;
  };

?>