Hello,

i try following Code (where "Number5" is my Computername)

code:
  
Dim $Test
Dim $Computer

$AD=GetObject("WinNT://Number5,computer")
$AD.Filter=Array("Service")

for each $s in $AD
? $S.name
next


Normaly this code should only shows the NT-Services of my Computer, but this shows all ADSI information like Users,Groups and Services.

When i try to run this code in WSH i works fine.

I think there is a problem with the "$ad.Filter ".

Has anyone any ideas?

_________________________
Greetings,

Michael