Recent content by guif

and it's possible to generate some buttons (start and stop) automatly and use the same funcion for the buttons?

ok, i explain now and please, see this example: http://www.guif.net/ping.jpg If i click the start, the script is make a infinite ping and put the colour green. If the conexion is broke, the color put in red. If I like, i start another conexion or stoped.

oh! the problem is this line: Set xlSheet = xlBook.Sheets("ARMARIS") I replace the name to Set xlSheet = xlBook.Sheets("TOTS") but... I think that i don't explain correctly. I would like to put some buttons to learn the rows E3 to E238 If I click to BUTTON_START the code is make a ping...

I make this but it doesn't run... I put the file in http://www.guif.net/armaris.zip because you can help me.

where I put this code? into a VBA in excel or in a VBS? Can you send me your file to see this buttons???

i would like that my script says the user connect in this moment in a PC. My script answer what's the PC with an inputbox

but your code is not running...

i don't understand....

in my code, where can I change it?

I put this code into the editor of VBasic in Excel. The code is not running... why?

WOW!!! I make a VBscript that it read an excel. It put the color green or red for the diferent case. This is the code: strFitxer="D:\armaris\armaris.xls" Dim IP Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.open strFitxer...

i don't say to where put the code...

ok. i go to see (another time) the links. but.. i have this code: set colItems = objWMIService.ExecQuery ("Select * from Win32_PingStatus " & "Where Address = '" & Cell & "'") for each objItem in colItems if objItem.StatusCode = 0 Then objWorksheet.Cells(Cell.Row, Cell.Column 6).font.color =...

oh sorry! my english is very bad. See this example: www.guif.net/excel.png This is my Excel. In ESTAT i would like to put the macro. If the IP is ok the colum of ESTAT is green. If the IP is not OK the colum of ESTAT is red.

sorry! i would like to put the result in the colum B2 (for example)