Execution script powershell depuis windev

Version imprimable

Bonjour,

Je génère un script powershell depuis windev mais il refuse de s'executer.

J'ai bien passé l’exécution des scripts en unrestricted, tenté de lancer l'exe windev en mode admin et le script marche si je le lance depuis l'explorateur windows.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Procedure executeUpdateLocationPrinter(nomServeurImprimante est une chaîne, nomImprimante est une chaîne, nouvelEmplacement est une chaîne) idFic est un entier cheminFichierPowershell est une chaîne maCommandePowershell est une chaîne = [ Get-ExecutionPolicy $printer = Get-WmiObject win32_printer -ComputerName %1 | Where-Object {$_.name -eq "%2"} $printer.Location = "%3" $printer.put() Read-Host "Press ENTER" ] QUAND EXCEPTION DANS maCommandePowershell = ChaîneConstruit(maCommandePowershell,nomServeurImprimante,nomImprimante,nouvelEmplacement) cheminFichierPowershell = fRepTemp() + [fSep] + "PS_changePrinterLocation.ps1" idFic = fCrée(cheminFichierPowershell) SI idFic <> -1 ALORS fEcrit(idFic,maCommandePowershell) fFerme(idFic) LanceAppli("powershell "+cheminFichierPowershell) fSupprime(cheminFichierPowershell) FIN FAIRE ExceptionPropage() FIN
Si quelqu'un a une idée de comment l’exécuter, ou de comment le traduire en VBScript je suis fortement prenneur.

Merci d'avance,

Bon dev

11/10/2016, 17h25
tbc92

1. Plutôt que fcree(), fecrit() , fferme(), tu peux passer par fsauveTexte() , ce sera plus compact. Mais à priori, cette partie là de ton code est correcte.

2. J'utilise plutôt DDELance(...) ; Je ne connais pas la différence entre DDELance() et LanceAppli(), mais je n'ai pas de souci particulier avec DDELance().
Ou sinon , LanceAppliAssociée( repertoire + "PS_changePrinterLocation.PS1" ) , c'est très bien aussi. Ca revient très exactement au double-clic sur un fichier dans l'explorateur Windows.
12/10/2016, 17h12
Djillian

Merci pour le fSauveTexte, j'avais oublié la nom de la fonction donc je l'avais fais a l'ancienne.

J'ai testé le lanceAppliAssocié et j'ai le même problème. Il me dis que j'ai pas le droit d’exécuter le script alors que mon système est paramétrés en unrestricted et que si je clique sur le .ps1 ça marche. Pareil avec DDELance, que j'avais déjà tester. Pareil en mettant l'appel dans un .bat. Je désespère ...
12/10/2016, 19h16
tbc92

???
Si tu crées un .BAT , si tu lances ce .BAT en mode console ou en double-cliquant, ça marche, et si tu lances ce .BAT par DDELance() dans Windev, ça ne marche pas, c'est ça que je comprend ?
Ca me paraît bizarre.
As tu essayé sur un autre ordi ?
Ceci étant, je ne sus vraiment pas doué dans toutes ces questions d'administration. Je ne vais pas pouvoir t'aider plus.

Mais si par hasard des pointures passent par là, ils ne te répondront pas, parce que tu as oublié 2 info qui me paraissent essentielles : Quelle version Windows tu as, et quelle version de Windev.

1 pièce(s) jointe(s)

hello,
attention à la protection d'exécution de scripts powershell.
Avec le code suivant sous windows 7 windev 16 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
cheminFichierPowershell est une chaîne
maCommandePowershell est une chaîne = [
Get-ExecutionPolicy
Read-Host "Press ENTER"
$printer = Get-WmiObject win32_printer -ComputerName %1 | Where-Object {$_.name -eq "%2"}
$printer.Location = "%3"
$printer.put()
Read-Host "Press ENTER"
]
 
QUAND EXCEPTION DANS	
	cheminFichierPowershell = "f:\temp\"  + "PS_changePrinterLocation.ps1"
	maCommandePowershell = ChaîneConstruit(maCommandePowershell,"localhost","Fax","NewLocation")
	SI fSauveTexte(cheminFichierPowershell,maCommandePowershell) ALORS
		SI LanceAppli("C:\Windows\SysWOW64\WindowsPowerShell\v1.0\powershell.exe  -noexit  -command " + cheminFichierPowershell,exeActif,exeBloquant) = Faux ALORS
			Erreur(ErreurInfo())			
		FIN
	//	fSupprime(cheminFichierPowershell)
	FIN
 
FAIRE
	ExceptionPropage()
FIN

j'obtiens la fenêtre du haut , en double cliquant sur le fichier script l'image du bas :
Pièce jointe 222524

Ami calmant, J.P

13/10/2016, 10h41
Djillian

Citation:

Envoyé par tbc92

???
Si tu crées un .BAT , si tu lances ce .BAT en mode console ou en double-cliquant, ça marche, et si tu lances ce .BAT par DDELance() dans Windev, ça ne marche pas, c'est ça que je comprend ?
Ca me paraît bizarre.
As tu essayé sur un autre ordi ?
Ceci étant, je ne sus vraiment pas doué dans toutes ces questions d'administration. Je ne vais pas pouvoir t'aider plus.

