{"id":516,"date":"2008-07-30T02:00:11","date_gmt":"2008-07-30T10:00:11","guid":{"rendered":"http:\/\/www.sapien.com\/blog\/2008\/07\/30\/vbscript-drive-utilization\/"},"modified":"2008-07-30T02:00:11","modified_gmt":"2008-07-30T10:00:11","slug":"vbscript-drive-utilization","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2008\/07\/30\/vbscript-drive-utilization\/","title":{"rendered":"VBScript: Drive Utilization"},"content":{"rendered":"

Here’s another recent topic from the ScriptingAnswers.com forums<\/a> which I thought I’d share. The forum members wanted to delete files if the drive utilization exceeded a certain threshold. Using Windows Management Instrumentation (WMI) with VBScript I came up with something like this:<\/p>\n

\n
\n
   1:<\/span> Function<\/span> Utilization (strComputer,strDrive)<\/pre>\n
   2:<\/span>  <\/pre>\n
   3:<\/span>     Set<\/span> objWMIService = GetObject(\"winmgmts:\/\/\"<\/span> & strComputer)<\/pre>\n
   4:<\/span>     strQuery=\"Select * from win32_logicaldisk where DeviceID='\"<\/span> & strDrive & \"'\"<\/span><\/pre>\n
   5:<\/span>     Set<\/span> colWMI=objWMIService.ExecQuery(strQuery)<\/pre>\n
   6:<\/span>     For<\/span> Each<\/span> item In<\/span> colWMI<\/pre>\n
   7:<\/span>         u=(item.size-item.freespace)\/item.size<\/pre>\n
   8:<\/span>     Next<\/span><\/pre>\n
   9:<\/span>     <\/pre>\n
  10:<\/span>     Utilization=u<\/pre>\n
  11:<\/span>  <\/pre>\n
  12:<\/span> End<\/span> Function<\/span><\/pre>\n
  13:<\/span>  <\/pre>\n
  14:<\/span> 'sample usage<\/span><\/pre>\n
  15:<\/span> strDrive=\"G:\"<\/span><\/pre>\n
  16:<\/span> strComputer=\"localhost\"<\/span><\/pre>\n
  17:<\/span> iUsed=Utilization(strComputer,strDrive)<\/pre>\n
  18:<\/span>  <\/pre>\n
  19:<\/span> 'display a warning if percent used is greater than 75%<\/span><\/pre>\n
  20:<\/span> If<\/span> iUsed > .75 Then<\/span><\/pre>\n
  21:<\/span>     WScript.Echo \"WARNING: Drive \"<\/span> & strDrive & \" on \"<\/span> &_<\/pre>\n
  22:<\/span>      strComputer & \" is at \"<\/span> & FormatPercent(iUsed) & \" utilization\"<\/span><\/pre>\n
  23:<\/span> Else<\/span><\/pre>\n
  24:<\/span>     WScript.Echo \"OK: Drive \"<\/span> & strDrive & \" on \"<\/span> &_<\/pre>\n
  25:<\/span>      strComputer & \" is at \"<\/span> & FormatPercent(iUsed) & \" utilization\"<\/span><\/pre>\n
  26:<\/span> End<\/span> If<\/pre>\n<\/div>\n<\/div>\n
This script is slightly different than what I originally posted but I think it offers greater flexibility. The function itself takes a computername and drive as parameters. The drive must be specified with the colon, like G: or C:. Using WMI I query the computer for the drive information using the Win32_logicaldisk (line 3). As I enumerate the returned object, I calculate the drive utilization by subtracting the freespace value from the size value and dividing the result by the disk size (line 7). The returned value will be less than 1 which is what perfectly fine once you see how I’m going to use it.<\/p>\n
In the sample usage section you can see that I’m getting the utilization value for drive G: on the local host (line 17). One line 20 I have an If statement that compares the returned value. If the value is greater than .75 (75%) then I’ll display a warning message. To make it pretty, I can use the FormatPercent function with iUsed so that the warning message looks like this:<\/p>\n
WARNING: Drive G: on localhost is at 79.87% utilization<\/p>\n
I’m sure there are other ways you can think of to use this function. Enjoy.<\/p>\n
\n
Download the VBS file here<\/a><\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Here’s another recent topic from the ScriptingAnswers.com forums which I thought I’d share. The forum members wanted to delete files if the drive utilization exceeded a certain threshold. Using Windows Management Instrumentation (WMI) with VBScript I came up with something like this…<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[24],"tags":[247,198,57,248,996,35],"class_list":["post-516","post","type-post","status-publish","format-standard","hentry","category-vbscript","tag-freespace","tag-function","tag-scripting","tag-utilization","tag-vbscript","tag-wmi"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/516","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=516"}],"version-history":[{"count":0,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/516\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=516"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=516"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=516"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}