Home All Groups Group Topic Archive Search About
Author
6 Jan 2009 2:01 PM
smoki
Hi there

Looking for a VB script to change local Administrator password to be
something specific to include part of mac address and model name etc.
I have found scripts to change it to something random or even a single
specific password but would like to change lots of computers at once with
this.

Thanks

Author
7 Jan 2009 1:26 AM
Al Dunbar
Show quote Hide quote
"smoki" <sm***@discussions.microsoft.com> wrote in message
news:4C1BFFBA-434F-478B-BC54-5209483B5C6C@microsoft.com...
> Hi there
>
> Looking for a VB script to change local Administrator password to be
> something specific to include part of mac address and model name etc.
> I have found scripts to change it to something random or even a single
> specific password but would like to change lots of computers at once with
> this.
Are all your drivers up to date? click for free checkup

Author
7 Jan 2009 1:37 AM
Al Dunbar
"smoki" <sm***@discussions.microsoft.com> wrote in message
news:4C1BFFBA-434F-478B-BC54-5209483B5C6C@microsoft.com...
> Hi there
>
> Looking for a VB script to change local Administrator password to be
> something specific to include part of mac address and model name etc.
> I have found scripts to change it to something random or even a single
> specific password but would like to change lots of computers at once with
> this.

The main problem with having all admin passwords the same is that if a
person knows one, he knows them all. If one system is compromized, having
different passwords reduces the work involved in securing the
infrastructure.

But making them different is only of value if they cannot be deduced from a
pattern. If you were to set one password to
00-11-22-33-44-55-HP-DL180-secretpass, most people would probably be able to
guess what the password is to the HP ML300 with MAC address
11-22-33-44-55-66.

I'd code the script to create random passwords and print them out. These
would be secured in a vault to be used only in emergencies. Normal admin
tasks should then be done by domain accounts added to the appropriate

/Al
administrators groups.
Author
7 Jan 2009 11:13 AM
mbco
Dear Smoki

The best thing you can do is to do what Al Dunbar says. But to help you on your way.
To read a MAC and other computer information you cab use WMI. The next script will give you a chassis type of the computer:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")

For Each objChassis in colChassis
For i = Lbound(objChassis.ChassisTypes) to Ubound(objChassis.ChassisTypes)
Wscript.Echo objChassis.ChassisTypes(i)
Next
Next


A good help is de WMI Administrative tools
http://www.microsoft.com/downloads/details.aspx?familyid=6430F853-1120-48DB-8CC5-F2ABDC3ED314&displaylang=en
Download and install it.
A other tool is de WMI Code Creator. http://www.microsoft.com/downloads/details.aspx?familyid=2CC30A64-EA15-4661-8DA4-55BBC145C30E&displaylang=en
For running a script remote take a look at:
http://www.microsoft.com/technet/scriptcenter/guide/sas_wsh_wwgn.mspx?mfr=true
I hope this will help you

Martijn B -- mbco ------------------------------------------------------------------------ mbco's Profile: http://forums.techarena.in/members/mbco.htm View this thread: http://forums.techarena.in/server-scripting/1098897.htmhttp://forums.techarena.in

Bookmark and Share

Post Thread options