Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Function Ping(Target) Dim results On Error Resume Next Set shell = CreateObject("WScript.Shell") ' Send 1 echo request, waiting 2 seconds for result Set exec = shell.Exec("ping -n 1 -w 2000 " & Target) results = LCase(exec.StdOut.ReadAll) Ping = (InStr(results, "reply from") > 0) End Function If Ping("192.168.1.100") Then ' Do something to access the resource End If
|set a number accordingly to the name that it has on Column "E"||16||35|
|VB script Microsoft Word Tables. Removing all markup from numeric value in a cell||6||30|
|VBA change replacement list from code to excel sheet list||2||41|
|how to add fields in script||20||44|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!