Solved

How to use FileSystem object in vbscript to check C$ share on a server is accesible to verify server is alive...

Posted on 2007-11-19
5
2,502 Views
Last Modified: 2010-08-05
Hi,

In question 22970139 an expert helped me develop the simple vbscript shown below that basically pings each server listed in an external text file, then returns a result for each server, formats all the results into a single string and then passes the string as the subject of a command line emailer (BMail). The script works a treat, but it was mentioned that I could also build in a FileSystem check to check the availability of the C$ share on each server being tested, as extra proof the server is alive.

So how in VBScript would I go about checking whether the C share on a remote server is 'accessible'?
SET objFSO = CreateObject("Scripting.FileSystemObject")
SET objInputfile = objFSO.OpenTextFile("serverhealthcheckserverlist.txt")
Set objShell = WScript.CreateObject( "WScript.Shell" )
resultsStr = ""
 
DO WHILE NOT objInputfile.AtEndOfStream
strComputer = objInputfile.readline
 
SET objExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objExec.StdOut.ReadAll)
IF InStr(strPingResults, "ttl") THEN
	resultsStr = resultsStr & strComputer & "_OK__"
ELSE
	resultsStr = resultsStr & strComputer & "_FAIL__"
END IF
LOOP
 
objShell.Run("bmail -s grj-exch01 -t ITalert@greatrail.com -f alert@greatrail.com -h -a ServerHealth -b " & resultsStr)
'msgbox(resultsStr)
 
Set objShell = Nothing
Set resultsStr = Nothing

Open in new window

0
Comment
Question by:grjitdept
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 9

Accepted Solution

by:
asawatzki earned 500 total points
ID: 20317734
Try This:



SET objFSO = CreateObject("Scripting.FileSystemObject")
SET objInputfile = objFSO.OpenTextFile("serverhealthcheckserverlist.txt")
Set objShell = WScript.CreateObject( "WScript.Shell" )
resultsStr = ""
 
DO WHILE NOT objInputfile.AtEndOfStream
strComputer = objInputfile.readline
 
SET objExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objExec.StdOut.ReadAll)
IF InStr(strPingResults, "ttl") THEN
  On Error Resume Next
   err.number = 0
   set null = objFSO.GetFolder("\\" & strComputer & "\c$")
   set null = nothing
   If err.number = 0 then
	resultsStr = resultsStr & strComputer & "_OK__"
   Else
         resultsStr = resultsStr & strComputer & "_FAIL_Drive_Ping_OK_"
   End If
   err.number = 0
   on error goto 0
ELSE
	resultsStr = resultsStr & strComputer & "_FAIL__"
END IF
LOOP
 
objShell.Run("bmail -s grj-exch01 -t ITalert@greatrail.com -f alert@greatrail.com -h -a ServerHealth -b " & resultsStr)
'msgbox(resultsStr)
 
Set objShell = Nothing
Set resultsStr = Nothing
 

Open in new window

0
 
LVL 1

Author Comment

by:grjitdept
ID: 20318972
Hi,

Thanks for this - looks good - when I run it for active servers though it always returns afail. It seems to me that you check for the value of err.number on line 16, and it's value is previously set on Line 13, but I don't see how this value would ever change. Doesn't Line 14 want to change the value of err.number?
0
 
LVL 1

Author Comment

by:grjitdept
ID: 20319632
OK ignore that last comment - a little more testing revealed I needed a '\' after the c$ as it's checking for a folder - without the \ it returns an error number of 51, hence it isn't 0 and fails the test... I now understand how the error.number works as well.

Thanks for your help!
0
 

Expert Comment

by:mzatorski
ID: 24227474
Has anyone else gotten this to work?  I tried to get it to run but like grjitdept stated, it always fails.  I tried adding the \c$\  to the script but it still comes up as fail.  
0
 
LVL 71

Expert Comment

by:Chris Dent
ID: 24255404

Following this from another post.

Null is a reserved word, it returns "illegal assignment" when used in the context above. Change the "null" variable name to something else and it should spring to life.

Chris
0

Featured Post

[Webinar] Code, Load, and Grow

Managing multiple websites, servers, applications, and security on a daily basis? Join us for a webinar on May 25th to learn how to simplify administration and management of virtual hosts for IT admins, create a secure environment, and deploy code more effectively and frequently.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

740 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question