' Listing 1. Problematic Code

Set sec = CreateObject("ADsSecurity")
Set sd = sec.GetSecurityDescriptor("FILE://C:\fíle.ext")

Set dacl = sd.DiscretionaryAcl
Set sacl = sd.SystemAcl

WScript.Echo dacl.AceCount
WScript.Echo sacl.AceCount