Требутеся создать файл, который бы Пинговал компы в сети. Винда стоит ХР.
В Аксе есть поле в котором виден айпишник.
При нажатии на кнопку должен айпишник из поля браться как переменная и соответсвенно для айпишника выполняться пинг из поля...... Помогите это сделать

Yanis> strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02"
> aMachines = split(strMachines, ";")

> For Each machine in aMachines

Ну уж если речь о программе в Аксе, то выбирать имена машин из таблички откуда надо, и цикл по полученному рекордсету...
Posted via ActualForum NNTP Server 1.3

Учел:) спасибо,
Вот код
Dim db As Database
Dim rs As Recordset
Dim stAppName As String
Dim k As Variant

Set db = OpenDatabase("IP_addres.mdb", , , Password = 123)
Set rs = db.OpenRecordset("IP", dbOpenDynaset)
rs.MoveFirst

While Not (rs.EOF)
ap.Value = rs.Fields("IP").Value
k = ap.Value
stAppName = "cmd /c ping -n 1 " & k & ">>C:\1.txt"
Call Shell(stAppName, 0)

rs.MoveNext
Wend
End Sub

ТОлько косяк в следующем
Он не пишет все в файл, так как не ждет завершения отправленной команды. Какой нибудь параметр есть, чтобы модифицировать строку "cmd /c ping -n 1 " & k & ">>C:\1.txt" - это фактически команда пинга, чтобы прога делала паузу и ждала бы пока отработает предыдущий пинг?