25 lines
688 B
Text
25 lines
688 B
Text
Function pipeout(Byval s As String = "") Byref As String
|
|
Var f = Freefile
|
|
Dim As String tmp
|
|
Open Pipe s For Input As #f
|
|
s = ""
|
|
Do Until Eof(f)
|
|
Line Input #f, tmp
|
|
s &= tmp
|
|
Loop
|
|
Close #f
|
|
Return s
|
|
End Function
|
|
|
|
Function lookupvendor(webpage As String, mac As String) As String
|
|
Return pipeout("powershell " + "(Invoke-WebRequest " + webpage + mac + ")")
|
|
End Function
|
|
|
|
Dim As String macs(1 To 4) = {"FC-A1-3E","FC:FB:FB:01:FA:21","88:53:2E:67:07:BE","D4:F4:6F:C9:EF:8D"}
|
|
|
|
For i As Integer = 1 To Ubound(macs)
|
|
Var d = lookupvendor("api.macvendors.com/", macs(i))
|
|
Var e = Instr(d, "RawContent")
|
|
Print Mid(d, 66, e-66)
|
|
Next i
|
|
Sleep
|