Adding local user object

[grittyminder]

Hi there,
I want to add a new local user. The slightly strange part is that the user to add is an object. So the following code, of course, won't work for this.

Set objUser = objComputer.Create("user", userName)
objUser.SetPassword password
objUser.SetInfo

Is it possible to add the entire user object? Or will I be forced to create a new user, then add all the attributes associated with the old user to the new user individually? If that is the route I must take, how can I ennumerate through the user object attributes?

 

[markdmac]

Actually, your code is correct. You are just missing the crucial part of binding to the PC.

Set objComputer = GetObject("WinNT://pcname,computer")
Set objUser = objComputer.Create("user", "geekazoid")
objUser.SetPassword "password"
objUser.SetInfo

I hope you find this post helpful.

Regards,

Mark

 

[mrmovie]

i would say that you cant add a user to a domain using a user object as the source data so to speak,.
evidently the user you will be adding will not be some the same domain and therefore will have no relevance, well some of the properties will pee off the dommain you are adding it to.
you might find there is some sort of cmdline from MS to migrate users from one domain to another but i think hidden behind it will onoly be what you already described.

how to enumerate all properties of an object??

i have read how to do it with a WMI object/class, will dig it out, might help.

you still might have to maintain a list of which properties you want to port across and which ones you dont but it is a good exercise none the less

sorry i havent actually been much help!!!
tired, been a long ADS, XML, M$ nightmare

 

[mrmovie]

might do the trick

Set x = GetObject("WinNT://Fabrikam/Administrator")
Response.Write "Object Name: " & x.Name & "<br>"
Response.Write "Object Path: " & x.ADsPath & "<br>"
Response.Write "Object Class: " & x.Class & "<br>"

' Get more data about the object schema.
Set cls = GetObject(x.Schema)
Response.Write "Class Name is: " & cls.Name & "<br>"
For Each op In cls.OptionalProperties
Response.Write "Optional Property: " & op & "<br>"
Next op

 

[markdmac]

MrMovie, unless the request was poorly written, the request was to add a local user not a domain user. The code I posted works for creating a local user.

As for enumerating properties, the same (but limited set) of properties that apply in AD also apply to local users such as the IsDisabled flag etc.

GrittyMinder, what properties are you looking to set? I can help.

I hope you find this post helpful.

Regards,

Mark

 

[mrmovie]

hi Mark, sorry i read the post as

create a user but instead of creating the user by passing the .Create method a string grittyminder wants to pass the .Create method an object, that object being an instance of the IADSUser class.

perhaps i have gone mad on this one ;-) a rather circular request, but without more info all i can imagine is that grittyminder is dealing with domain migration or cross domain account creation???