Help with this code?

Thanx to guidway in http:Q_21175457.html
I am using the following to pull mdb information on my servers:

Dim FSO, oFil, s2, objArgs, objItem
Dim computerName, owner
Dim objFileSystem, objOutputFile
Dim strOutputFile

Set FSO = CreateObject("Scripting.FileSystemObject")

  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNetwork = Wscript.CreateObject("Wscript.Network")
  computerName = objNetwork.ComputerName
   strOutputFile = "./" & computerName & "-db.xls"
   Set objFileSystem = CreateObject("Scripting.fileSystemObject")
   Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
   Set f = fso.GetFolder("G:\Groups")  
   Call SearchAll(f)

Sub SearchFolder(byRef objFolder)
    Dim objFile, objSubFolder
   
  ' Loop through the files and check each one.  
    if not objFolder.name = "System Volume Information" then
       For Each objFile in objFolder.Files
          Call SearchFile(objFile)    
       next'objFile  
    end if
  ' Loop through the sub folders and call self on each folder.  
    if not objFolder.name = "System Volume Information" then
       For Each objSubFolder in objFolder.SubFolders
         Call SearchFolder(objSubFolder)
       Next'objSubFolder  
    end if
End Sub

Sub SearchAll(byVal strFolder)
    dim objFSO, objFolder
   
  ' Setup the FSO Object  
    Set objFSO = CreateObject("Scripting.FileSystemObject")
   
  ' Get the root folder  
    Set objFolder = objFSO.GetFolder(strFolder)
    objOutputFile.WriteLine("FILE NAME, FILE PATH, FILE SIZE, CREATED, ACCESSED, OWNER")  
    Call SearchFolder(objFolder)
End Sub

Sub SearchFile(byVal oFil)
  'wscript.echo oFil.Path
  if right(oFil.name, 4) = ".mdb" then  
     Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & oFil.path & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
     For Each objItem in colItems
         owner = objItem.AccountName
     Next
         s2 = ""
         s2 = oFil.Name & ","
         s2 = s2 & oFil.Path & ","
         s2 = s2 & oFil.Size & ","
         s2 = s2 & left(oFil.DateCreated,10) & ","

         s2 = s2 & left(oFil.DateLastAccessed,10) & ","
'         s2 = s2 & "Type: " & oFil.Type & ","
         s2 = s2 &  owner
         objOutputFile.WriteLine(s2)
  end if
End Sub

Now, I need help with the following items:

1) I need the code modified slightly to 'check' for the appropriate drives/paths.
We have a mixture of w2k and w2k3 servers.  On the w2k servers, there may be just a G:\Groups_1 folder that I need scanned, or, if the office is large enough, an H:\Groups_2 might exist.  On our W2k3 servers the folder is simply renamed to G:\Groups.  So, I'd like to either go through all 3 instances, or simply determine if it's a w2k3 and only do groups or a w2k and do groups_1 and groups_2, if it exists.

2) I don't know VBS that well, and this code worked great on my laptop, but running it on my server generates an apparent error:

sdbfa.vbs(51, 6) (null): 0x8004103A

Now, maybe that means something to someone here, but it does nothing for me.  My suspicion is it's on an improperly named subfolder somewhere, cause I had this problem in my dos-batch file as well.  I found at least two folders that contained "&" in the name (concatenate), so I suspect that's it, since the code runs for a while before halting here.  Can anyone assist?

Thanx!