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
Change properties of Local Group; e.g. rename group, change description.
Forum rules
Do not post any licensing information in this forum.
Any code longer than three lines should be added as code using the 'Select Code' dropdown menu or attached as a file.
Do not post any licensing information in this forum.
Any code longer than three lines should be added as code using the 'Select Code' dropdown menu or attached as a file.
Re: Change properties of Local Group; e.g. rename group, change description.
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.
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")?
... do you think this should work also; maybe sGroup.Description( "Gusto privileges")?
Re: Change properties of Local Group; e.g. rename group, change description.
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 ? ...
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.
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