Hi All,

I need the script to check the C$ share status and if not have to mapped for the HP CAE installation. Can anyone help me out.

0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Answers

1

Try this and tweak as necessary:

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  
Answered 08/21/2013 by: mattski
Second Degree Green Belt

Please log in to comment
Answer this question or Comment on this question for clarity
Admin Script Editor
Admin Script Editor is an integrated scripting environment available free here at ITNinja

Share