get the return value executed in dos command

[xxoulmate]

how to execute a command in dos in vb 6.,

example:

ping a computer on dos
and then
print the return value on a listbox.,

tnx a lot.

[Killer42]

Probably depends on what version of VB you're using. But you should be able to use Shell or ShellExecute to run the command, and use a batch file to determine the return code and write it to a file. Then read that file when you get back to your VB code.

[jamesd0142]

Killer has a great idea.

I have been playing about with batch files lately, try:

REM Pinging...
 
Ping [ipaddress] > Log.txt

The results will then be output to Log.txt in the directory where your batch file is located.

Now open this file in VB and process the data to find what you require.
--------------------------------------------------------------
<do you know how to create batch files?>
Open Notepad > enter text above > save as > extension .bat not .txt

[xxoulmate]

How to send the default value of ipaddress on the bat., file

Do I need to edit the content of .bat.,
example:
open the batch file in vb then
changes its content then save
and run the batch file.,

Thanks.

[shrimant]

Below is a working code which would run from VB or VBA on a Windows machine to execute any DOS command and display the result in a message box. I have used a Ping example, but any other command should work. Batch files are almost obsolete, although the DOS gurus still do a lot with it. The Windows scripting can do a lot more than the batch files.

    ExecuteDos "Ping sunrisetelecom.com"
 
Function ExecuteDos(Comm As String)
    Set objShell = CreateObject("WScript.Shell")
    Set objExecObject = objShell.Exec("%comspec% /c " & Comm)
    MsgBox objExecObject.StdOut.ReadAll()
End Function

[xxoulmate]

-----------------------------------------------
i got a runtime error when i run the script.,
runtime err: 438
"object doesn't support this property or method"

is there any reference i must include.,
i am using OS 98

tnx

[Killer42]

Which line produces the error?

[xxoulmate]

Which line produces the error?

the error points to line 5.,

[shrimant]

the error points to line 5.,

Sorry xxoulmate...I don't even have a 98 installation around to re-produce the error, I have XP and 2003 servers around me.

Try Putting a set statement in your AutoExec.bat file something like below make sure the path of the Command.com file is correct:
Set COMSPEC=C:\WINDOWS\COMMAND.COM

[Killer42]

Hm... so from the sound of it, the WScript.Shell object doesn't support the Exec method. Perhaps you have an old version of the scripting runtime. Have you tried Windows Update?

[sparklesasi]

Hi, the above code is working fine. But before executing the command, command prompt is opening for a second and after that only we'r getting the values. Instead of that how to hide the command prompt that is showing for one sec/ upto the result.

Cheers,
Sasi A