Discussion :

[Djillian]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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 ...

[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.

[jurassic pork]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :


Ami calmant, J.P

[Djillian]

???
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.

[Djillian]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :


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.

[jurassic pork]

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 .
voici donc la nouvelle procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et voici le résultat :


Ami calmant, J.P

[tunizar]

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

Pièce jointe 222611

Code d'initialisation de la fenêtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Djillian]

Merci beaucoup pour ta réponse @JurassicPork, je m'en vais tester ça de ce pas!

[Djillian]

ça fonctionne bien merci beaucoup pour cette astuce =)