strComputer = "." Set objWMIService = GetObject("winmgmts:" _ "{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * from Win32_Directory where ") For Each objFolder in colFolders errResults = objFolder.Compress Wscript.Echo errResults Next
