Approched the problem from a different angle and it worked.
strHostName = Mid(objRS("IP"),1,LEN(objRS("IP"))-3)
strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & strHostName & "'"
Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery( strQuery )
For Each...
Update,
I have changed the code to run as it's own asp page and now I get this error.
WshShell.Exec
error '80070005'
Access is denied
Line 6
<% Response.Buffer = true %>
<%
url = "172.20.36.86"
Set objWShell = CreateObject("WScript.Shell")
Set objCmd =...
Looking for some help with this error from the prograqmming deities on this site. :)
WshShell.Exec
Error '80070002'
The system cannnot find the file specified
Line, 5
I am trying to include this ASP page below to preform a ping on IP addresses and I keep getting the error above.
What's crazy...
Hoping that someone can help me out with this.
Here is what I got.
I have a mapped network Drive called J: and I need to list all of the subfolders and their child subfolders for the J drive and dump that into an array.
I can list all of the subfolders of the root drive but not the child...
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.