当前位置: 首页 > 图文教程 > 网络编程 > ASP > WSH实用讲座：第一讲 获取机器的网络属性配置

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

ASP 中的 WSH实用讲座：第一讲 获取机器的网络属性配置

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 222 ::
收藏到网摘: n/a

  原文请到WSH（WHITE的小家）(http://wwwasp.yeah.net )
　　其实就是读注册表，不过如果能获得机器的IP配置等信息，以后配置IIS时就简单了。下面的脚本读出机器的所有可用IP地
址，子网掩码，却省网关等信息：


代码:
--------------------------------------------------------------------------------

Option Explicit Dim WSHShell Dim sNic, sMan Dim Gateway Dim IPAddress Dim SubnetMask Dim i Dim
sTcpipRegKey Dim bIsDHCP Set WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1\ServiceName") If sTcpipRegKey
<> "Microsoft" And Err.Number = 0 Then 　　sTcpipRegKey = "HKLM\SYSTEM\CurrentControlSet\Services\" & sNic
& "\Parameters\Tcpip\" 　　bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") 　　If bIsDHCP Then 　　
　　Gateway = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") 　　　　IPAddress = WSHShell.RegRead
(sTcpipRegKey & "DhcpIPAddress") 　　　　SubnetMask = WSHShell.RegRead(sTcpipRegKey & "DhcpSubnetMask") 　
　　　MsgBox ("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress & Chr(10) &
Chr(13) & "SubnetMask: " & SubnetMask) 　　Else 　　　　Gateway = WSHShell.RegRead(sTcpipRegKey
& "DefaultGateway") 　　　　IPAddress = WSHShell.RegRead(sTcpipRegKey & "IPAddress") 　　　　SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") 　　　　For i=0 to Ubound(IPAddress)-1 　　　　　　MsgBox
("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress(i) & Chr(10) & Chr(13)
& "SubnetMask: " & SubnetMask(i)) 　　　　Next 　　End If End If

--------------------------------------------------------------------------------


　　说明：机器的网络配置保存在注册表里，网卡项目下面，所以首先必须知道网卡的名字。然后取注册表数据，IP地址和子网掩
码都是数组形式（其实注册表里保存的是二进制数据，VBSCRIPT帮我们转换了）。在WSH里读注册表非常的简单，具体请看上面的
程序。