MSWC.PermissionChecker

Hej eksperter

Jeg kan ikke få hasacces til at virke.

Dim IsSUA
Dim pc, ok
 
Set pc = Server.CreateObject(\"MSWC.PermissionChecker\")
ok = pc.HasAccess(\"C:\\default.htm\")
Set pc = Nothing
IsSUA=ok
 
if IsSUA then
  Sletterettigheder
end if

Problemet er at alle får sletterettigheder, også selv om man ikke har rettigheder til C:\\default.htm?