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,469 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
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 70

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Welcome to part one of a multi-part tutorial series, VBScript for Windows System Administrators.  The goal of this series is to teach non-programmers how to write useful VBS code to automate their environment, and perform tasks faster, and in a more…
This is an addendum to the following article: Acitve Directory based Outlook Signature (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24950055.html) The script is fine, and works in normal client-server domains…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

911 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

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now