快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱乐和记怡情下载_机器人论坛



若何经由过程ASP读取网卡MAC地址呢?基础ASP平台来读取MAC地址必要两个系统关键的组件支持,“WSCRIPT.SHELL”和“Scripting.FileSystemObject”两个组件,不过,这两个组件的开放是相称危险的,由于很多的病毒脚本便是经由过程他们来节制主机权限的,在应用本功能时,要留意安然警备.

因为读取某IP的网卡MAC地址

本法度榜样经由过程调用arp敕令经由过程查询本机arp表读取特定IP的MAC地址

应用本法度榜样需留意以下事变:

本法度榜样必要“WSCRIPT.SHELL”和“Scripting.FileSystemObject”两个组件,请确保您的办事器可以正常应用这两个组件

本法度榜样必要调用cmd和记娱乐和记怡情下载.exe法度榜样,请确保IIS宾客帐号对法度榜样有造访权限。

本法度榜样必要临时文件保存结果,请确保IIS宾客帐号对临时目录有写权限。

函数代码如下:

以下是ASP代码:

'滥觞:雨枫技巧教程网 fengfly.com

Public function GetMac(IP)

On Error Resume Next

Dim oScript

Dim oFileSys, oFile

Dim All, szTempFile,ipc,phyc,typec

Dim TempPath

Set oScript = Server.CreateObject("WSCRIPT.SHELL")

Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")

TempPath="d:\temp\" ’临时目录

szTempFi和记娱乐和记怡情下载le = TempPath & oFileSys.GetTempName() ’ 获取临时文件名

Call oScript.Run ("cmd.exe /c ping -n 2 " & IP, 0, True) ’包管arp表中有此IP

Call oScript.Run ("cmd.exe和记娱乐和记怡情下载 /c arp -a " & IP & " > " & szTempFile, 0, True)

Set oFile = oFileSys.OpenTextFile (szTem和记娱乐和记怡情下载pFile, 1, False, 0)

All=oFile.ReadAll()

oFile.Close

If (IsObject(oFile)) Then

Call oFileSys.Delet和记娱乐和记怡情下载eFile(szTempFile, True)

End If

arr = Split(All, vbCrLf)

If UBound(arr) = 4 Then

ipc = InStr(1, arr(2), "Internet Address")

phyc = InStr(1, arr(2), "Physical Address")

typec = InStr(1, arr(2), "Type")

If typec > phyc And phyc > ipc And ipc > 0 Then

GetMac=Ucase(Trim(CStr(Mid(arr(3), phyc, typec - phyc))))

End If

End If

End function

您可能还会对下面的文章感兴趣: