I've put together a function that will return the percentage free space on a given logical drive for a specified server. The function in the following script is really doing all the hard work. The rest of the script is simply a demonstration on how to call the function. The script uses WMI and queries the Win32_LogicalDisk for the size and freespace properties. With these values it's pretty simple to calculate a percentage.<\/p>\n
'GetPercentFreeDrive.vbs<\/span><\/p>\n 'specify alternate credentials for remote systems<\/span> <\/span>strSrv=InputBox(\"What computer do you want to query\",\"Get Percent Free\",\"localhost\")<\/span><\/p>\n <\/span>strDeviceID=InputBox(\"What drive do you want to query?\",\"Get Percent Free\",\"c:\")<\/span><\/p>\n <\/span>WScript.Echo UCase(strDeviceID) & \" on \" & UCase(strSrv) & \" has \" & GetPercent(strSrv,strDeviceID,strUsername,strPassword) & \" free space.\"<\/span><\/p>\n <\/span>Function GetPercent(strSrv,strDeviceID,strUsername,strPassword)<\/span> <\/span>On Error Resume Next<\/span> <\/span>strQuery=\"Select DeviceID,Size,FreeSpace from Win32_LogicalDisk WHERE DeviceID='\" & strDeviceID & \"'\"<\/span><\/p>\n <\/span>'strip out any trailing \\ if found<\/span> <\/span>'validate strDeviceID<\/span> <\/span>Set SWBemlocator = CreateObject(\"WbemScripting.SWbemLocator\")<\/span> <\/span> Set objRef=objWMI.ExecQuery(strQuery,\"WQL\",wbemForwardOnly+wbemFlagReturnImmediately)<\/span><\/p>\n <\/span> For Each dev In objRef<\/span> <\/span>Else<\/span> <\/span>End If<\/span><\/p>\n <\/span>End Function<\/span> Technorati Tags: I’ve put together a function that will return the percentage free space on a given logical drive for a specified server. The function in the following script is really doing all the hard work. The rest of the script is simply a demonstration on how to call the function. The script uses WMI and queries…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[8],"tags":[535,547],"class_list":["post-24","post","type-post","status-publish","format-standard","hentry","category-scripting","tag-vbscript","tag-wmi"],"yoast_head":"\n
<\/span>strUsername=\"\"<\/span>
<\/span>strPassword=\"\"<\/span><\/p>\n
<\/span>'deviceID is the drive letter and colon, eg E: with no trailing \\<\/span><\/p>\n
<\/span>Dim SWBemlocator,objWMI,objRef<\/span>
<\/span>Const wbemFlagReturnImmediately=&h10<\/span>
<\/span>Const wbemFlagForwardOnly=&h20<\/span><\/p>\n
<\/span>If Right(strDeviceID,1)=\"\\\" Then strDeviceID=Replace(strDeviceID,\"\\\",\"\")<\/span><\/p>\n
<\/span>If Len(strDeviceID)=2 And Right(strDeviceID,1)=\":\" Then<\/span><\/p>\n
<\/span>SWBemlocator.Security_.ImpersonationLevel=3<\/span>
<\/span>SWBemlocator.Security_.AuthenticationLevel=WbemAuthenticationLevelPktPrivacy<\/span>
<\/span>Set objWMI=SWBemlocator.ConnectServer(strSrv,\"\\root\\CIMV2\",strUsername,strPassword)<\/span><\/p>\n
<\/span> iFreeSpace=dev.FreeSpace<\/span>
<\/span> iSize=dev.Size<\/span>
<\/span>Next<\/span>
<\/span>
If iSize=\"\" Then<\/span>
<\/span> GetPercent=\"Drive Not Found\"<\/span>
<\/span> Else<\/span>
<\/span> GetPercent=FormatPercent(iFreeSpace\/iSize,2)<\/span>
<\/span> End If<\/span><\/p>\n
<\/span> GetPercent=\"ERROR\"<\/span><\/p>\n
<\/span><\/p>\n
WMI<\/a>
Scripting<\/a>
VBScript<\/a>
<\/font><\/p>\n","protected":false},"excerpt":{"rendered":"