Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWS = WScript.CreateObject("WScript.Shell")

sIconDir = oWS.ExpandEnvironmentStrings("%LocalAppData%") & "\SISESCOL"
If Not oFSO.FolderExists(sIconDir) Then oFSO.CreateFolder(sIconDir)
sIconFile = sIconDir & "\sisescol.ico"
sTemIcone = False

On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", "https://escola.gcontabil.com.br/favicon.ico", False
oHttp.Send
If Err.Number = 0 And oHttp.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 1
    oStream.Open
    oStream.Write oHttp.responseBody
    oStream.SaveToFile sIconFile, 2
    oStream.Close
    If oFSO.FileExists(sIconFile) Then sTemIcone = True
End If
On Error Goto 0

sLinkFile = oWS.SpecialFolders("Desktop") & "\SISESCOL.url"
Set oLink = oFSO.CreateTextFile(sLinkFile, True)
oLink.WriteLine "[InternetShortcut]"
oLink.WriteLine "URL=https://escola.gcontabil.com.br/login.php"
If sTemIcone Then
    oLink.WriteLine "IconFile=" & sIconFile
    oLink.WriteLine "IconIndex=0"
End If
oLink.Close

MsgBox "Atalho ""SISESCOL"" criado na Area de Trabalho!" & vbCrLf & vbCrLf & "Use esse atalho para abrir o sistema da Escola Mestra no navegador padrao deste computador.", vbInformation, "SISESCOL"