34 lines
808 B
Perl
34 lines
808 B
Perl
#!perl -w
|
|
#***************************************************************************
|
|
# Copyright (c) Microsoft Corporation
|
|
#
|
|
# WMI Sample Script - DNS Domain name (Perl Script)
|
|
#
|
|
# This script demonstrates how to retrieve the DNS domain name of the local machine
|
|
# from instances of Win32_ComputerSystem.
|
|
#
|
|
#***************************************************************************
|
|
use strict;
|
|
use Win32::OLE;
|
|
|
|
close (STDERR);
|
|
|
|
my ($NICSet, $NIC);
|
|
eval {$NICSet = Win32::OLE->GetObject("winmgmts:!\\\\.\\root\\cimv2")->
|
|
ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=true"); };
|
|
if (!$@ && defined $NICSet)
|
|
{
|
|
foreach $NIC (in $NICSet)
|
|
{
|
|
if(defined $NIC->{DNSDomain})
|
|
{
|
|
print "\n", $NIC->{DNSDomain}, "\n";
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print Win32::OLE->LastError, "\n";
|
|
}
|
|
|