Discussion :

[sovan]

Bonjour,


Quelqu'un sait comment déclarer une variable Programmefiles avec (x86) ???

Code :

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

1
2
3
ProgramFi = objShell.ExpandEnvironmentStrings("%CommonProgramFiles(x86)%")
 
IElien = ProgramFi & "\Internet Explorer\iexplore.exe"

Quand j'ai exécuté une commande et bien j'ai un message Erreur avec des parenthèse (x86)

Vous avez comment enlever ça ?

Je vous remercie d'avance !!!

[hackoofr]

une autre façon de voir les choses

Code :

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

1
2
3
4
5
6
7
8
Sub Start(Process)
Dim Ws,Command,Execution
    Set Ws = CreateObject("WScript.Shell")
    Command = "cmd /c Start "&Process&""
    Execution = Ws.Run(Command,0,True)
End Sub
 
Start("iexplore.exe")

J'attends toujours mes +1

[sovan]

Merci hackoofr

Je crois que je me suis mal exprimé dsl
Je n'utilise pas seulement que Iexplorer !

En fait :

Voici le scripte

il ya une erreur sur le chemin programfile(x86)

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
<INPUT TYPE=""button"" STYLE=""HEIGHT:25;WIDTH:165"" NAME=""LogiBor"" VALUE=""Appliquer"" onClick=""RunAppl(1)"">
				dim AdmPsec(1)
				AdmPsec(0) = "psexec.exe -u admin -p pass"
				AdmPsec(1) = "psexec.exe -u administrateur -p password"
				Dim IElien(1) 
				IElien(0) = "C:\Program Files\Internet Explorer\iexplore.exe"
				IElien(1) = "C:\Program Files(x86)\Internet Explorer\iexplore.exe"
				Sub RunAppl(var)
				Set WS = CreateObject("WScript.shell")
				For I = 0 to 1
				Select Case var
				Case 1 WS.run " AdmPsec(I) , IElien(I) & " http://Serveur1/Current/ChannelManager?start"
				End select
				next
				End Sub

Je ne sais pas comment t'expliquer ça c'est la parenthèse (x86) !!

[hackoofr]

Code :

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

1
2
3
4
5
6
7
MsgBox "Le chemin de Program Files est :" & VBCRLF & CheminProgramFiles,64,"Chemin de Program Files"
 
Function CheminProgramFiles()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%programFiles%")
End Function

[sovan]

Mais sur le lecteur C: il y a deux dossiers ( c:\programme files ) et (c:\Programme files(x86))

Ton scripte va pointer sur le (c:\programme files ) non ?

[hackoofr]

Mais sur le lecteur C: il y a deux dossiers ( c:\programme files ) et (c:\Programme files(x86))
Ton scripte va pointer sur le (c:\programme files ) non ?

Aucune idée c'est toi qui teste et tu me dis ça retourne quoi
ton système est windows 7 (64 bits)

[sovan]

Oui c'est moi qui teste sur Windows 7 (64bit)!!

C'est chelou avec (X86) si j’enlève les parenthèse, il dit que le dossiers n'existe pas !!

[hackoofr]

Puisque je n'ai pas de dossier nommé : C:\Program Files(x86), alors je l'ai crée, et ça fonctionne chez moi 5/5
Donc, c'est a vous de me dire si marche chez vous ou non

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Ws,x86
Set Ws = CreateObject("Wscript.Shell")
x86 = "C:\Program Files(x86)\Changer_Fond_Ecran.hta"
ws.run DblQuote(x86)
'*****************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(strIn)
	DblQuote = Chr(34) & strIn & Chr(34)
End Function
'*****************************************************************

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim CheminProgramFiles
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
 
On Error Resume Next
CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
If Err Then
        CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%programFiles%")
End If
MsgBox CheminProgramFiles, vbInformation
Set WshShell = Nothing