KiXtart Benutzerdefinierte Funktion - Anfängerfrage

;
;Version         1.00
;Date            2003-Sep-03
;Revision Reason 1.00
;Parameters      $group      = name of group to test for
;                $domain     = optional parameter for testing a different domain than current
;Remarks         see Ingroup(), but for computer accounts instead of user accounts
;Returns         1 if in specified group
;                0 if not
;                @error =1 for bad group or domain
;Dependencies    ADSI
;KiXtart Ver     Written and tested with KiXtart v4.21 
;Example         If ComputerInGroup('domain computers')=1  
;                     ? 'Computer is a member'  
;                endif


Function ComputerInGroup($group,optional $Domain)
	Dim $oGrp
	if not $domain		$domain=@domain		endif
	$oGrp = GetObject("WinNT://" + $domain + "/"  + $group + ",group" )  
	if @error	exit 1		endif

	if $oGrp.IsMember("WinNT://" + $domain + "/"  + @wksta + "$$" )  
		$ComputerInGroup=1
	else
		$ComputerInGroup=0
		endif
endfunction
	

If ComputerInGroup('testcomputer')=1  
                     ? 'Computer is a member'