Asp.Net获取本地计算机和其他计算机的MAC值的方法

新客网 XKER.COM 2004-12-31 来源： 收藏本文

Public Function ValueSepR(ByVal RawString As String, ByVal SepChar As String) As String
If InStr(1, RawString, SepChar) <> 0 Then
ValueSepR = Microsoft.VisualBasic.Right(RawString,Len(RawString) - InStr(1, RawString, SepChar))
Else
ValueSepR = RawString
End If
End Function
Public Function GetMac(ByVal IP As String) As String
Try
Dim dirResults As String
Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
Dim proc As New System.Diagnostics.Process()
psi.FileName = "nbtstat"
psi.RedirectStandardInput = False
psi.RedirectStandardOutput = True
psi.Arguments = "-A " & IP
psi.UseShellExecute = False
proc = System.Diagnostics.Process.Start(psi)
Dim x As Integer = -1
Do Until x > -1
If dirResults <> Nothing Then
x = dirResults.Trim.ToLower.IndexOf("mac address", 0)
If x > -1 Then
Exit Do
End If
End If
dirResults = proc.StandardOutput.ReadLine
Loop
proc.WaitForExit()
GetMac = ValueSepR(dirResults.Trim, "=").Trim
Catch err As Exception
Response.Write(err.Message & err.StackTrace)
End Try
End Function

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决