23 lines
776 B
Plaintext
23 lines
776 B
Plaintext
' Copyright (c) Microsoft Corporation, All Rights Reserved
|
|
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Enable DHCP on adapter (VBScript)
|
|
'
|
|
' This script demonstrates how to enable 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.
|
|
'
|
|
' Supported on NT platforms only
|
|
'
|
|
'***************************************************************************
|
|
Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0")
|
|
|
|
RetVal = Adapter.EnableDHCP()
|
|
|
|
if RetVal = 0 then
|
|
WScript.Echo "DHCP Enabled"
|
|
else
|
|
WScript.Echo "DHCP enable failed"
|
|
end if
|