微软示例脚本
On Error Resume Next- k/ [/ N1 K/ ]) P! L6 }
* M" N" z0 T& {; [. I6 a8 P. C. @strComputer = "."
& i# Z. i$ {" E7 {Set objWMIService = GetObject("winmgmts:" _
. _' p1 o0 M" k( Y5 v# R9 | & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
; F, I" J) e* k+ d# Q1 VSet colNicConfigs = objWMIService.ExecQuery _
" r( i7 N9 B1 c j$ Q ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
6 ~! L, j* }. t
* \& a8 L" U+ p) MFor Each objNicConfig In colNicConfigs: P1 k( j; b: W- X! P, Y# P; G
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index & _
0 g, b8 `% G/ C0 ^" W2 M4 u VbCrLf & " " & objNicConfig.Description & VbCrLf- h+ @* k, _) e+ r& j1 l$ |
If Not objNicConfig.DHCPEnabled Then
8 O; d# n! p5 n# Y WScript.Echo " Enabling DHCP ...". a8 h; \- Z/ h8 K
intReturn = objNicConfig.EnableDHCP
) v$ E: n8 I j( p# h! F) h If intReturn = 0 Then
) Q# C( L2 q1 A4 n- i0 L& ` strSuccess = " DHCP enabled.") y+ n9 ]5 p% x/ d
Else
1 Z+ l0 L+ w6 a% ^/ z4 Y strSuccess = " Unable to enable DHCP."
/ k8 S) | m" n2 o2 C7 l: P End If* y+ {0 x% e- p! U7 s4 k: X/ b
WScript.Echo VbCrLf & strSuccess9 K, ^- Q( c r
+ R# `3 Z6 H: Y' a# B- s6 F. L
Else4 d8 G3 S5 [9 Q
WScript.Echo " DHCP already enabled" & VbCrLf & _
2 O2 s/ l% }+ m) M4 p v " DHCP Server: " & objNicConfig.DHCPServer
8 Y5 L: y$ w; v% ` End If
8 g9 @6 s+ c6 Z% [1 z; a% x' ANext
