List all folders on a windows host system

[taid]

Const fsoForApend = 8
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("folder-list.txt", fsoForApend)

Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory")

For Each objFolder in colFolders
	objTextStream.WriteLine objFolder.Name
Next

Origional work done by Microsoft, modified by me for the output to file system.

as currently set you must create a file called folder-list.txt in the directory that you run the script in