jeykey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
strComputer = "."
strMACAddress = "00:00:00:00:00:00"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and MACAddress = " & """" & strMACAddress & """")
strDNS = NULL
For Each objNetAdapter In colNetAdapters
objNetAdapter.EnableDHCP()
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
Next
If errReturn = 0 Then
MsgBox "DHCP Enabled"
Else
MsgBox "Error"
End If
|
Всего записей: 21 | Зарегистр. 29-08-2006 | Отправлено: 12:20 26-05-2012 | Исправлено: jeykey, 12:21 26-05-2012 |
|
