网络编程
位置:首页>> 网络编程>> Asp编程>> 如何用ASP获知机器的网络配置?

如何用ASP获知机器的网络配置?

  发布时间:2010-06-11 19:58:00 

标签:网络配置,asp,WScript.Shell

如何用ASP获知机器的网络配置?

看看我们的例子:

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 

0
投稿

猜你喜欢

  • 有的时候,我们为了保持网页的美观,需要将较长的文字在一定长度时截断。比如我们希望在列表中显示文章标题的前15个字,那么一个这样的标题:“rs
  • 最近在做一个电信的MIS系统,由于数据库的数据量庞大(最少也有500万),发现了一个sql server 长时间占有内存的现象。当你查询数据
  • 如果你是个赛车手,并且按一下按钮就能够立即更换引擎而不需要把车开到车库里去换,那会是什么感觉呢?MySQL数据库为开发人员所做的就好像是按按
  • sql语句 代码如下:reverse(substring(reverse(Path),1,charindex('/'
  • 简洁的隐藏垂直菜单在hover时将内容展开。这样的效果在JS里有很多个版本,但这个可以说是绝无仅有的CSS版本。此菜单可以在IE5.5,IE
  • 最近有网友在留言板里问到jRaiser和jQuery的冲突问题,特此写一篇文章进行解释。冲突的根源众所周知,jQuery是通过一个全局变量$
  • ASP+XML制作菜单管理!menu.asp  这个是前台执行部分<% '----------------
  • 自己从工艺品设计到平面设计到网络设计,虽然设计原则不离其宗,但经验下来的心得告诉自己,设计媒介的变化带来很多媒介自身的特殊性,下面总结下网站
  • Macromedia官方将在其他软件中内建Fireworks技术称为Fireworks技术,网上也称之为内建图片编辑器。Dreamweave
  • 1. 停应用层的各种程序。 2. 停oralce的监听进程: $lsnrctl stop 3. 在独占的系统用户下,备份控制文件: SQL&
  • 代码如下: function astro(birth) astro="" if birth=""
  • MySQL Group By用法我们现在回到函数上。记得我们用 SUM 这个指令来算出所有的 Sales (营业额)吧!如果我们的需求变成是
  • 最近在开发项目的过程中遇到一个问题,就是在插入一条记录的后要立即获取所在数据库中ID,而该ID是自增的,怎么做?在sql server 20
  • 阅读上一片:微软建议的ASP性能优化28条守则(1)技巧 3:将数据和 HTML 缓存在 Web 服务器的磁盘上有时,数据可能太多,无法都缓
  • 阅读上一篇:你是真正的用户体验设计者吗? Ⅱ系统和用户环境设计苹果系统成功在于系统架构。简化系统本身,设备只能变得更好、更小、性能更强大。在
  • 先声明一下,这是本人在某个项目中用到的,本人自己写的,如有雷同纯属巧合。同时也欢迎高人指正。这种星级的投票效果很常见,但是目前线上大多都是通
  • 如今WEB的安全问题影响着整个安全界,SQL注入,跨站脚本攻击等攻击受到了关注。 网络安全问题日益变的更加重要,国内依然有很多主机受到此类安
  • 摘要:本篇文章介绍了ORACLE数据库的新特性—分区管理,并用例子说明使用方法。 关键词:ORACLE,分区 一、 分区概述: 为了简化数据
  • 报表服务器数据库可以为一个或多个报表服务器实例提供内部存储。因为报表服务器数据库架构可能会因为推出新的 Reporting Services
  • 不错,这个是一个文章详细页,没有左右两栏布局,不过这里我重点要讲的是合理的布局,在稍后的文章中我会详细的介绍浮动元素。好,回到刚才的话题,大
手机版 网络编程 asp之家 www.aspxhome.com