Try something like this:
On Error Resume Next
strDomain="MACHINENAME"
strUser="jdoe"
Set oDomain = GetObject("WinNT://" & strDomain)
Set oUser = oDomain.Create ("user", strUser)
If (err.number <> 0) Then
'Users exists on domain because Create method has failed
ELSE
'Handle case for non-existent user here
End If
Set oDomain=Nothing
If the user exists in the domain, then the Create method fails. We check for this by examining the number property of the built in Err object. If the Err.number <> 0 then the user exists. Jamie Gillespie
j-gillespie@s-cheshire.ac.uk