Set fso=CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(".").SubFolders
	'wscript.echo "Checking '"& f.name &"'"
	If f.Subfolders.Count=0 And f.Files.Count=0 Then 
		Wscript.Echo "Removing '"& f.Name &"'"
		fso.DeleteFolder f.path, True
	End If
Next
Set fso=Nothing