43 lines
1.2 KiB
Perl
43 lines
1.2 KiB
Perl
#!perl -w
|
|
#***************************************************************************
|
|
# Copyright (c) Microsoft Corporation
|
|
#
|
|
# WMI Sample Script - Disable DHCP on adapter (Perl Script)
|
|
#
|
|
# This script demonstrates how to disable DHCP use on an instance of
|
|
# Win32_NetworkAdapterConfiguration. In this case we specify the adapter with an Index
|
|
# of 0. The correct index should be selected from Win32_NetworkAdapter instances for other
|
|
# interfaces.
|
|
#
|
|
# NOTE: This script only applies to NT-based systems
|
|
# NOTE: Change the ipaddr and subnet variables below to the values you wish to apply
|
|
# to the adapter.
|
|
#***************************************************************************
|
|
use strict;
|
|
use Win32::OLE;
|
|
|
|
my ($Adapter, @ipaddr, @subnet, $RetVal);
|
|
eval { $Adapter =
|
|
Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2:Win32_NetworkAdapterConfiguration.Index=\"0\""); };
|
|
|
|
unless ($@)
|
|
{
|
|
push @ipaddr, "192.168.144.107";
|
|
push @subnet, "255.255.255.0";
|
|
|
|
$RetVal = $Adapter->EnableStatic(\@ipaddr, \@subnet);
|
|
|
|
if ($RetVal == 0)
|
|
{
|
|
print "\nDHCP disabled, using static IP address\n";
|
|
}
|
|
else
|
|
{
|
|
print "\nDHCP disable failed\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print STDERR "\n", Win32::OLE->LastError, "\n";
|
|
}
|