IP検索3　 次の文書

Function MACCHK(TempName, wMAC, wDom, wTNAME, uname)
Dim Mflg As Boolean
Dim Dflg As Boolean
Dim Tflg As Boolean

Mflg = False
Dflg = False
Tflg = False
Open TempName For Input As #1
wMAC = ""
wDom = ""
wTNAME = ""
Do While Not EOF(1)
sText = ""
wText = ""
Line Input #1, sText
If (Mflg = False) Then
If (InStr(1, sText, "MAC Address") > 0) Then
sText = Trim(sText)
sText = Mid(sText, 15)
wMAC = sText
Mflg = True
End If
End If
If (Dflg = False) Then
If (InStr(1, sText, "<00> GROUP") > 0) Then
sText = Trim(sText)
sText = Trim(Left(sText, (InStr(1, sText, "<00> GROUP") - 1)))
wDom = sText
Dflg = True
End If
End If
If (Tflg = False) Then
If (InStr(1, sText, "<00> UN
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)