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

Anything VBScript-related, including Windows Script Host, WMI, ADSI, and more.
Forum rules
Do not post any licensing information in this forum.
Locked
User avatar
GlennXS
Posts: 5
Joined: Mon Jul 24, 2017 6:53 am

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

Post by GlennXS » Mon Jul 24, 2017 7:09 am

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

User avatar
jvierra
Posts: 11558
Joined: Tue May 22, 2007 9:57 am
Contact:

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

Post by jvierra » Mon Jul 24, 2017 8:41 am

This is how to rename a group:

'sGroup.Rename(“Gusto”)

User avatar
GlennXS
Posts: 5
Joined: Mon Jul 24, 2017 6:53 am

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

Post by GlennXS » Mon Jul 24, 2017 9:02 am

I tried that, however, i'll go back and try it again. Thanks for the immediate reply ... :)

User avatar
GlennXS
Posts: 5
Joined: Mon Jul 24, 2017 6:53 am

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

Post by GlennXS » Mon Jul 24, 2017 9:06 am

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")?

User avatar
GlennXS
Posts: 5
Joined: Mon Jul 24, 2017 6:53 am

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

Post by GlennXS » Mon Jul 24, 2017 10:19 am

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 ? ...

User avatar
jvierra
Posts: 11558
Joined: Tue May 22, 2007 9:57 am
Contact:

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

Post by jvierra » Tue Jul 25, 2017 5:34 am

Sorry. With VBScript we need to use
Set Newobject = computer.MoveHere(object,"Newname")

User avatar
jvierra
Posts: 11558
Joined: Tue May 22, 2007 9:57 am
Contact:

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

Post by jvierra » Tue Jul 25, 2017 5:37 am

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

User avatar
GlennXS
Posts: 5
Joined: Mon Jul 24, 2017 6:53 am

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

Post by GlennXS » Tue Aug 08, 2017 7:23 pm

Thanks!!!

Locked