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

[vbnew]

Whoooly Cow.. |!! i got it.. thanks anyway... .

[dglienna]

to help others with the same problem, please post solution, or show code.

[Deepak Sakpal]

i am interested too

[vbnew]

Apology guys.. (Deepak Sakpal and dglienna)

i was too excited already... alright here is the solution ...

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

that's the way to do it.. previously i use localhost... which is wrong.. change it to your machine domain... then everything is swift....

[Deepak Sakpal]

r u reffering any dlls

[Robbo]

the error, is it cant connect, either already open or it isnt there