|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!收集实在就是读注册表,不外假如能取得呆板的IP设置等信息,今后设置IIS时就复杂了。
上面的剧本读出呆板的一切可用IP地点,子网掩码,却省网关等信息:
OptionExplicit
DimWSHShell
DimsNic,sMan
DimGateway
DimIPAddress
DimSubnetMask
Dimi
DimsTcpipRegKey
DimbIsDHCP
SetWSHShell=CreateObject("WScript.Shell")
sNic=WSHShell.RegRead("HKLMSOFTWAREMicrosoftWindowsNT
CurrentVersionNetworkCards1ServiceName")
IfsTcpipRegKey"Microsoft"AndErr.Number=0Then
sTcpipRegKey="HKLMSYSTEMCurrentControlSetServices"
&sNic&"ParametersTcpip"
bIsDHCP=WSHShell.RegRead(sTcpipRegKey&"EnableDHCP")
IfbIsDHCPThen
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")
Fori=0toUbound(IPAddress)-1
MsgBox("DefaultGateway:"&Gateway(0)&Chr(10)&Chr(13)
&"IPAddress:"&IPAddress(i)&Chr(10)&Chr(13)&"SubnetMask:"
&SubnetMask(i))
Next
EndIf
EndIf
申明:呆板的收集设置保留在注册内外,网卡项面前目今面,以是起首必需晓得网卡的名字。然后取注册表数据,IP地点和子
网掩码都是数组情势(实在注册内外保留的是二进制数据,VBSCRIPT帮我们转换了)。在WSH里读注册表十分的复杂,详细
请看下面的程序。</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|