'Let's allocate the object globally, so we don't waste time allocating it on each call
Dim objWMIService
Dim szDrive
Dim menu
Dim res
Dim fname
Sub Object_OnScriptEnter
'If I wasn't so lame I'd write something that would go through the list of drives available and make sure only available drives are here but I'm too lazy for that.
object.settimer 123, 2500
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
End Sub
Sub Object_OnRButtonUp(x,y,Dragged)
Set menu = DesktopX.CreatePopupMenu
menu.AppendMenu 0, 1, "C:"
menu.AppendMenu 0, 2, "D:"
menu.AppendMenu 0, 3, "E:"
menu.AppendMenu 0, 4, "F:"
menu.AppendMenu 0, 5, "G:"
menu.AppendMenu 0, 6, "H:"
Dim result
result = menu.TrackPopupMenu(&H00000004, System.CursorX, System.CursorY)
executecontextmenu(result)
End Sub
Sub executecontextmenu(n)
Select Case n
Case 1
fname = "C:"
Case 2
fname = "D:"
Case 3
fname = "E:"
Case 4
fname = "F:"
Case 5
fname = "G:"
Case 6
fname = "H:"
End Select
End Sub
Sub Object_OnScriptExit
Set objWMIService = nothing
End Sub
Sub Widget_OnPreferencesChange
Object_OnTimer123
End Sub
Sub Object_OnTimer123
Dim colItems
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where name = '" & fname & "'",,48)
For Each objItem In colItems
If objItem.FreeSpace / 1048576 < 1024 Then
Object.text = fname &" " & round((objItem.FreeSpace / 1048576),1) & " MB"
ElseIf objItem.FreeSpace / 1048576 > 1024 Then
Object.text = fname &" " & round((objItem.FreeSpace / 1024/1024/1024),1) & " GB"
'we just really need one result here, so we exit
End If
Exit Sub
Next
End Sub
'round |
