Bonjour à tous....
Ce n'est pas du VB.Net mais si ca peux t'inspirer.
Dim WshShell, obj, Command, Result, Temp, FileName, File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")
Result = Ping()
Function Ping()
Command = "%COMSPEC% /C ipconfig.exe > %TEMP%\command.txt"
Result = WshShell.Run(Command,0,True)
Temp = obj.GetSpecialFolder(2).Path
Set File = obj.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
obj.DeleteFile FileName,True
End Function
Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
Set WshNetwork = WScript.CreateObject("WScript.Network")
MsgBox("Domaine= " & WshNetwork.UserDomain & " - Nom ordinateur= " & WshNetwork.ComputerName & " - Nom utilisateur= " & WshNetwork.UserName & Result)
'%COMSPEC% %TEMP%