you know this error code? 80004005

[vbnew]

run time error "-2147467259" (80004005)
unspecified error...

Public Function createuseraccount()
    Dim userobj As IADs
    
    Set domainobj = GetObject("WinNT://localhost")
    Set userobj = domainobj.Create("User", "mason")
    userobj.SetPassword "mason"
    userobj.FullName = "mason"
    userobj.Description = "mason account"
    userobj.SetInfo
    
    Set userobj = Nothing
 
End Function

1.) this error occurs when the userobj,setinfo is issued.. why?

2.) and another thing,
GetObject("WinNT://DOMAIN")

but i change to the following

GetObject("WinNT://localhost")

* It wont be a problem right, cause the local machine dont have a domain.. its a workgroup only.. please guide me.. thank you