Mais si par hasard des pointures passent par là, ils ne te répondront pas, parce que tu as oublié 2 info qui me paraissent essentielles : Quelle version Windows tu as, et quelle version de Windev.

Effectivement c'est exactement ça. Le bat passe en double cliquant dessus mais pas avec DDELance.

J'utilise Windev 21 et mon pc est en Windows 7 64 Bits.

Merci pour ton aide en tout cas, je vais essayer sur une autre machine.

Citation:
Envoyé par jurassic pork
hello,
attention à la protection d'exécution de scripts powershell.
Avec le code suivant sous windows 7 windev 16 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 cheminFichierPowershell est une chaîne maCommandePowershell est une chaîne = [ Get-ExecutionPolicy Read-Host "Press ENTER" $printer = Get-WmiObject win32_printer -ComputerName %1 | Where-Object {$_.name -eq "%2"} $printer.Location = "%3" $printer.put() Read-Host "Press ENTER" ] QUAND EXCEPTION DANS cheminFichierPowershell = "f:\temp\" + "PS_changePrinterLocation.ps1" maCommandePowershell = ChaîneConstruit(maCommandePowershell,"localhost","Fax","NewLocation") SI fSauveTexte(cheminFichierPowershell,maCommandePowershell) ALORS SI LanceAppli("C:\Windows\SysWOW64\WindowsPowerShell\v1.0\powershell.exe -noexit -command " + cheminFichierPowershell,exeActif,exeBloquant) = Faux ALORS Erreur(ErreurInfo()) FIN // fSupprime(cheminFichierPowershell) FIN FAIRE ExceptionPropage() FIN
j'obtiens la fenêtre du haut , en double cliquant sur le fichier script l'image du bas :
Pièce jointe 222524

Ami calmant, J.P
Justement c'est exactement mon problème. Et même en passant la politique d’exécution des scripts à unrestricted, il ne veux pas lancer le script depuis mon programme. Peut être qu'on ne peut tout simplement pas lancer de powershell depuis un exécutable, ou alors il faudrait réussir à signer le script.

Merci beaucoup pour vos réponses.

1 pièce(s) jointe(s)

hello,
bon j'ai trouvé une ruse pour éviter ce problème de script signé. On met toutes les commandes en une seule ligne dans une chaîne en séparant les commandes par un point virgule :P .
voici donc la nouvelle procédure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 PROCEDURE ExecuteUpdateLocationPrinter(nomServeurImprimante est une chaîne, nomImprimante est une chaîne, nouvelEmplacement est une chaîne) maCommandePowershell est une chaîne = "$printer = Get-WmiObject win32_printer -ComputerName " + nomServeurImprimante + "| Where-Object {$_.name -eq '" + nomImprimante + "'};" + "$printer.Location = '" + nouvelEmplacement + "';" + "$printer.put()" Trace(maCommandePowershell) QUAND EXCEPTION DANS SI LanceAppli("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -command " + maCommandePowershell) = Faux ALORS Erreur(ErreurInfo()) FIN FAIRE ExceptionPropage() FIN
Attention j'ai remplacé les guillemets dans les commandes par des apostrophes.
Voici un exemple d'utilisation pour modifier l'emplacement du Fax de son ordinateur :

Code:

ExecuteUpdateLocationPrinter("localhost","Fax","EmplacementNouveau")

et voici le résultat :
Pièce jointe 222603

Ami calmant, J.P

Bonjour,
Un petit code en WinDev issu de la version 7

Pièce jointe 222611

Code d'initialisation de la fenêtre

Code:

1
2
3
// Exemple
COMMANDE="dir c:\"  // le champ Commande console à exécuter :
ExécuteTraitement(OK,trtClic) // le bouton d'exécution

Code du bouton OK

Code:

1
2
3
4
5
// RAZ
RESULTAT=""; Multitâche()
 
// Exécution de la commande DOS et récupération du résultat
RESULTAT=LanceCommandeConsole(COMMANDE)

Procédure LanceCommandeConsole

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
FONCTION LanceCommandeConsole(sCommande)
 
// Appel de commande DOS ou de programme en mode console
// et récupération du résultat
 
Sablier(Vrai)
 
// Suppression du fichier résultat
fSupprime("Resultat.txt")
Multitâche()
 
// Création du .BAT
IDFic est un entier = fOuvre("test.bat",foCréation+foAjout)
fEcrit(IDFic,AnsiVersOem(sCommande)+" >Resultat.txt") // le compte rendu sera dirigé vers le fichier  Resultat.txt
fFerme(IDFic)
Multitâche()
 
// Exécution du .BAT
sRes est une chaîne
SI Lance("test.bat",Faux,Vrai) ALORS
	// Récupération du résultat
	Multitâche()
	IDFic = fOuvre("Resultat.txt",foLecture)
	SI PAS IDFic=-1 ALORS
		sRes=OemVersAnsi(fLit(IDFic,fTaille("Resultat.txt")))
		fFerme(IDFic)
	FIN
FIN
 
Sablier(Faux)
 
RENVOYER sRes

17/10/2016, 13h42
Djillian

Merci beaucoup pour ta réponse @JurassicPork, je m'en vais tester ça de ce pas!
17/10/2016, 13h49
Djillian

ça fonctionne bien merci beaucoup pour cette astuce =)