IP address and hyperterminal

Hi, newbie to the site and also to the wonderful world of VBA.

I am trying to create a spreadsheet where I can put an ip address into cell A1, at the side of cell A1 I would like a toggle switch to define either port 23 or 3001.
Via a button I would like to open up hyperterminal which will automatically open it with the defined ip address and port number.
The simplest line I have worked out is:
Shell ("C:\Program Files\hyperterminal\hypertrm.exe /t 192.168.11.1:23")
However I would to replace the ipaddress in the field to look at cell A1 and also the port number to look at toggle switch (port 23 or 3001). Hyperterminal should open as the main window.
Thanks in advance. cheers

Hi

No idea if this works but see what happens. It assumes that the IP address is in A1, and the "toggle" for B1 will actually give you the port number (either a drop down selection, or some other restriction). If the toggle is something else (say a tick box) then can you advise exactly what it is.

Please Login or Register  to view this content.

rylo

thanks rylo, I think it is working however Hyperterminal seems to be running in the background and I cannot view it, how can I get the hyperterminal window to be shown as the main window? cheers

Hi

Ok, tab to it and close it down, then try

Please Login or Register  to view this content.

and see if that puts it as the focus.

rylo

Hi,

I have ntried the following but hyperterminal stills seems to be running in the background and I cannot make it appear in front. any help would be appreciated. cheers

Sub Button16_Click()

mystr = "C:\Program Files\hyperterminal\hypertrm.exe /t " & Range("C7").Value & ":" & Range("f7").Value
Shell (mystr)
myvar = Shell(mystr, 3)
End Sub

Originally Posted by snb

Please Login or Register  to view this content.

Hi, I tried this but still nothing. Was I supposed to replace all the code with this or add to it (I tried both and nothing much happened). cheers

Hold on what version of Windows are you useing, might seem silly quesyion but

just noticed the path you had in your code for hypertrm was poitning via a Windows NT directory, I have deleted this from my path and it all works well, thanks for the input.

The first part of my little project is to be able to ping the ip address in cell c7 and dump the results into a cell into excel thereforte it isnt live just a dump of info.
Firstly is there a way to embed a cmd window into excell? If so how could I implement this, it would be nice to have then would have the ability of interogating further.
If this is not possible then I would like to carry on as previous and dump the info into a cell in the worksheet. I got some info from doing a few searches on google on how to do this but I am too much of a novice to understand what it going on in the code. The code is detailed below, at the moment the dump of info is going into cell d7 however I would like it to go into c8. The code below was originally written so many ipaddress (i.e. a list) could be checked one after another however I only need to do one at a time. Any assistance in tweaking the code would be good. Thanks

<Sub RunPing()

i = 7

While (ActiveSheet.Cells(7, 3) <> "")
'//Retrieve IP address
strCompAddress = ActiveSheet.Cells(i, 3)

'//Setup Shell command for Ping
'//NOTE: Make to leave a space after PING.exe
Dim strShellCommand As String
strShellCommand = "C:\Windows\System32\PING.exe " + strCompAddress

'//Create Shell Object in to run Scripts
Set oSh = CreateObject("WScript.Shell")
Set oEx = oSh.exec(strShellCommand)

'//Read output buffer
strBuf = oEx.StdOut.ReadAll
ActiveSheet.Cells(i, 4) = strBuf
i = i + 1
Wend
End Sub/>

yep this is correct M$ Win Xp Pro etc

Just for the other point M$ Se7en does not have hypertermal its been removed, so watch upgrades etc

Frogboy, please try and wrap your codes in code tags you end up with the admins and mods chasing after you, only takes a minute or so to do and makes code a heap easier to read etc - thanks for understanding I mean well