PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2025 → Execution commande
Execution commande
Débuté par ADRIEN TRANI, 15 avr. 2026 20:15 - Aucune réponse
Membre enregistré
10 messages
Posté le 15 avril 2026 - 20:15
Bonjour,

Pour récupérer des informations sur un iPad, je dois lancer une commande "dns-sd". En mode commande Powershell cela fonctionne. Quand je retraduis cela en WINDEV, le fichier est vide.
Voilà mon code :

sfichier est une chaîne = ("C:\temp\ipad.txt")
ocmd est une Commande

ocmd..Exécutable = "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe"
ocmd.AjouteArgument("-ExecutionPolicy")
ocmd.AjouteArgument("Bypass")
ocmd.AjouteArgument("-File")
ocmd.AjouteArgument("C:\temp\capture_mdns.ps1")
bExec = ocmd.Exécute()
SI bExec = Faux ALORS
RESULT "Erreur lancement"
END


IF fFichierExiste(sfichier) THEN
RESULT fChargeTexte(sfichier)
END

RESULT "Aucune détection"

Le fichier capture_mdns.ps1 :
$job = Start-Job -ScriptBlock {
dns-sd -B _companion-link._tcp | Tee-Object -FilePath 'C:\temp\iPad.txt'
}
Start-Sleep -Seconds 8
Stop-Job $job
Remove-Job $job

Je reprécise en mode commande cela fonctionne.
Merci pour votre aide.

TRANI Adrien

--
TRANI Adrien