wugSpace: The WhatsUp Gold Community

Script Library

This is a public Media Gallery publicRSS

Active Monitor

WMI and AD Inventory for Windows Devices

Active Monitor posted 6/26/09 by Bill Meyers, last edited 7/10/09 by Will Sansbury

6254 Views, 10 Comments

Name:

WMI and AD Inventory for Windows Devices

Description:

I grabbed this code from forums.ipswitch.com (http://forums.ipswitch.com/Topic37592-14-1.aspx?Highlight=inventory) and customized it a bit more to obtain more info through WMI and AD. It could probably use a little expert cleaning but it works great for us. I set it to run everytime a monitor goes down. We configure our actions to alert after 5 mins of down time so it has plenty of time to run...it only takes a few seconds... When we receive the email we can then see all of the inventory results in the body of the message, which helps out a great deal. It's good for low disk space alerts. It keeps you from having to log into the server to see how much free space is actually left. Also, if you want to inventory a device manually, just run a Test on thsi monitor from the Active Monitor library on any Windows device and it will populate the attribute fields.

Language:

VB Script

Code:

' ********************************************************************
' * Name:  Device Inentory
' * Desc:  Retrieves Device Details from Windows systems & AD
' ********************************************************************

' *** Sending log message to the WhatsUp Event Viewer ***
Context.LogMessage "Checking Address=" & Context.GetProperty("Address")

' *** Set the result code of the check (0=Success, 1=Error) ***
Context.SetResult 0, "No error"

Const ConvertKB2GB = 1073741824
Const ConvertKB2MB = 1048576

' *** Prevent simple errors from stopping the script from processing ***
On Error Resume Next

' *** Attempt to connect to the WhatsUp Database ***
Set objDB = Context.GetDB
Set objRS = CreateObject("ADODB.Recordset")

' *** Validate the Database Connection ***
If objDB Is Nothing Then
  Context.SetResult 1, "Problem creating the DB object"
End If

' *** Get device information ***
nDeviceID = Context.GetProperty("DeviceID")
sAddress = Context.GetProperty("Address")

Context.LogMessage "DeviceID=" & nDeviceID
Context.LogMessage "IP Address=" & sAddress

' *** Get the impersonation credentials ***
sUser = Context.GetProperty("CredWindows:DomainAndUserid")
sPassword = Context.GetProperty("CredWindows:Password")

'Context.LogMessage "User=" & sUser
'Context.LogMessage "Password=" & sPassword

' ***'Set Default Values***
sLocation = ""
sOwner = ""
sLocation = ""
sDescription = ""
sOperatingSystem = ""
sManufacturer = ""
sModel = ""
sDomain = ""
sSerial = ""
sDisk = ""
sError = "None"

' *** Connect to WMI ***
Set objLocator = CreateObject( "WbemScripting.SWbemLocator" )
Set objWMIService = objLocator.ConnectServer ( sAddress, "root/cimv2", sUser , sPassword )
objWMIService.Security_.impersonationlevel = 3

' *** Error handler ***
' If device is unreachable, don't wipe the current values
' just update the Errors and Last Inventory attributes

If Err.Number <> 0 Then
    sError = Err.Description
Context.LogMessage "Error=" & sError
    Err.Clear

    ' *Last Inventory Attempt*
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='LastUpdate' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) > 0  Then
      sSQL = "UPDATE DeviceAttribute SET sValue='" & now & "' WHERE sName='LastUpdate' AND nDeviceID = " & nDeviceID
      Set objResult = objDB.Execute(sSQL)
    Else
     ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'LastUpdate','" & now & "')"
      Set objResult = objDB.Execute(sSQL)
    End If

    ' * Errors *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Errors' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) > 0  Then
      sSQL = "UPDATE DeviceAttribute SET sValue='" & sError & "' WHERE sName='Errors' AND nDeviceID = " & nDeviceID
      Set objResult = objDB.Execute(sSQL)
    Else
     ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Errors','" & sError & "')"
      Set objResult = objDB.Execute(sSQL)
    End If

    ' * Operating System *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='OperatingSystem' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'OperatingSystem','" & sOperatingSystem & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Manufacturer *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Manufacturer' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Manufacturer','" & sManufacturer & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Model *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Model' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Model','" & sModel & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Domain *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Domain' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Domain','" & sDomain & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Serial Number *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='SerialNumber' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'SerialNumber','" & sSerial & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Disk Space *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='DiskSpace' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'DiskSpace','" & sDisk & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Location *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Location' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Location','" & sLocation & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Owner *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Owner' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Owner','" & sOwner & "')"
      Set objResult = objDB.Execute(sSQL)
    End If
    
    ' * Description *
    sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Description' AND nDeviceID=" & nDeviceID
    Set objRS = objDB.Execute(sSQL)
    If objRS(0) = 0  Then
     ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
      sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Description','" & sDescription & "')"
      Set objResult = objDB.Execute(sSQL)
    End If

Else

