Function ProvjeraDostupnosti()
Dim objHTTP As Object
Dim url As String
Dim authHeader As String
Dim response As String
    
' Postavi URL i Authorization header
url = "http://127.0.0.1:3566/api/attention" '// ovo treba promijeniti i staviti IP printera : 3566 je port
authHeader = "Bearer 0123456789abcdef0123456789abcdef" ' Ovo neznam dali postoji autorizacioni kod ako postoji
' treba ga staviti. Autorizacioni kod se dobije od poreske to treba vidjeti. Ako nema moze se ispustiti

' Kreiraj XMLHTTP objekat
Set objHTTP = CreateObject("MSXML2.XMLHTTP")

' Otvori HTTP zahtev
objHTTP.Open "GET", url, False

' Postavi Authorization header
objHTTP.setRequestHeader "Authorization", authHeader

' Posalji zahtev
objHTTP.send

' Dobavi odgovor
response = objHTTP.responseText

' Prikazi odgovor (na primer, u Immediate Window)
Debug.Print response
'zatvori objHTTP
Set objHTTP = Nothing

End Function