bbs.51cto.com+L
Dmp~J
On Error Resume Next
XoHf9Kh51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水| n`(\A8c0TxG
Const ENABLE_NETBIOS_VIA_DHCP = 051CTO技术论坛s;SviH:[0rK
Const ENABLE_NETBIOS = 1
0omDv/gConst DISABLE_NETBIOS = 2
7DhEF.Jq(J.q#~O%f Ebbs.51cto.comstrComputer = "."bbs.51cto.comL
ab-?.G@
_o
A9@4@}V6H!a)H n
Set objWMIService = GetObject("winmgmts:" _
T"c#v}@0` & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")B9_/YO
i        R
Set colNicConfigs = objWMIService.ExecQuery _51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|6p0zQVeb"ub
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|.A},l?"I
%GdP3?f+J7_
WScript.Echo VbCrLf & "Host Name: " & strComputer
.zF-a`
}$Z{.i:y)Hbbs.51cto.comFor Each objNicConfig in colNicConfigs
v,o-y|6mM
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index & _
2~-g[CdA{bbs.51cto.com   "    " & objNicConfig.Description & VbCrLf & _
d/b9Bo
h E:g  "    Attempting to set NetBIOS over TCP/IP default."
1RD7~1G5LkT  intNetBIOS = objNicConfig.SetTCPIPNetBIOS(ENABLE_NETBIOS_VIA_DHCP)
f4d
h7{B5{:?~ Xbbs.51cto.com  If intNetBIOS = 0 Then

FIT iYaJ    WScript.Echo "    Successfully set NetBIOS over TCP/IP default."
vz_%`"Y51CTO技术论坛  ElseIf intNetBIOS = 1 Thenbbs.51cto.comC%WaJ r^
    WScript.Echo "    Successfully set NetBIOS over TCP/IP default." & _*^t)f"~&JU(MY
     VbCrLf & "    Must reboot."51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|^z}I3A        {
  Else
|d'G|
qd1W|
IH51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|    WScript.Echo "    Unable to set NetBIOS default."3t
Rn%gL5]
  End If
XBB0B)obbs.51cto.comNext
(IXxAI/\bbs.51cto.com 51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|gn7Q7Ztv
WScript.Echo VbCrLf & String(80, "-")
i3W+T8e[2aw2z51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水| 51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|@F4}b
Qw^
O.t
Set colNicConfigs = objWMIService.ExecQuery _51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|g"w3BVy2G1~
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
        nj`G] ioo*`51CTO技术论坛
u-l3D,y}3CW3s9Z!C51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|For Each objNicConfig In colNicConfigs7yl6X
DC
?z6ON
  WScript.Echo VbCrLf & _51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|lf        e8A.t$Xa
urX
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _/b0p&aK/].s
   "    " & objNicConfig.Description![2@*U'\Woq
  intNetBIOS = objNicConfig.TcpipNetbiosOptions51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|!Mj6``a0R
  Select Case intNetBIOSbbs.51cto.comxK1^yy1KR$h
hk        r
    Case 0 strNetBIOS = "Use NetBIOS setting from the DHCP server"V
_:J2bt        ^T
    Case 1 strNetBIOS = "Enable NetBIOS over TCP/IP"
C6S9v+k#o9w8C(B51CTO技术论坛    Case 2 strNetBIOS = "Disable NetBIOS over TCP/IP"&In*w'r~H
Y
  End Select51CTO技术论坛
K c~$w2}NNZ
  WScript.Echo "    NetBIOS Over TCP/IP: " & strNetBIOS
?v/^q,x1M?UNext51CTO技术论坛Y XBb@ o

%g(Ivg`@8^51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|

原帖由 微软狂热者 于 2007-8-28 14:57 发表
;\ QT)sJZq!U5p给你一个脚本，运行看看
5T)E'Dm0G"uj51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|
XgCW6S'q#WID'W51CTO技术论坛B
Ng3h%^
然后使用“Cscript”来运行这个脚本