邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 利用VBS验证网段 [打印本页]

作者: heieye104 时间: 2008-6-4 13:54
标题: 利用VBS验证网段
把以下文件拷入文本文件中，把后缀改为.VBS就可以直接运行了

——————————————————————————————————————————————————————————————
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress =  "192.168.101."
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.101.254")
strGatewayMetric = Array(1)
arrDNSServers = Array("202.106.0.20", "202.106.196.115")
For Each objNetAdapter in colNetAdapters
WScript.Echo left(objNetAdapter.IPAddress(0),10) + " " + strIPAddress+ mid(objNetAdapter.IPAddress(0),13)
if left(objNetAdapter.IPAddress(0),10) = "192.168.10"  then
  errEnable = objNetAdapter.EnableStatic(Array(strIPAddress+ mid(objNetAdapter.IPAddress(0),13)), strSubnetMask)
  errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  errDNSServers = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
  If errEnable = 0 Then
WScript.Echo "你已接入内部网络 "  + objNetAdapter.Caption
  Else
WScript.Echo "连接错误"
  End If
else
  WScript.Echo "你不在内部网络"
end if
Exit For    '只修改第一个网卡的设置
Next
—————————————————————————————————————————————————————————————————

除在IBM的笔记本测试不成功，其他都测试没有问题。

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)