vbscript to search for folders

Hi All,

I'm trying to write a vbscript that will search for multiple occurrences of a folder on a remote server. The folder wont always have the same name but will obviously always have a keyword in the folder name. I have most of it working but the problems is:

When I run the script, it seems to only search the C: drive. I haven't specified any drives so it should search all drives on the machine. This is done in the line: Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory where Name Like '%" & strCriteria & "%'")

If I enter a word like 'Windows' or 'Program' it will find all of the obvious stuff on C:\ but nothing on my drive even though I specifically create a folder called 'D:\Program' for testing purposes.

The code:

Dim FileSys, newFolder, newFolderPath, strCriteria

strCriteria = inputbox("Enter folder name you are searching for:")

strComputer = "."
newFolderPath = "\\dvv93r1\dest1\" & strCriteria
'Wscript.Echo(newFolderPath)

Set FileSys = CreateObject("Scripting.FileSystemObject")

If Not FileSys.FolderExists(newFolderPath) Then
FileSys.CreateFolder(newFolderPath)
FileSys.CreateFolder(newFolderPath & "\analysis")
FileSys.CreateFolder(newFolderPath & "\logs")
End If
outFile = newFolderPath & "\logs\log.txt"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(outFile,True)

Set oShell = WScript.CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory where Name Like '%" & strCriteria & "%'")

For Each objFolder in colFolders
'Wscript.Echo(objFolder.Name)
objFile.Write objFolder.Name & vbCrLf

sText = Right(objFolder.Name, Len(objFolder.Name) - 3)
netPath = "\\" & strComputer & "\" & sText
'WScript.echo netPath

If FileSys.FolderExists(netPath) Then
FileSys.CopyFolder netPath, newFolderPath & "\analysis"
End If

Next
objFile.Close
WScript.Echo("Operation is complete.")


Any help would be greatly appreciated.

Thanks in advance.

J