Dim objShell, objShortcut, strDesktop, objFSO

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDesktop = objShell.SpecialFolders("Desktop")

' Descarga el ícono usando PowerShell
objShell.Run "powershell -Command ""Invoke-WebRequest -Uri 'https://armoniaonline.com.ar/download/favicon-armonia.ico' -OutFile '" & strDesktop & "\ArmoniaOL.ico'""", 0, True

' Esperamos a que el archivo se descargue antes de continuar
Do While Not objFSO.FileExists(strDesktop & "\ArmoniaOL.ico")
    WScript.Sleep 500
Loop

' Creamos el acceso directo en el escritorio
Set objShortcut = objShell.CreateShortcut(strDesktop & "\ArmoniaOL.lnk")
objShortcut.TargetPath = "https://armoniaonline.com.ar"
objShortcut.IconLocation = strDesktop & "\ArmoniaOL.ico"
objShortcut.WorkingDirectory = strDesktop
objShortcut.Save

MsgBox "✅ ¡Instalación completada! Se ha creado un acceso directo con ícono en tu escritorio.", vbInformation, "Acceso rápido creado"

' Liberar objetos
Set objShortcut = Nothing
Set objShell = Nothing
Set objFSO = Nothing