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]

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.

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