FiveTech Support Forums

Sub ListUsers( strDomain )
    Set objComputer = GetObject("WinNT://" & strDomain )
    objComputer.Filter = Array( "User" )
    For Each objUser In objComputer
        WScript.Echo "Name: " & objUser.Name
        WScript.Echo "Fullname: " & objUser.Fullname
        WScript.Echo "Description: " & objUser.Description
        WScript.Echo "AccountDisabled: " & objUser.AccountDisabled
        WScript.Echo "IsAccountLocked: " & objUser.IsAccountLocked
        WScript.Echo "Profile: " & objUser.Profile
        WScript.Echo "LoginScript: " & objUser.LoginScript
        WScript.Echo "HomeDirectory: " & objUser.HomeDirectory
        WScript.Echo ""
    
    Next
End Sub

#include "Fivewin.ch"

Function main

 ListUsers("Lailton-LAPTOP")

Return

Function ListUsers( cDomain )
Local objComputer
  
    Try
      objComputer := CreateObject("WinNT://" + cDomain)
    Catch
      MsgStop("Não foi possivel criar o Object !")
      Return  
   End
    objComputer:Filter := { "User" }
    For Each objUser In objComputer
        ? "Name: " + objUser:Name
        ? "Fullname: " + objUser:Fullname
        ? "Description: " + objUser:Description
        ? "AccountDisabled: " + objUser:AccountDisabled
        ? "IsAccountLocked: " + objUser:IsAccountLocked
        ? "Profile: " + objUser:Profile
        ? "LoginScript: " + objUser:LoginScript
        ? "HomeDirectory: " + objUser:HomeDirectory
        ?
    Next
Return

Function ListUsers()
local oLoc := CreateObject( "wbemScripting.SwbemLocator" )
local oSrv := oLoc:ConnectServer(,"root\cimv2")
local aDat := oSrv:ExecQuery( "SELECT * FROM Win32_UserAccount" )
Local oDat
Local aRet := {}

 For each oDat in aDat
  AADD(aRet, AllTrim( Upper( oDat:Name ) ) )
 Next

Return( aRet )

local oSrv := oLoc:ConnectServer(,"root\cimv2")

oSrv  := oWMI:ConnectServer(cDomain,"root\cimv2")

oSrv  := oWMI:ConnectServer("192.168.0.1","root\cimv2")