Local Goup membership

Hi friends,
can any one help me to create a scripte to list local administrators group
on domain computers.
Thanks

akhdar wrote:
> Hi friends,
> can any one help me to create a scripte to list local administrators group
> on domain computers.
> Thanks

This is very easy using ADSI and the WinNT provider:

strComputer="someserver"
Set objLocalAdmins=GetObject("WinNT://" & strComputer &
"/Administrators,Group")

Set memberList=objLocalAdmins.Members
For Each member In memberList
WScript.Echo member.name
Next

--
Jeffery Hicks
SAPIEN Technologies - Scripting, Simplified.

blog: http://blog.SAPIEN.com
Community: http://www.scriptinganswers.com
Training: http://www.ScriptingTraining.com
Books: http://www.SAPIENPress.com
Editor: http://www.primalscript.com
Tools: http://www.scriptingoutpost.com

"Those who forget to script it are doomed to repeat it."

Hi Mr. Jeffrey Hicks,
I also need this script, I tried it and it works.
I have use a script from the repository to connect the AD and retrieve all
the computer accounts. Then, I used your script below to connect to the
individual computer and detect who are the members of administrators group in
each computer. However, If the computer that I wish to connect is updated
with SP2 and Firewall is On and Exception File and Print Sharing is OFF, I
can not connect to that machine any more.

My problem now, is how I can turn on the Exception File and Print Sharing to
a remote PC? Or do you have any suggestion on how I can connect to that
computer?

Thanks

"Jeffery Hicks" wrote:

> akhdar wrote:
> > Hi friends,
> > can any one help me to create a scripte to list local administrators group
> > on domain computers.
> > Thanks
>
> This is very easy using ADSI and the WinNT provider:
>
> strComputer="someserver"
> Set objLocalAdmins=GetObject("WinNT://" & strComputer &
> "/Administrators,Group")
>
> Set memberList=objLocalAdmins.Members
> For Each member In memberList
> WScript.Echo member.name
> Next
>
> --
> Jeffery Hicks
> SAPIEN Technologies - Scripting, Simplified.
>
> blog: http://blog.SAPIEN.com
> Community: http://www.scriptinganswers.com
> Training: http://www.ScriptingTraining.com
> Books: http://www.SAPIENPress.com
> Editor: http://www.primalscript.com
> Tools: http://www.scriptingoutpost.com
>
> "Those who forget to script it are doomed to repeat it."
>
>

Carlos wrote:
> Hi Mr. Jeffrey Hicks,
> I also need this script, I tried it and it works.
> I have use a script from the repository to connect the AD and retrieve all
> the computer accounts. Then, I used your script below to connect to the
> individual computer and detect who are the members of administrators group in
> each computer. However, If the computer that I wish to connect is updated
> with SP2 and Firewall is On and Exception File and Print Sharing is OFF, I
> can not connect to that machine any more.
>
> My problem now, is how I can turn on the Exception File and Print Sharing to
> a remote PC? Or do you have any suggestion on how I can connect to that
> computer?
>
> Thanks
>
> "Jeffery Hicks" wrote:
>
>> akhdar wrote:
>>> Hi friends,
>>> can any one help me to create a scripte to list local administrators group
>>> on domain computers.
>>> Thanks
>> This is very easy using ADSI and the WinNT provider:
>>
>> strComputer="someserver"
>> Set objLocalAdmins=GetObject("WinNT://" & strComputer &
>> "/Administrators,Group")
>>
>> Set memberList=objLocalAdmins.Members
>> For Each member In memberList
>> WScript.Echo member.name
>> Next
>>
>> --
>> Jeffery Hicks
>> SAPIEN Technologies - Scripting, Simplified.
>>
>> blog: http://blog.SAPIEN.com
>> Community: http://www.scriptinganswers.com
>> Training: http://www.ScriptingTraining.com
>> Books: http://www.SAPIENPress.com
>> Editor: http://www.primalscript.com
>> Tools: http://www.scriptingoutpost.com
>>
>> "Those who forget to script it are doomed to repeat it."
>>
>>

You can do most of that via Group policy. Otherwise you have to
manually configure the desktop because you can't get to it remotely to
make the changes!

--
Jeffery Hicks
SAPIEN Technologies - Scripting, Simplified.

blog: http://blog.SAPIEN.com
Community: http://www.scriptinganswers.com
Training: http://www.ScriptingTraining.com
Books: http://www.SAPIENPress.com
Editor: http://www.primalscript.com
Tools: http://www.scriptingoutpost.com

"Those who forget to script it are doomed to repeat it."

Thank you Mr. Jeffrey

"akhdar" wrote:

> Hi friends,
> can any one help me to create a scripte to list local administrators group
> on domain computers.
> Thanks

"akhdar" wrote:

> Hi friends,
> can any one help me to create a scripte to list local administrators group
> on domain computers.
> Thanks

"Jeffery Hicks" wrote:

