L'exécution de la ligne de commande en mode automatique avec VbScript et l'obtention de la sortie?

Vous pouvez rediriger la sortie vers un fichier, puis lire le fichier:

return = WshShell.Run("cmd /c C:\snmpset -c ... > c:\temp\output.txt", 0, true)

Set fso  = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("c:\temp\output.txt", 1)
text = file.ReadAll
file.Close

@Mark Cidade

Merci Marc! Cela a résolu quelques jours de recherche sur le demandais comment dois-je appeler cela de la PHP WshShell. Ainsi, grâce à votre code, j'ai pensé que...

function __exec($tmppath, $cmd)
{
$WshShell = new COM("WScript.Shell");
$tmpf = rand(1000, 9999).".tmp"; // Temp file
$tmpfp = $tmppath.'/'.$tmpf; //Full path to tmp file
$oExec = $WshShell->Run("cmd /c $cmd -c ... > ".$tmpfp, 0, true);
// return $oExec == 0 ? true : false; // Return True False after exec
return $tmpf;
}

C'est ce qui a fonctionné pour moi dans mon cas. N'hésitez pas à utiliser et les modifier selon vos besoins. Vous pouvez toujours ajouter des fonctionnalités au sein de la fonction pour lire automatiquement le fichier tmp, l'affecter à une variable et/ou de retour, puis supprimez le fichier tmp.
Merci encore @Marc!

Dim path As String = GetFolderPath(SpecialFolder.ApplicationData)
Dim filepath As String = path + "\" + "your.bat"
' Create the file if it does not exist. 
If File.Exists(filepath) = False Then
File.Create(filepath)
Else
End If
Dim attributes As FileAttributes
attributes = File.GetAttributes(filepath)
If (attributes And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
' Remove from Readonly the file.
attributes = RemoveAttribute(attributes, FileAttributes.ReadOnly)
File.SetAttributes(filepath, attributes)
Console.WriteLine("The {0} file is no longer RO.", filepath)
Else
End If
If (attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
' Show the file.
attributes = RemoveAttribute(attributes, FileAttributes.Hidden)
File.SetAttributes(filepath, attributes)
Console.WriteLine("The {0} file is no longer Hidden.", filepath)
Else
End If
Dim sr As New StreamReader(filepath)
Dim input As String = sr.ReadToEnd()
sr.Close()
Dim output As String = "@echo off"
Dim output1 As String = vbNewLine + "your 1st cmd code"
Dim output2 As String = vbNewLine + "your 2nd cmd code "
Dim output3 As String = vbNewLine + "exit"
Dim sw As New StreamWriter(filepath)
sw.Write(output)
sw.Write(output1)
sw.Write(output2)
sw.Write(output3)
sw.Close()
If (attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
Else
' Hide the file.
File.SetAttributes(filepath, File.GetAttributes(filepath) Or FileAttributes.Hidden)
Console.WriteLine("The {0} file is now hidden.", filepath)
End If
Dim procInfo As New ProcessStartInfo(path + "\" + "your.bat")
procInfo.WindowStyle = ProcessWindowStyle.Minimized
procInfo.WindowStyle = ProcessWindowStyle.Hidden
procInfo.CreateNoWindow = True
procInfo.FileName = path + "\" + "your.bat"
procInfo.Verb = "runas"
Process.Start(procInfo)

il permet d'économiser votre .le fichier bat pour "Appdata de l'utilisateur actuel" ,si elle n'existe pas et supprimez les attributs
et après cet ensemble de "caché" attributs de fichier après l'écriture de votre code cmd
et de l'exécuter en mode silencieux et de capturer toutes les sorties de l'enregistre dans un fichier
donc, si u veux enregistrer les résultats de cmd pour fichier il suffit d'ajouter votre comme cette

code > C:\Users\Lenovo\Desktop\output.txt

il suffit de remplacer le mot "code" avec votre .fichier bat, du code ou de la commande et après que le répertoire du fichier de sortie
J'ai trouvé un code récemment, après une recherche beaucoup
si u veux exécuter .fichier bat en vb ou c# ou tout simplement
il suffit d'ajouter ce de la même manière dont j'ai écrit