code:

---

Break ON
$target = GetObject("LDAP://OU=Users,OU=USA,DC=mycompany,DC=net")
  If ReDirectOutput("c:\logons.xls") = 0
    For Each $user in $target
      $script = $user.loginscript 
        If $Script = ""
          ? "Current Script for"+Chr(09)+$user.name+Chr(09)+ "NO SCRIPT ASSIGNED"
        Else
          ? "Current Script for "+Chr(09)+$user.name+Chr(09)+$script
        EndIf
    Next
  EndIf  

---

code:

---

CLS
BREAK ON
$DomainString='DOMAIN' ;Replace with your domain
$GroupString='Domain Users'
$GroupObj = GetObject('WinNT://' + $DomainString + '/' + $GroupString)
For each $UserObj in $GroupObj.Members
    IF $UserObj.AccountDisabled<>'True' AND $UserObj.LoginScript=''
    ?$UserObj.Name
    ?$UserObj.FullName 
    $error=@error
     $logshare='H:\' ;Change to an available drive or UNC path
     $logfile=$logshare+$DomainString+'NOSCRIPT.CSV'
     $logdata=$UserObj.Name+','+$UserObj.FullName+','+$error+@CRLF
     LOGGER($logfile,$logdata)

    ENDIF
Next
?'--'
?'Script complete'
SLEEP 4

FUNCTION LOGGER($logfile,$logdata)
  DIM $n
  WHILE Open(1, $logfile, 5) OR $n=5
   IF $n
    '.'
   ELSE
    ?'Please wait'
   ENDIF
   $n=$n+1
   SLEEP 3
  LOOP
  $n=WriteLine(1, $logdata)
  $n=Close(1)
 ENDFUNCTION

---

code:

---

$ecode = $item.abc-emplCode  

---

quote:

---

The IADs::GetEx method retrieves from the property cache property values of a given attribute. The returned property values can have single or multiple values. Unlike the IADs::Get method, the property values are returned as a variant array of VARIANT, or a variant array of bytes for binary data. A property with a single value is then represented as an array of a single element

---

quote:

---

The IADs::Get method retrieves a property of a given name from the property cache. The property can be single-valued, or multi-valued. The property value is represented as either a variant for a single-valued property or a variant array (of VARIANT or bytes) for a property that allows multiple values.

---

quote:

---

You can also use IADs::GetEx to retrieve property values from the property cache. However, the values are returned as a variant array of VARIANTs, regardless of whether they are single- or multi-valued. This means that ADSI makes an extra effort to package the returned property values in consistent data formats. This saves you, as a caller, some efforts to validate the data types when you are not sure whether the returned data has single or multiple values.

---

quote:

---

The IADs::Get and IADs::GetEx methods return a different variant structure for a single-valued property value. If the property is a string, IADs::Get will return a variant of string (VT_BSTR), whereas IADs::GetEx will return a variant array of a VARIANT type string with a single element. Thus, if you are not sure that a multi-valued attribute will return a single value or multiple values, you should use IADs::GetEx. As it does not require you to validate the result's data structures, you may want to use IADs::GetEx to retrieve a property of which you are not sure whether it is single-valued or multi-valued. The following table compares the difference in calling the two methods.

---

bit     Value   =   Value

 1         1    1    1

 2         2    0

 3         4    1    4

 4         8    0

 5        16    1   16

 6        32    0

 7        64    0

 8       128    0

 9       256    0

10       512    0

11      1024    0

12      2048    0

13      4096    1  4096

14      8192    0

15     16384    0

16     32768    0

-------------------------

User_Flags   =     4117

code:

---

if $user.accountdisabled   
 ? "ja - disabled!"
endif

---

code:

---

if $Flags & 2
  ? Account is DISABLED"
endif

---