программно получая список гостей VMware
Это не нормально. У меня была проблема с помощью нашей разработки AD, который был подобен. Импорт профиля закончил тем, что удалил сервер базы данных в конечном счете.
Я рекомендую выключить импорт профиля, пока Вам не зафиксировали проблему.
Попытайтесь удалить соединения, ответственные за "MyCompany.com", и реконфигурируйте. Попытайтесь установить "поисковую основу", чтобы быть столь же строгими как полезные и представить пользовательский фильтр, который ограничит только "допустимыми" пользователями.
Мы сделали, чтобы "пользователь отфильтровал" (и (objectClass=user) (objectCategory=person) ((terminationDate = *))). Это предотвращает нас включая любого из наших "завершенных" пользователей в импорте.
После того как Вы удалили профили, повторно выполняет полный импорт и видят, существуют ли какие-либо ошибки.
Знайте, что выполнение полного импорта 3X, который не включает пользовательский объект (неисправным пользовательским фильтром, возможно) удалит пользовательский профиль.
Что-то вроде этого должно сработать. При вызове этого сценария perl вам необходимо указать сервер ( server_fqdn: порт # ) вместе с именем пользователя и паролем (например, $ perl listVMS --server 1.1.1.1:333 --username " независимо от \ user "--password" s0m3p4ss ")
use FindBin;
use lib "$FindBin::Bin/../";
use VMware::VIRuntime;
use AppUtil::HostUtil;
use AppUtil::VMUtil;
use Data::Dumper;
use Getopt::Long qw( :config no_ignore_case pass_through );
Opts::parse('pass_through');
$server = Opts::get_option('server');
$username = Opts::get_option('username');
$password = Opts::get_option('password');
$service_url = "https://".$server."/sdk/vimService";
Util::connect();
Vim::login(service_url => $service_url, user_name => $username, password => $password);
# This gets all the host systems
my $host_views = Vim::find_entity_views(view_type => 'HostSystem', properties => [ 'summary', 'hardware', 'name' ]);
foreach my $host (@$host_views) {
$hostname = $host->name;
my $host_view = Vim::find_entity_view(view_type => 'HostSystem', filter => { name => $host->name } );
# This gets all the vms running on a the host system
my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', begin_entity => $host_view, properties => ['summary','name']);
print "HostSystem '$hostname' has the following virtual guests\n";
foreach my $vm (@$vm_views)
{
my $vmName = $vm->name;
print "\t$vmName\n";
}
}
Util::disconnect();