' *** OS (SP) ***
'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sAddress & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_OperatingSystem")
   For Each objOperatingSystem in colSettings
    sOperatingSystem = mid(objOperatingSystem.Name,1,(InStr(objOperatingSystem.Name,"|")-1)) & " (Service Pack " & objOperatingSystem.ServicePackMajorVersion & ")"
   Next

Context.LogMessage "OS=" & sOperatingSystem

' *** Manufacturer & Model ***
Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem")
   For Each objComputer in colSettings
    sHostName = objComputer.Name
    sManufacturer = objComputer.Manufacturer
    sModel = objComputer.Model
    sDomain = LCase(objComputer.Domain)
   Next

Context.LogMessage "HostName=" & sHostName
Context.LogMessage "Manufacturer=" & sManufacturer
Context.LogMessage "Model=" & sModel
Context.LogMessage "Domain=" & sDomain

' *** Serial ***
Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_BIOS")
   For Each objItem in colItems
    sSerial = objItem.SerialNumber
   Next

Context.LogMessage "Serial=" & sSerial

Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk WHERE Description = 'Local Fixed Disk'")
   For each objDisk in colDisks
    sTotal = Round(objDisk.Size / ConvertKB2GB, 2)
    sFree = Round(objDisk.FreeSpace / ConvertKB2GB, 2)
    sDiskID = objDisk.DeviceID
   sDisk = sDisk & sDiskID & " " & sFree & " GB Free of " & sTotal & " GB | "
   Next

Context.LogMessage "Disks=" & sDisk

' *** Clean up memory used for WMI query ***
'Set objRegistry = Nothing
'Set objLocator = Nothing
Set objWMIService = Nothing
Set colSettings = Nothing
Set colItems = Nothing
Set colDisks = Nothing

' *******************
' *** Connect to AD ***
' *******************
Const ADS_SCOPE_SUBTREE = 2


'*****************************************
' NOTE: I had to create this case statement
' in order to get the ad stuff to run in 
' other domains....
'*****************************************

Select case sDomain
 case "domain1"
   strSB = "domain1"
 case "domain2"
   strSB = "domain2"
 case "domain3"
   strSB = "domain3"
 case "domain4"
   strSB = "domain4"
 case else
   strSB = sDomain
end select

Context.LogMessage "Searchbase = " & strSB

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    "SELECT Description, Location, ManagedBy, MemberOf FROM " & _
        "'LDAP://" & strSB & "' where objectClass='computer'" & " and name = '" & sHostName & "'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF

' *** Location ***
    sLocation = objRecordSet.Fields("Location").Value

Context.LogMessage "Location=" & sLocation

' *** Owner ***
    sOwner = objRecordSet.Fields("ManagedBy").Value
    sOwner = mid(sOwner,4,(InStr(sOwner,",")-4))

Context.LogMessage "Owner=" & sOwner

' *** Description ***
    If Not IsNull(objRecordSet.Fields("Description").Value) Then
        For Each strDescription in objRecordSet.Fields("Description").Value
            sDescription = strDescription
        Next
    End If
    objRecordSet.MoveNext
Loop

Context.LogMessage "Description=" & sDescription


' *************************
' *** Update the Database  ***
' *************************

' *Last Inventory *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='LastUpdate' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & now & "' WHERE sName='LastUpdate' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'LastUpdate','" & now & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Errors *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Errors' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sError & "' WHERE sName='Errors' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Errors','" & sError & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Operating System *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='OperatingSystem' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sOperatingSystem & "' WHERE sName='OperatingSystem' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'OperatingSystem','" & sOperatingSystem & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Manufacturer *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Manufacturer' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sManufacturer & "' WHERE sName='Manufacturer' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Manufacturer','" & sManufacturer & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Model *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Model' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sModel & "' WHERE sName='Model' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Model','" & sModel & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Domain *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Domain' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sDomain & "' WHERE sName='Domain' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Domain','" & sDomain & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Serial Number *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='SerialNumber' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sSerial & "' WHERE sName='SerialNumber' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'SerialNumber','" & sSerial & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Disk Space *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='DiskSpace' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sDisk & "' WHERE sName='DiskSpace' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'DiskSpace','" & sDisk & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Location *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Location' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sLocation & "' WHERE sName='Location' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Location','" & sLocation & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Owner *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Owner' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sOwner & "' WHERE sName='Owner' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes do not already exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Owner','" & sOwner & "')"
  Set objResult = objDB.Execute(sSQL)
End If

' * Description *
sSQL = "SELECT COUNT(sValue) FROM DeviceAttribute WHERE sName='Description' AND nDeviceID=" & nDeviceID
Set objRS = objDB.Execute(sSQL)
If objRS(0) > 0  Then
  sSQL = "UPDATE DeviceAttribute SET sValue='" & sDescription & "' WHERE sName='Description' AND nDeviceID = " & nDeviceID
  Set objResult = objDB.Execute(sSQL)
Else
 ' Context.SetResult 1, "Selected Attributes does not exist, attempting to create."
  sSQL = "INSERT INTO DeviceAttribute (nDeviceID, sName, sValue) VALUES (" & nDeviceID & ", 'Description','" & sDescription & "')"
  Set objResult = objDB.Execute(sSQL)
