Set filesys = CreateObject("Scripting.FileSystemObject")

if filesys.FileExists("oui.txt") Then
	Set db  = filesys.OpenTextFile  ("oui.txt", 1)
	Set db1 = filesys.CreateTextFile("nuoui.txt", True) 
	Do until (db.AtEndOfStream)
		ThisLine = db.ReadLine
		if (ThisLine <> "" and right(left(ThisLine,3),1) <> "-" ) then
		if asc(left(ThisLine,1)) <> 9 then
			db1.WriteLine(ThisLine)
'			db1.WriteLine(asc(left(ThisLine,1)))
		end if
		end if
	Loop
	db.Close
	db1.Close
end if





' 	  macA = left(trim(UCase(macA)),3)  
'	    if macA <> "" then
'       Set db = filesys.OpenTextFile("oui.txt", 1)
'       Do until (db.AtEndOfStream or InStr(ThisLine, macA) = 1 )
'          ThisLine = db.ReadLine
'       Loop
'       If InStr(ThisLine, macA) = 1 Then
'           cop = Mid(ThisLine, InStr(ThisLine, ")" ) + 1)
'           if len(cop) > 3 then
'             ad1 = db.ReadLine
'             ad1 = right(ad1, len(ad1) - 2)
'             ad2 = db.ReadLine
'             ad2 = right(ad2, len(ad2) - 2)
'             ad3 = db.ReadLine
'             ad3 = right(ad3, len(ad3) - 2)
' 	'right(db.ReadLine, len(db.ReadLine) - 1))
'          
'             mstop = Msgbox (vbcrlf & macA & cop & _
'                    vbcrlf & ad1 & vbcrlf & ad2 & vbcrlf & ad3 & vbcrlf & vbcrlf & _
'                    vbcrlf & " Another Mac Address ? "& vbcrlf, 308,"  Mac Address Finder")
'           else
'             mstop = Msgbox (vbcrlf & macA & "   This Mac Addess is Private "& vbcrlf & vbcrlf & _
'                    vbcrlf & " Another Mac Address ? "& vbcrlf, 308,"  Mac Address Finder")
'   	        end if
'    	       flag = true
'    	   else
'   	        flag = false
'   	    end if
'   	 end if