| Skatterbrainz |
| (Starting to like KiXtart) |
| 2005-03-29 11:44 PM |
|
Enum Local Group Members
|
I'm not having any luck with this piece of code. Please help me fix it or point me in the proper direction? TIA!
Code:
Function LocalAdmins()
Dim $winntprovider, $objGroup, $obj
$winntprovider = 'WinNT://'+@domain+'/'+@wksta+'/Administrators,group'
$objGroup = GetObject($winntprovider)
If @error = 0
? "obtained binding: "+$winntprovider
For each $obj in $objGroup
? $obj.Name
Next
Else
? "failed to get binding"
EndIf
$objGroup = 0
EndFunction
| Les |
| (KiX Master) |
| 2005-03-30 12:09 AM |
Re: Enum Local Group Members
|
Why you have both @domain+'/'+@wksta?
Should you not just have @wksta?
| Bryce |
| (KiX Supporter) |
| 2005-03-30 01:17 AM |
|
|
Re: Enum Local Group Members
|
Quote:
Why you have both @domain+'/'+@wksta?
Should you not just have @wksta?
MS says it makes for faster name resolution....
| Bryce |
| (KiX Supporter) |
| 2005-03-30 01:21 AM |
|
|
|
Re: Enum Local Group Members
|
its...
$objGroup.members
Bryce
| Bryce |
| (KiX Supporter) |
| 2005-03-30 01:22 AM |
|
|
|
Re: Enum Local Group Members
|
Code:
Function LocalAdmins()
DIM $winntprovider, $objGroup, $obj
$winntprovider = 'WinNT://'+@DOMAIN+'/'+@WKSTA+'/Administrators,group'
$objGroup = GetObject($winntprovider)
If @ERROR = 0
? "obtained binding: "+$winntprovider
For Each $obj In $objGroup.members
? $obj.Name
Next
Else
? "failed to get binding"
EndIf
$objGroup = 0
EndFunction