Page 1 of 1

Change properties of Local Group; e.g. rename group, change description.

Posted: Mon Jul 24, 2017 7:09 am
by GlennXS
While instantiating a Windows system (server 2012r2) from a virtual image template (Hypervisor, vmWare) that has much software preinstalled, I have a vbScript to reconfigure the instantiated image based on its new computer name; e.g. customer joins it to their domain (changes the machine name). To minimize the end user's work, the script reconfigures a ~dozen properties, adds some user groups, and so on; the end user only specifies a few parameters to the script. The script is fine except i can't figure out how to rename a few local user groups and change the Group's Description; i need help here.

My first attempt (in simple form) went this way ...

Set sGroup = GetObject( "WinNT://./Administrator, group")
sGroup.Name = “Gusto”
'sGroup.Rename = “Gusto”
'sGroup.FullName = “Gusto”
sGroup.SetInfo


The script errors (438) upon the sGroup.Name statement; i tried the commented statements too but get the same error. Then, i referred to the Ms>Docs>ADSI WinNT objects > ... documentation and came up with a documented method ...


sGroup.Put "Name", "Gusto"


It crashed too but with a different error; 8000500F

I believe the Put method is the way to go, however, i think i have to add something like .. .

oName = sGroup.Get( "Name")


... and apply this somehow ... I got this idea from ...


https://gallery.technet.microsoft.com/s ... 61f5bb856c


So, i need to rename a few groups and change their Description properties. Can somebody help me with this?

Thanks,
GlennXS

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Mon Jul 24, 2017 8:41 am
by jvierra
This is how to rename a group:

'sGroup.Rename(“Gusto”)

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Mon Jul 24, 2017 9:02 am
by GlennXS
I tried that, however, i'll go back and try it again. Thanks for the immediate reply ... :)

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Mon Jul 24, 2017 9:06 am
by GlennXS
In the meanwhile, I'm also trying to change the description; e.g. sGroup.Description = "Gusto privileges"

... do you think this should work also; maybe sGroup.Description( "Gusto privileges")?

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Mon Jul 24, 2017 10:19 am
by GlennXS
Thought I did this before but I tried again using the () syntax (just to be sure); doesn't work. The error msg is:

Error: Object doesn't support this property or method: 'sGroup.Rename'
Code: 800A01B6
Source: Microsoft VBScript runtime error

Should I be using WinMgmt namespace instead of WinNT ? ...

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Tue Jul 25, 2017 5:34 am
by jvierra
Sorry. With VBScript we need to use
Set Newobject = computer.MoveHere(object,"Newname")

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Tue Jul 25, 2017 5:37 am
by jvierra

Code: Select all

Set oGroup = GetObject( "WinNT://alpha/TestGrp, group")
Set oComputer = GetObject( "WinNT://alpha")
Set oNewGroup = oComputer.MoveHere(oGroup.aDSPath, "NewTestGrp")
WScript.Echo oNewGroup.aDSPath

Re: Change properties of Local Group; e.g. rename group, change description.

Posted: Tue Aug 08, 2017 7:23 pm
by GlennXS
Thanks!!!