> Carlos wrote:
> > Hi Mr. Jeffrey Hicks,
> > I also need this script, I tried it and it works.
> > I have use a script from the repository to connect the AD and retrieve all
> > the computer accounts. Then, I used your script below to connect to the
> > individual computer and detect who are the members of administrators group in
> > each computer. However, If the computer that I wish to connect is updated
> > with SP2 and Firewall is On and Exception File and Print Sharing is OFF, I
> > can not connect to that machine any more.
> >
> > My problem now, is how I can turn on the Exception File and Print Sharing to
> > a remote PC? Or do you have any suggestion on how I can connect to that
> > computer?
> >
> > Thanks
> >
> > "Jeffery Hicks" wrote:
> >
> >> akhdar wrote:
> >>> Hi friends,
> >>> can any one help me to create a scripte to list local administrators group
> >>> on domain computers.
> >>> Thanks
> >> This is very easy using ADSI and the WinNT provider:
> >>
> >> strComputer="someserver"
> >> Set objLocalAdmins=GetObject("WinNT://" & strComputer &
> >> "/Administrators,Group")
> >>
> >> Set memberList=objLocalAdmins.Members
> >> For Each member In memberList
> >> WScript.Echo member.name
> >> Next
> >>
> >> --
> >> Jeffery Hicks
> >> SAPIEN Technologies - Scripting, Simplified.
> >>
> >> blog: http://blog.SAPIEN.com
> >> Community: http://www.scriptinganswers.com
> >> Training: http://www.ScriptingTraining.com
> >> Books: http://www.SAPIENPress.com
> >> Editor: http://www.primalscript.com
> >> Tools: http://www.scriptingoutpost.com
> >>
> >> "Those who forget to script it are doomed to repeat it."
> >>
> >>
>
> You can do most of that via Group policy. Otherwise you have to
> manually configure the desktop because you can't get to it remotely to
> make the changes!
>
> --
> Jeffery Hicks
> SAPIEN Technologies - Scripting, Simplified.
>
> blog: http://blog.SAPIEN.com
> Community: http://www.scriptinganswers.com
> Training: http://www.ScriptingTraining.com
> Books: http://www.SAPIENPress.com
> Editor: http://www.primalscript.com
> Tools: http://www.scriptingoutpost.com
>
> "Those who forget to script it are doomed to repeat it."
>
>

"Carlos" wrote:

> Hi Mr. Jeffrey Hicks,
> I also need this script, I tried it and it works.
> I have use a script from the repository to connect the AD and retrieve all
> the computer accounts. Then, I used your script below to connect to the
> individual computer and detect who are the members of administrators group in
> each computer. However, If the computer that I wish to connect is updated
> with SP2 and Firewall is On and Exception File and Print Sharing is OFF, I
> can not connect to that machine any more.
>
> My problem now, is how I can turn on the Exception File and Print Sharing to
> a remote PC? Or do you have any suggestion on how I can connect to that
> computer?
>
> Thanks
>
> "Jeffery Hicks" wrote:
>
> > akhdar wrote:
> > > Hi friends,
> > > can any one help me to create a scripte to list local administrators group
> > > on domain computers.
> > > Thanks
> >
> > This is very easy using ADSI and the WinNT provider:
> >
> > strComputer="someserver"
> > Set objLocalAdmins=GetObject("WinNT://" & strComputer &
> > "/Administrators,Group")
> >
> > Set memberList=objLocalAdmins.Members
> > For Each member In memberList
> > WScript.Echo member.name
> > Next
> >
> > --
> > Jeffery Hicks
> > SAPIEN Technologies - Scripting, Simplified.
> >
> > blog: http://blog.SAPIEN.com
> > Community: http://www.scriptinganswers.com
> > Training: http://www.ScriptingTraining.com
> > Books: http://www.SAPIENPress.com
> > Editor: http://www.primalscript.com
> > Tools: http://www.scriptingoutpost.com
> >
> > "Those who forget to script it are doomed to repeat it."
> >
> >

"Jeffery Hicks" wrote:

> akhdar wrote:
> > Hi friends,
> > can any one help me to create a scripte to list local administrators group
> > on domain computers.
> > Thanks
>
> This is very easy using ADSI and the WinNT provider:
>
> strComputer="someserver"
> Set objLocalAdmins=GetObject("WinNT://" & strComputer &
> "/Administrators,Group")
>
> Set memberList=objLocalAdmins.Members
> For Each member In memberList
> WScript.Echo member.name
> Next
>
> --
> Jeffery Hicks
> SAPIEN Technologies - Scripting, Simplified.
>
> blog: http://blog.SAPIEN.com
> Community: http://www.scriptinganswers.com
> Training: http://www.ScriptingTraining.com
> Books: http://www.SAPIENPress.com
> Editor: http://www.primalscript.com
> Tools: http://www.scriptingoutpost.com
>
> "Those who forget to script it are doomed to repeat it."
>
>

"Carlos" wrote:

> Thank you Mr. Jeffrey
>
> "akhdar" wrote:
>
> > Hi friends,
> > can any one help me to create a scripte to list local administrators group
> > on domain computers.
> > Thanks