Soru Web Adresinden veya Ağ Adresinden İzin Verilen İp

[TURKOLOG]

Herkese Merhaba benim şöyle bir sorunum var
Excel açıldığında misal

https://www.excel.web.tr/forums/makro-vba-sorulari.48/post-thread/YILDIZ.txt adresine gidecek ve
Eğer İp adresi belirtilen adresteki YILDIZ.txt dosyası içerisinde alt alta yazılanlardan biri ise excel dosyası açılsın
Eğer txt dosyası içerisinde ip yazılı değilse exceli kaydedip kapatsın.Elimde şöyle bir kod var ama işimi görmedi
Yardım edebilecek olan var mı.

Sub Bil_ip()
    Set WS = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set REG = CreateObject("vbscript.regexp")
    txt = Environ("Temp") & ".txt"
    WS.Run "%comspec% /c ipconfig > " & txt, 0, True
    With REG
        .Pattern = "(\d{1,3}\.){3}\d{1,3}"
        .Global = False
    End With
    Set ip = REG.Execute(FSO.GetFile(txt).OpenAsTextStream(1).ReadAll)
   
    Range("A1").Value = "Bu bilgisayarın ip si >>" & ip(0)
   
   
    If ip(0) = "192.168.0.1" Then
      MsgBox "İzin verilen ip"
      '....... istenilen ip ise yapılacaklar
    Else
      MsgBox "Bu ip li bilgisayarda izin yok"
      'ActiveWorkbook.Close SaveChanges:=False
      '....... istenilen ip değilse yapılacaklar
    End If
   
End Sub

 

[TURKOLOG]

Yardım edebilecek olan var mı acaba