Below script takes input as list of computer names in the txt file and also takes group name or user account which you wanted to all as member of Administrators in all the computer listed in the txt file
on error resume next
dim filesys,filetxt
const ForReading = 1
Complist = Inputbox("Enter the path of text file which has list of Computers")
Complist = trim (Complist)
if Complist = "" then
wscript.echo "You did not Enter any thing!! "
wscript.quit(0)
end if
GroupAdd = Inputbox("Enter the Group name which you wanted to Add to the local computer Group")
GroupAdd = trim (GroupAdd)
if GroupAdd = "" then
wscript.echo "You did not Enter any thing!! "
wscript.quit(0)
end if
Set filesys = CreateObject("Scripting.FileSystemObject")
set filetxt = filesys.OpenTextFile(Complist,ForReading)
group = "WinNT://boston/" & GroupAdd
do Until filetxt1.AtEndOfStream
strComputer = filetxt.Readline
strComputer = trim(strComputer)
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
objGroup.Add group
err.clear
loop
You can find the copy of the file from the below location
Shameless Null Neutrality
You Rock Maaga! all the very best!
Pingback: best video card for gaming
Hi,
Do i need to modify any thing in the script. I ran the script and given test file path no staus from the script.
Regards,
Boopathi