Jeremy

I modified the following script from one I found on the web. It searches
through an array of computers and lists all of the user folders found within
the documents and settings folders on my student computers. Would it be easy
to replace the array with something like 047ds* to just search all student
computers in my building?
Thanks, Jeremy

CODE
----------------
'=========
arrServers = Array(_
"047ds-c303-21.student.cssd.ab.ca",_
"047ds-c312-20.student.cssd.ab.ca",_
"047ds-cts-05"
)

strOutputFile = "StudentComputerProfiles.txt"
strStartFolder = "C:\Documents and Settings"


Set objFSO = CreateObject("Scripting.FileSystemObject")

strResults = "Existing Profiles on student computers"
For Each strServer In arrServers
strFolder = "\\" & strServer & "\" & Replace(strStartFolder, ":", "$")
For Each objSubFolder In objFSO.GetFolder(strFolder).SubFolders
strResults = strResults & VbCrLf & strServer & " - " &
objSubFolder.Name
Next
Next

Set objOutputFile = objFSO.CreateTextFile(strOutputFile, True)
objOutputFile.Write strResults
objOutputFile.Close
Set objOutputFile = Nothing
Set objFSO = Nothing

MsgBox "Finished. Please see " & strOutputFile
'=========