|
When i run the following code i get the IDispatch pointers error code. Can somebody explain / help me what to do?
Code:
If INOU("LAPTOPS","@WKSTA") = 1 ? "Yes" Else ? "NO"
EndIf
Function:
FUNCTION InOU ($ouname, OPTIONAL $iscomputer) ; (Standalone version restricted to Windows 2000 and XP systems)
DIM $ouelement
IF Len($iscomputer) > 0
$iscomputer=1
ELSE
$iscomputer=0
ENDIF
$inou=0
IF Len($_inouuser) > 0 AND Len($_inoucomputer) > 0
IF $iscomputer = 0
IF $_inouuser = "Initialized but no OU available"
RETURN
ENDIF
FOR EACH $ouelement IN Split($_inouuser,",")
IF $ouelement = $ouname
$inou=1
ENDIF
NEXT
ELSE
IF $_inoucomputer = "Initialized but no OU available"
RETURN
ENDIF
FOR EACH $ouelement IN Split($_inoucomputer,",")
IF $ouelement = $ouname
$inou=1
ENDIF
NEXT
ENDIF
ELSE
$sysinfo=CreateObject("adsysteminfo")
IF Len($sysinfo) > 0
FOR EACH $ouelement IN Split($sysinfo.username,",")
IF Left($ouelement,3) = "OU="
$_inouuser=$_inouuser+Substr($ouelement,4)+","
IF $iscomputer = 0
IF Substr($ouelement,4) = $ouname
$inou=1
ENDIF
ENDIF
ENDIF
NEXT
IF Len($_inouuser) = 0
$_inouuser="Initialized but no OU available"
ENDIF
FOR EACH $ouelement IN Split($sysinfo.computername,",")
IF Left($ouelement,3) = "OU="
$_inoucomputer=$_inoucomputer+","+Substr($ouelement,4)
IF $iscomputer = 1
IF Substr($ouelement,4) = $ouname
$inou=1
ENDIF
ENDIF
ENDIF
NEXT
IF Len($_inoucomputer) = 0
$_inoucomputer="Initialized but no OU available"
ENDIF
ENDIF
ENDIF
ENDFUNCTION ; - InOU -
[ 09. July 2003, 10:08: Message edited by: Koen van der Aa ]
| 
