Miért nem működik ez a vb script?

Dim di As New DirectoryInfo("d:\doom2\")

Dim ds As System.Security.AccessControl.DirectorySecurity = di.GetAccessControl

Dim owner As System.Security.Principal.NTAccount = CType(ds.GetOwner(GetType(System.Security.Principal.NTAccount)), System.Security.Principal.NTAccount)

MsgBox(owner)

Egy mappa tulajdonosát szeretném kiíratni, de hibaüzenetet küld helyette:

"A várt elem az utasítás vége"

Sor: 1

Karakter: 8

Kód: 800A0401