Discussion :

[micka180]

En réponse à ced600la commande cmd sans option me permet de voir la fenêtre de commande avec l'option /c elle se ferme en moins d'une seconde, je ne peux pas lire ou voir ce qui se passe.

Et effectivement la commande de base était Cscript, mais bon ce qui m'importe s'est l'exécution du script en Wscript ou en Cscript cela n'a pas trop d'importance dans mon cas.

[micka180]

oui ca passe en Cscript ha super je balance le code quelqu'un cherche comme moi.
merci à vous 2 CEd600 et RADPAT pour votre aide et votre patience.


le code qui marche (debout)

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
 
  Const Adresse_IP = "198.111.11.1" 'adresse factice
  Const path_executable = "Cmd /c Cscript c:\fichier.vbs"
  Dim PID
  Dim Processus
 
   Set WshNetwork = WScript.CreateObject("WScript.Network")
   WScript.Echo "Domain = " & WshNetwork.UserDomain
   WScript.Echo "Computer Name = " & WshNetwork.ComputerName
   WScript.Echo "User Name = " & WshNetwork.UserName
 
 
Set objWMIService = GetObject("winmgmts:\\" & Adresse_IP & "\root\cimv2:Win32_Process") 'Adresse_IP est une variable qui contient une adresse IP ;)
 
 
lngRet = objWMIService.Create(path_executable, Null, Null, PID)
Set objWMIService = Nothing   
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(Adresse_IP, "root\CIMV2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Cscript.exe'")
 
WScript.Echo "le process est:" &PID

[ced600]

La commande cmd /k permet de laisser la fenêtre dos ouverte après exécution du script, je t'avais dit d'essayer toutes les solution dans une console dos avant

Bon l'essentiel c'est que cela marche.