The hta script below reads all the folders on drive z: and then display them. This script works in beta1 but not in beta3. Can anyone tell me why?
<html>
<body>
<script type="text/vbscript">
Dim myArray(20),colSubfolders,objWmiService,objFolder
Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='z:\'} Where AssocClass = Win32_Subdirectory ResultRole = PartComponent")
For Each objFolder in colSubfolders
fileName = objFolder.fileName
document.write(fileName)
document.write("<br />")
Next
</script>
</body>
</html>
