For those who renamed or get the administrator in other language (like administrateur in french), it may be better to dynamically get the administrator name:

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select name from Win32_UserAccount where SID like 'S-1-5-21%-500'",,48)

For Each objItem in colItems

'''''changing password here

  Next

I have no scripting knowledge and I have tired this script and its great, is there anyway to add local user accounts to this as well?

Is there a way to turn off all of the pop up boxes that require user interaction?  I have a large number of server to run this on and I don't want to sit and click "OK" all day.

I figured out that if I delete the lines that have "Write.Echo" then that would take care of my issue.

The script is great! Thank you!!

What would be needed to change this script to output the active directory name?  (ie.  Domain\user)

How do I put this script a user called Administrador (BRAZIL)

e-mail: jnrcarvalho@gmail.com

Thanx buddy it works !!

Works great, but like the comment posted by Ken. "What would be needed to change this script to output the active directory name?  (ie.  Domain\user)" I can't distinguish between the accounts since I have multiple domains.  Any help would be appreciated. email: kp4678@hotmail.com

A great script for Network Administrators

Hi Brian,

Where is the zip file? I can't find it. Please help

But where is the zip file ?

didn´t work, show me the message "did not respond to ping".

I tried with files .csv and .txt

Nice working script. I only removed the wscript.echo lines because it made me click a lot :)

Ha ha ha! Look, the Windows idiots think they can script. You people honestly think DOS is capable of scripting like BASH can?

Enjoy your toy shell, the *nix community will use real command lines.

well... vb scripting host isn't a shell, has nothing to do with the command line and to be honest PowerShell pretty much spanks the day lights out of Bash.

But hey keep up the pithy comments. It was irrational comments like this that got Microsoft to deliver something like PS in the first place. So good work Anonymous Open Source proponent with no clue!

Excellent Script - Thanks for making this available - saving me a lot of time. But.. here is a question - can you make it - either remove the workstations that is has successfully queried from workstations.txt or generate a new worksations file with a list of thoes that failed to respond? :-) Cheer

PS good response to Anonymous - makes you wonder, Why?

I know zero about scripting so I am struggling with this. Do I take all the machines from AD (export them) and put them in a text file? Once I have this file then just run it against that file? I am sorry for my ignorance. What's sad is that I am an MCP, MCSE, MCTS, MCITP. I am very embarrassed but I have never had the need to script until now and I never learned it. I am a quick learner though so if anyone has the patience to assist me, I can talk shop, I am just confused.

To "anonymous". Why would you be even on this website when BASH commands rule? You would think you would have no need to come here and look at the website in the first place. Second, if you want to be an "Internet tough guy" at least have the balls to put your name and email address. You have mine, you can contact me anytime and we can talk you coward.

Thank you Brian for this awesome resource. I am sure when I get a clue about scripting then I will be able to have a field day with this! If you need help with Spanish stuff I speak and write it fluently.

Esteban Blanco

this script is GREAT!! really appreciate it..thanks.

Seems like it will work well, however, I am receiving an error when I start it up:

Line:50

Char: 3

Error: The network path was not found.

Code: 80070035

Source: (null)

Any help would be greatly appreciated.

Thanks for the posting of this script. I found it very helpful since my skills at writing these are almost null.

@Rich

I recieve the same error, because the one of the computers from a list has the duplicate ip address. After removing from the list, everything running fine.

Thanks for script, its very usefull.

Nice Script..Thanks

I would think this script is what I need. But a message appears: "Computername did not respond to ping". a manual ping however gives me a response as an answer. Any idee,

Thanks

Eric

This is nice script which made life easy in collecting local admins on multiple servers. However, how would I get the output with domain name like domain\user or machine\user. Any help is greatly appreciated.

Thank you again for your script.

Thank you very much for this script. It seems to work very well, however i'm running into a problem where every now and then it comes to machine on my txt file and the script just stops. In viewing the log entry it always shows that machine responded to a ping. If i edit the txt file remove the computer, it will resume, but eventually does the same thing on another computer. I know that the on error resume command is in your script. Was wondering if you had any advice?

Thanks again, this is a great tool

RE: #29

Think i figured it out. Looks like resume on error was commented out. Its working beautifully now, thank you again so much.

Instructions for those who are confused...

Extract the zip file to some folder.

Open the VBS file in a standard text editor like notepad.

Modify this line:

Const inputFile = "c:\work\local\workstations.txt"

And input a valid path to a file named workstations.txt.

I also highly recommend you edit the rest of the file to eliminate any popups. To do so, simply place a ' mark (next to the enter key) at the very beginning of each line that contains the word echo. So this:

WScript.Echo line & " responded to ping"

becomes this:

'WScript.Echo line & " responded to ping"

Workstations.txt should contain a list of PCs on your network, only the PC name. No other characters like backslashes. Example:

pcname1

pcname2

pcname3

You can get a list of PCs fairly easily as follows:

open a DOS box, enter:

net view > pclist.txt

Open pclist.txt with excel, do a text to columns, first filtering on the \ character, then filtering on tabs and spaces. When complete, one of the columns should contain only a PC list. Copy and paste this list into a new text file, it should be the same name and path as you modified the VBS script above.

Thanks for the script.

Hi,

Can you Please provide the script which collect all the local groups and their members from list of machines.

i will be thanksfull if you can also add the code to get the details of shared folders and the seucrity permission to these shared folders.

Thanks

Hi,

Can you Please provide the script which collect all the local groups and their members from list of machines.

i will be thanksfull if you can also add the code to get the details of shared folders and the seucrity permission to these shared folders.

Thanks

Pingback from Controllare appartenenza gruppi locali via script | hilpers