End If

Context.SetResult 0
' *** Clean up memory used for Database querying ***
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing

End If 'Error Handler

Disclaimer:

All scripts found on wugSpace are provided as-is with no warranty or guarantee. These scripts are not supported by Ipswitch Technical Support. If you have a problem with this script, please post is in the comments.

Average Rating: 4 ratings
|
Sign in to rate this

Comments

posted 6/26/09 by Stanley Johnson
I love the idea behind this script. I hadn't previously considered having the system do some additional "fact finding" before the time arrived to begin notifications.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 11/30/09 by Oliver Lewis
Hi,

Can this be used as an Active Script Action? I can use it ok as an Active Script Monitor but I only want it triggured when a device is 'Up 5 mins'. When I set it as an action I get Object Required next to errors.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 11/30/09 by Bill Meyers
Absolutely, that's how we do it except I have it run as soon as a device status changes to Down. I have the script set up as an Active Monitor just so I can test it and manually populate attributes on devices. I use the same script as an Action and have it applied to all Action Policies, again when a device status changes to Down.

I corrected the error handler so you can now see the actual error. Just move line 57 (objWMIService.Security_.impersonationlevel = 3) to line 174 (below Else statement).

I also updated the way that disk space is displayed. Rather than each disk being seperated by a pipe | I have each disk on it's own line. It's really just personal preference but I think it reads a lot better. Replace lines 206 - 212 with the code below. This also adds percentage full to the end of the line. Keep in mind that the end of the string must end in a period otherwise Outlook will remove the extra line breaks and the entire string will end up on one line.

' *** Disk Space ***
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk WHERE Description = 'Local Fixed Disk'")
   For each objDisk in colDisks
    sDiskID = objDisk.DeviceID
    sFree = Round(objDisk.FreeSpace / ConvertKB2GB, 2)
    sTotal = Round(objDisk.Size / ConvertKB2GB, 2)
    sUsed = sTotal-sFree
    sPercent = Round(sUsed / sTotal, 2) * 100
    sDisk = sDisk & "Disk " & sDiskID & " " & sFree & " GB Free of " & sTotal & " GB (" & sPercent & "% Full)." & vbCrLf
Next

' *** Remove last vbCrLf from end of string (sDisk) ***
    iLen = Len(sDisk)
    sDisk = Left(sDisk, iLen - 2)
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 11/30/09 by Oliver Lewis
Thanks for that. I will have to wait and see what the error is. Maybe I should manually populate attributes on the devices too. How can it work for you when a device status has just gone down? Wouldn't the device be unaccessible?

I've added an additional attribute to the script to show the current user which I find pretty handy.

' *** Current User ***
'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sAddress & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem")

   For Each objComputer in colSettings
    sCurrentUser = objComputer.UserName
   Next

Context.LogMessage "CurrentUser=" & sCurrentUser
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 11/30/09 by Bill Meyers
If ping is down, yes, but I originally created this script to provide actual disk space. We use disk space WMI monitors to alert if a drive is 90% Full. So when a disk exceeds that threshold we receive the alert with updated free mb/gb and actual percentage free. This way we don't have to log onto the computer to see that a 300 GB drive still has 30 GB free, which means it doesn't need to be addressed immediately. MS says that disk performance is degraded when it's running at 90% full or greater, which is why we have these alerts setup, but with most disks being quite large these days, these alerts often get put to the side since there is still actually plenty of space remaining.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 12/1/09 by Oliver Lewis
Ok, I've had a chance to test this again. The error I am getting is 'Access is Denied'. I am using the exact same script that works as an active monitor test and the same windows credentials.

Any ideas what this could be?
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted 12/1/09 by Oliver Lewis
Got it working. The Ipswitch WhatsUp Engine service was running as local system. Changed it to domain admin and it worked.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted Jan 12 by Lewis Palmer
How is this information diplayed in an email. I can't seem to figure it out. Thanks.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted Jan 14 by Bill Meyers
Each value gets added to an attribute on the device that you run this script against. Just add the percent variable for the attribute that you want to display in your email action.

For example:
%Device.Attribute.AttributeName

If you wanted to display the attribute called SerialNumber you would use:
%Device.Attribute.SerialNumber

You can also add a title in front of the variable:
Serial Number: %Device.Attribute.SerialNumber
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
posted Apr 20 by Raymond Au
Thanks for the script. But I got errors during test run, the script seems getting into a dead looped at "Do Until objRecordSet.EOF" til timeout

Checking Address=192.168.10.10
DeviceID=158
IP Address=192.168.10.10
OS=Microsoft Windows Server 2003 Enterprise Edition (Service Pack 2)
HostName=HK-WN010
Manufacturer=HP
Model=ProLiant DL380 G5
Domain=domain
Serial=SGH646XXXX
Searchbase = domain
Location=
Owner=
Location=
Owner=

.

.

.

Location=
Owner=

Error: The script timed out because it exceeded 60 seconds.

--------

Platform: WhatsUp v14.1.2 / W2K8 SP2 / SQL2005 Ent.

can anyone help ? thanks
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this