Skip to main content

Excel document for pinging list of computers VBA

Here is an excel document I created that will ping a list of nodes in column A and give results in column B. There are much better tools that can be used such as angry ip scanner http://www.angryip.org/w/Home. I just wrote this as an example



Requirements:
Tested with Office 2010

Download:
Download

Comments

  1. This comment has been removed by a blog administrator.

    ReplyDelete
  2. I'm having trouble with false positive results. When I run the script it shows some devices as "On Line", however when I manually ping it, the response is "Reply from XXX.XXX.XXX.XXX: Destination host unreachable.". I'm not sure how to fix this as I'm no good at VBA.

    ReplyDelete
  3. I updated the excel doc can you try the new one. Let me know

    ReplyDelete
  4. This is great! Thank you :)

    ReplyDelete
  5. Sounds like it could be of a bit of use, but the file is no longer available in your dropbox.

    ReplyDelete
  6. The link still seems to work maybe your browser or something else is block it since it is an xlsm

    ReplyDelete
  7. This helped a lot, Now I can do something with this.

    ReplyDelete

Post a Comment

Popular posts from this blog

Powershell - Com+ Application Recycle

Needed a script to recycle a com+ application nightly and this is what i came up with. This script will write each recycle it does to the event log under application. Run locally or via a scheduled task. #Recycle COM+ Application and write to the event log the status # 1.0 Release # Run script locally # Write to the event log ######################################## #Configurable ######################################## #Com+ ApplicationName $ComPlusLikeAppName = "Put the name of Com+ Application here a like statement is used to eval so you can get away with putting part of it" #EventLog to write to. $eventlog = "Application" #Source for eventlog. $source = "RecycleComObject" #Successful Event ID $SEventID = 0 #Error Event ID $EEventID = 666 #Process that COM+ runs under $process = "dllhost.exe". ######################################## #Clear $CurrentMemory = $null $PRocessID = $null $Commandline = $null $GUID = $null $AppID = $null $Messag

Powershell : Certutil Find Expired Certs on CA server

Wrote this to get certificate expiration information for certificates that expired 5 days ago to ones that expire in 90 days. Wrap an invoke-command around this for remote query. $Before = (get-date).adddays(90).ToString("MM/dd/yyyy") $After = (get-date).AddDays(-5).ToString("MM/dd/yyyy") <# https://blogs.technet.microsoft.com/poshchap/2016/01/01/powershell-and-certutil-exe/ We create a date range with $Before, i.e. certificates expiring before this date, and $After, i.e. certificates expiring after this date. These values are converted into something that certutil can understand - $Restrict. This is then used with the certutil -restrict parameter. #> $Restrict = "NotAfter<=$Before,NotAfter>=$After" $Report = @() $cmd = & certutil.exe -view -restrict $Restrict -out "RequesterName,CommonName,Certificate Expiration Date","Certificate Template" $SplitLines = $cmd.Split("`n`r") $Index = 0 foreach ($line in $Sp