1. You are viewing our forum as a guest. For full access please Register. WindowsBBS.com is completely free, paid for by advertisers and donations.

Alert monitoring software

Discussion in 'Windows Server System' started by rakem, 2005/11/22.

  1. 2005/11/22
    rakem

    rakem Inactive Thread Starter

    Joined:
    2005/08/22
    Messages:
    31
    Likes Received:
    0
    anyone know of some software that can monitor servers for things like low disk space? Then if the disk spaces reaches a set level an email would be automatically generated and sent to IT which alerts then that disk space is low??
     
  2. 2005/11/24
    ReggieB

    ReggieB Inactive Alumni

    Joined:
    2004/05/12
    Messages:
    2,786
    Likes Received:
    2
    I use the following script on my server to check folder sizes and send me an e-mail report

    Code:
    Option Explicit
    ' System to check size of folders
    Function InMegs(ObjectSize)
    	'Change a number into the Mb equivalent
    	Dim strTemp		'temporary holder of output string
    	strTemp = Cstr(Round(ObjectSize/(1024*1024),1)) & " Mb "
    	inMegs = strTemp
    End Function
    
    Function SendByEmail(strBody, strSubject)
    	'Send an e-mail with the content strBody and the subject strSubject
    	Dim objNewMail
    	Dim Flds
    	Dim strRecipient 'The To: e-mail address
    	Set objNewMail = CreateObject( "CDO.Message ")
    	Set Flds = objNewMail.Fields
    	
    	strRecipient =  "postbox@domain.com "
    		
    	With Flds
    	  .Item( "urn:schemas:mailheader:to ")     = strRecipient
    	  .Item( "urn:schemas:mailheader:from ")   =  "postbox@domain.com "
    	  .Item( "urn:schemas:mailheader:subject ")= strSubject
    	  .Update
    	End With
    
    	With objNewMail
    	  .TextBody = strBody
    	  .Send
    	End With
    		
    	Set Flds = Nothing
    	Set objNewMail = Nothing
    	
    End function
    
    Dim objFileSystem		'File System Object
    Dim objParentFolder	'Parent folder object
    Dim strParentFolderPath	'Path to parent folder
    Dim strReport		'The sting to output as a report
    Dim objFolder		'A folder object
    Dim objSubFolder		'sub folder object
    Dim objSubSubFolder	'A sub folder of a subfolder
    
    ' Create the File System Object
    Set objFileSystem = CreateObject( "Scripting.FileSystemObject ")
    
    Function CheckSubFolders(strParentFolderPath)
    	Set objParentFolder = objFileSystem.GetFolder(strParentFolderPath)
    
    	'Create initial report header
    	strReport = strReport &  "The folder " & strParentFolderPath & " is this big: " & inMegs(objParentFolder.size) & vbCr
    	strReport = strReport &  "and contains the following folders: " & vbCr
    
    	'Step through each subfolder outputting name and size
    	For each objFolder in objParentFolder.subfolders
    		strReport = strReport & inMegs(objFolder.size) & vbTab & objFolder.name & vbCr
    	Next
    	strReport = strReport & vbCr & vbCr
    	
    	Set objParentFolder = Nothing
    
    End function
    
    'Main process
    
    CheckSubFolders  "C:\ "
    
    
    SendByEmail strReport,  "'Server folder details "
    
    Set objFileSystem = Nothing
    You'll need to change the e-mail address "postbox@domain.com" to valid addresses.

    Scanning through all of your hard drive takes a while, so I use a more restrictive version the CheckSubFolders "C:\" to just give details of the company shared folders.

    I store the e-mails and that gives me a record of how usage of the server is developing with time.
     
    Last edited: 2005/11/24

  3. to hide this advert.

  4. 2005/11/25
    windux

    windux Inactive

    Joined:
    2005/06/12
    Messages:
    181
    Likes Received:
    0

    You can simply use the event monitoring from windows!
    Open the Performance console and add the alerts you want!
    :D
     
  5. 2005/11/27
    rakem

    rakem Inactive Thread Starter

    Joined:
    2005/08/22
    Messages:
    31
    Likes Received:
    0
    WSUS problems

    I have just download WSUS and am testing it to see if we will install it on our network and so far the answe is a big NO!

    I cannot get my computer to be displayed in the group i have created. I have installed all the required software components e.g. BITS 2.0, .net and IIS. I have created a OU and put my user name in that OU and have configured a group policy to enable client side targeting, I have set the address for the WSUS server and configured all the other options in the goup policy that I want. (I know that the GP is working because i have disabled things like run and help from the start menu, so the GP is being applied ok)

    The WSUS server is set to use the group policy settings, I have waited over an hour for the cookies to expire and have also forced a group policy update using the gpupdate /force command. The only thing i can see that might be causing this is the SQL server service on the task bar of the WSUS server is not running, and when i open it up there is nothing to select in the services section.

    WSUS is running on windows 2003 standard with all the current updates installed.

    can someone please help me on this as i would really like to use this program.

    thanks.
     
  6. 2005/11/30
    windux

    windux Inactive

    Joined:
    2005/06/12
    Messages:
    181
    Likes Received:
    0
    Download this guide and follow the steps.

    HERE
     

Share This Page

  1. 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.