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...
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...
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.
Hi!
with this script, i know the user corrently logged in my computer:
strComputer = inputbox("Dime el PC y te dire el usuario:")
If strComputer = "" then WScript.Quit
set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "")
set colOS = objWMI.ExecQuery("Select...
Hi!
I have a file Excel with a lot of IP's in A1 to A20.
I would like to put a code into the B2 to B20 to know the conexion is OK or no OK.
IT's possible to make some ping's???
For example
A B
1 PC_1 OK
2 PC_2 NO OK
3 PC_3 OK
thank's!
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.