// Creating object if ($com = new COM("MerakCOM.APIObject")) { echo "COM object created\r\n"; echo "\r\n"; // Object work $domcount = $com->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; }; ?>