aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/MAC-vendor-lookup/VBScript/mac-vendor-lookup.vb Normal file
View file

@ -0,0 +1,11 @@
a=array("00-20-6b-ba-d0-cb","00-40-ae-04-87-86")
set WebRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
for each MAC in a
if b<>0 then wscript.echo "Spacing next request...": wscript.sleep 2000
WebRequest.Open "GET", "http://api.macvendors.com/"& mac,1
WebRequest.Send()
WebRequest.WaitForResponse
b=b+1
wscript.echo mac & " -> " & WebRequest.ResponseText
next