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

' Caminho fixo e absoluto para garantir que não haja erro de localização
strLogPath = "C:\windows\z\log_execucao.txt"

' Função simples para registrar log direto pelo VBS (para testar)
Sub EscreverLog(mensagem)
    On Error Resume Next
    Set f = objFSO.OpenTextFile(strLogPath, 8, True)
    f.WriteLine Now & " - VBS: " & mensagem
    f.Close
    On Error GoTo 0
End Sub

EscreverLog "Iniciando VBS..."

' Caminho completo do script PowerShell na mesma pasta
strPsPath = "C:\windows\z\apps.ps1"

' Comando limpo para chamar o PowerShell
strCommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -File """ & strPsPath & """"

EscreverLog "Chamando PowerShell..."

' Executa e aguarda terminar (True)
objShell.Run strCommand, 0, True

EscreverLog "VBS finalizado."