It took abit of thought but I have come up with a solution. VBscript comes with a dictionary object which you can add an variable to. You can then use the key method to access the members of the dictionary object in any order. Heres how it works:
<pre>
Option Explicit
Dim drives
Dim drive
Dim done
Dim shell
Dim fs
Dim net
Dim dictionary
Const DRIVE_UNKNOWN = 0
Const DRIVE_REMOVABLE = 1
Const DRIVE_FIXED = 2
Const DRIVE_REMOTE = 3
Const DRIVE_CD = 4
Const DRIVE_RAM = 5
Const nRemotePath = "Path of remote drive goes here"
' access components and object modules
set shell = CreateObject("wscript.shell")
set fs = CreateObject("scripting.filesystemobject")
set dictionary = CreateObject("scripting.dictionary")
set net = CreateObject("wscript.network")
' map the network drive
net.mapNetWorkDrive "S:", nRemotePath
' create a handle to the drives object
set drives = fs.drives
' cycle through the drives
' add the appropriate drives to the dictionary
For each drive in drives
' get drive type
If drive.drivetype = DRIVE_FIXED then
Select Case uCase(drive.driveletter) ' retrieve drive letter
Case "C"
dictionary.add "C", drivespace(drive)
Case "D"
dictionary.add "D", drivespace(drive)
Case "E"
dictionary.add "E", drivespace(drive)
End select
end if
Next
' check if the drives have more than 100MB of freespace in
' the required order
<font color=red>
if dictionary.item("D") > 100 then
shell.run "C:\d.bat"
done = true
elseif dictionary.item("E") > 100 then
shell.run "C:\e.bat"
done = true
elseif dictionary.item("C") > 100 then
shell.run "C:\c.bat"
done = true
end if
</font color=red>
if not done then
MsgBox "An error occured- please send me an email at <<-EMAIL ADDRESS->>"
end if
' clean up object mess
set fs = nothing
set shell = nothing
set net = nothing
set dictionary = nothing
Function driveSpace(driveObj)
Dim freeSpec
freeSpec = driveObj.freespace ' get free space
freeSpec = freespec/(2^20) ' freespace is returned in bytes so convert to Megabytes
driveSpace = Round(freespec, 0) ' round to the nearest megabyte
End Function
</pre>