荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: zzt (我命由我不由天), 信区: Microsoft
标 题: 第一讲 获取机器的网络属性配置
发信站: BBS 荔园晨风站 (Fri Apr 30 23:01:53 1999), 转信
第一讲 获取机器的网络属性配置
-------------------------------------------------------------------------
-------
其实就是读注册表,不过如果能获得机器的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\CurrentVersio
n\NetworkCards\1\ServiceName")
If sTcpipRegKey <> "Microsoft" And Err.Number = 0 Then
sTcpipRegKey = "HKLM\SYSTEM\CurrentControlSet\Services\" & sNic & "\P
arameters\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) & "IP
Address: " & 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: " & Subne
tMask(i))
Next
End If
End If
说明:机器的网络配置保存在注册表里,网卡项目下面,所以首先必须知道网
卡的名字。然后取注册表数据,IP地址和子网掩码都是数组形式(其实注册表里保存
的是二进制数据,VBSCRIPT帮我们转换了)。在WSH里读注册表非常的简单,具体请看
上面的程序。
--
日出东方,唯我不败;
天上地下,唯我独尊。
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.144]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店