anyone had problems with these? I've verified that my computer IS in Domain Computers and both of these functions return false. Anyone know why?
Code:
$domain = 'microsoft.com'
If ComputerInGroup('Domain Computers') = 1
"true"
Else
? "CID false" +@ERROR +@SERROR
Endif
If fnInGroupAD('Domain Computers',1)
"true"
Else
? "FN false" +@ERROR +@SERROR
Endif
get $
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
Function fnInGroupAD($sGroup,Optional $bComputer)
Dim $objSys,$objTarget,$aMemberOf,$sMemberOf
$objSys = CreateObject("ADSystemInfo")
$objTarget = GetObject("LDAP://"+Iif($bComputer,$objSys.ComputerName,$objSys.UserName))
$aMemberOf = $objTarget.GetEx("memberOf")
For Each $sMemberOf in $aMemberOf
If InStr($sMemberOf,"CN="+$sGroup+",")
$fnInGroupAD = Not 0
Exit
EndIf
Next
$fnInGroupAD = NOT 1
EndFunction
Edit: both return false.
Edit2: added functions so you could see the versions I'm using.
