Photo Gallery
Member List
Search
Calendars
FAQ
Ticket List
Log Out
Forums
Register
Login
My Profile
Inbox
Address Book
My Subscription
My Forums
Change the local Admin Password within Domain
Logged in as: Guest
arrSession:exec spGetSession 2,16,47593
Active Users: There are
0
members and
0
guests.
Users viewing this topic: none
Printable Version
All Forums
>>
[Scripting]
>>
Post a VBScript
>> Change the local Admin Password within Domain
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!
Page:
[1]
Login
Message
<< Older Topic
Newer Topic >>
Change the local Admin Password within Domain -
5/25/2007 3:44:20 AM
torstenj
Posts: 9
Score: 2
Joined: 6/6/2006
Status:
offline
Snipe it and create a VBS. Add it to the default policy within the domain.
The local login should be valid for every user within the domain.
Regards,
Me!
'################################################################# 'Change Local User Password for Admin Accounts within the Domain 'Add as Loginscript to policy or run it localy 'Torsten Jahnke 'Version 1.2.4 (c) 2007 '################################################################# 'Contact me for questions and hints at: [email=torsten.jahnke@insight.com]torsten.jahnke@insight.com[/email] '################################################################# '##################### Search and Replace ######################## '################################################################# 'LOC-Admin = The name of the Local Admin. Windows default is "Administrator" 'LetMeIn = The password for this account. 'Local Admin = The full name. Normaly it is Firstname and Lastname 'Just for fun = Description - we need to know that Admin is the Admin account '################################################################# '################################################################# '################################################################# 'Let us here! We need some initialization of this script. Basics. '################################################################# Set WshShell = WScript.CreateObject("WScript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") strCOMPUTERNAME = WshNetwork.ComputerName Set objComputer = GetObject("WinNT://" & strCOMPUTERNAME & ",computer") '################################################################# 'Turns error processing on, disables error prompts in the interface 'and allows the script to continue... '################################################################# On Error Resume Next '################################################################# 'Connect to user object to see if account is a local user 'If you want to rename the Local Admin use a Policy for it! '################################################################# Set objUser = objComputer.GetObject("user", "LOC-Admin") '################################################################# ' Check if the local user exists... '################################################################# If Err.Number = 0 Then On Error Goto 0 objUser.SetPassword "LetMeIn" '################################################################# '...now check if account is enabled... '################################################################# objuser.accountdisabled = FALSE '################################################################# '...this account should never expire... '################################################################# lngUF = objUser.Get("userFlags") lngUF = lngUF Or ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", lngUF '################################################################# '...and finaly we activate the account! Great! '################################################################# objUser.SetInfo '################################################################# 'Just in case - the account might not exist! 'In this case - ask your admin for wake up & do his job! :) '################################################################# Else On Error Goto 0 '################################################################# 'Let's create the account & take this basic informations... '################################################################# Set objUser = objComputer.Create("user", "LOC-Admin") objUser.SetInfo objUser.FullName = "Local Admin" objUser.Description = "Just for fun" objUser.SetPassword "LetMeIn" '################################################################# '...set the Password to never expire... '################################################################# lngUF = objUser.Get("userFlags") lngUF = lngUF Or ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", lngUF '################################################################# '...activate the settings above... '################################################################# objUser.SetInfo '################################################################# '...and add the user to the local Admin group! Usually! :) '################################################################# Set objGroup = GetObject("WinNT://" & strCOMPUTERNAME & "/Administrators,group") objGroup.Add(objUser.ADsPath) End If '################################################################# 'Clears any error numbers returned from above lines. That's it! 'Give a shit to logfile - and end the script. 'Currently think about to add an Evenlog entry. But is it a need? '################################################################# Err.Clear WScript.Quit
Post #: 1
RE: Change the local Admin Password within Domain -
6/6/2007 6:06:09 AM
zokissima
Posts: 13
Score: 0
Joined: 3/26/2007
Status:
offline
Supremely useful. Thx.
(in reply to
torstenj
)
Post #: 2
RE: Change the local Admin Password within Domain -
6/6/2007 6:59:14 AM
DiGiTAL.SkReAM
Posts: 1152
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status:
online
Personally, I prefer using pspasswd.exe from Sysinternals.
_____________________________
"Would you like to touch my monkey?" - Dieter (Mike Meyers)
"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury
(in reply to
zokissima
)
Post #: 3
If you found our site useful please link to us
<a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>
.
All Forums
>>
[Scripting]
>>
Post a VBScript
>> Change the local Admin Password within Domain
Page:
[1]
Jump to:
Select a Forum
All Forums
----------------------
[Welcome]
- - Forum Rules
- - Test Posting Messages
- - New Member Area/Introduction
[Scripting]
- - WSH & Client Side VBScript
- - WSH & Client Side VBScript Tutorial
- - Post a VBScript
- - Windows PowerShell
- - ASP
- - ASP.NET
- - Windows Script Components
[General Forum]
- - Other Programming/Scripting Languages
- - Suggestions & Feedback
- - Off-Topic Lounge
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
Forum Software ©
ASPPlayground.NET
Advanced Edition
2.5.5 ANSI
All Forums >> [Scripting] >> Post a VBScript >> Change the local Admin Password within Domain 
Printable Version
Change the local Admin Password within Domain - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread