mass change local admin pw

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

mass change local admin pw

Logged in as: Guest

arrSession:exec spGetSession 2,16,26913

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> mass change local admin pw
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

mass change local admin pw - 10/13/2005 8:28:03 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

'==========================================================================
 '
 ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
 '
 ' NAME: Local Admin Change Password
 '
 ' AUTHOR: Kirrilian
 ' Date  : 2/22/2005
 '
 ' COMMENT: 
 '        usage: cscript local_admin_chpw.vbs password input.txt
 '        the input file should be a list of machines you want to change the
 '        password on. One hostname per line.
 '==========================================================================
 
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set objArgs = WScript.Arguments.Unnamed
 
 'InputFile = "C:\input.txt"
 MyDate = Replace(Date, "/", "-")
 OutputFile = "C:\output-" & mydate & ".txt"
 
 If Not objArgs.Count = 0 Then
     If objArgs.Count = 2 Then
         password = WScript.Arguments.Item(0)
         InputFile = WScript.Arguments.Item(1)
         If fso.FileExists(InputFile) Then
             Set txtStreamIn = fso.OpenTextFile(InputFile)
             Set txtStreamOut = fso.OpenTextFile(OutputFile, 2, True)
             Do While Not (txtStreamIn.AtEndOfStream)
                 strComputer = txtStreamIn.ReadLine
                 chpw strComputer, password
             loop
         Else
             WScript.Echo "Input file doesnt exist."
             usage
         End if
     Else
         usage
     End if
 Else
     usage
 End If
 
 Sub usage()
     WScript.Echo "Usage: cscript local_admin_chpw.vbs password input.txt"
     WScript.Echo "NOTE: if your password has special characters in it you will have to enclose it in quotes"
 End Sub 'usage
 
 Sub printOut (data)
     WScript.Echo data
     txtStreamOut.writeline data
 End Sub 'printOut
 
 Sub chpw (computer,password)    
     Set objUser = GetObject("WinNT://" & computer & "/Administrator, user")
     printOut "changing the password on " & computer & " to " & password
     objUser.SetPassword password
     objUser.SetInfo
 End Sub 'chpw

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

Post #: 1

RE: mass change local admin pw - 10/13/2005 11:39:11 PM

mbouchard

Posts: 1986
Score: 18
Joined: 5/15/2003
From: USA
Status: offline

Nice, if you don't mind, I have a couple suggestions and a comment.

First the comment, please comment your code(no pun intended), while some have not problem following what is going on some do and comments might help prevent questions.

Now to the suggestions:
- You have a the echo if the password has special characters, enclose it in quotes. Why not just enclose it yourself, this way you won't have to depend on the user doing it.
- It seems that both your elses for If Not objArgs.count = 0 and If ObjArgs.Count = 2 do the same thing, why not do away with one IF. Something like

If Not objArgs.Count = 2 then
Usage
Else
Do what you need here.
End If

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to kirrilian)

Post #: 2

RE: mass change local admin pw - 10/14/2005 8:31:05 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

I couldnt find a way to edit my original post so ill have to repost it with fixes

quote:

- You have a the echo if the password has special characters, enclose it in quotes. Why not just enclose it yourself, this way you won't have to depend on the user doing it.

that is if they have shell interpeted special characters in their password like <>& and others.

quote:

- It seems that both your elses for If Not objArgs.count = 0 and If ObjArgs.Count = 2 do the same thing, why not do away with one IF. Something like

fixed

as far as the comments go, i do comment my code but only when im doing something out of the ordinary with it, it creates more time on my already stretched schedule to comment code that is fairly generic.

'==========================================================================
 '
 ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
 '
 ' NAME: Local Admin Change Password
 '
 ' AUTHOR: Kirrilian
 ' Date  : 2/22/2005
 '
 ' COMMENT: 
 '        usage: cscript local_admin_chpw.vbs password input.txt
 '        the input file should be a list of machines you want to change the
 '        password on. One hostname per line.
 '==========================================================================
 
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set objArgs = WScript.Arguments.Unnamed
 
 'InputFile = "C:\input.txt"
 MyDate = Replace(Date, "/", "-")
 OutputFile = "C:\output-" & mydate & ".txt"
 
 If Not objArgs.Count = 2 Then
	password = WScript.Arguments.Item(0)
	InputFile = WScript.Arguments.Item(1)
	If fso.FileExists(InputFile) Then
		Set txtStreamIn = fso.OpenTextFile(InputFile)
		Set txtStreamOut = fso.OpenTextFile(OutputFile, 2, True)
		Do While Not (txtStreamIn.AtEndOfStream)
			strComputer = txtStreamIn.ReadLine
			chpw strComputer, password
		loop
	Else
		WScript.Echo "Input file doesnt exist."
		usage
	End if
Else
	usage
End If
 
 Sub usage()
     WScript.Echo "Usage: cscript local_admin_chpw.vbs password input.txt"
     WScript.Echo "NOTE: if your password has special characters in it you will have to enclose it in quotes"
 End Sub 'usage
 
 Sub printOut (data)
     WScript.Echo data
     txtStreamOut.writeline data
 End Sub 'printOut
 
 Sub chpw (computer,password)    
     Set objUser = GetObject("WinNT://" & computer & "/Administrator, user")
     printOut "changing the password on " & computer & " to " & password
     objUser.SetPassword """ & password & """
     objUser.SetInfo
 End Sub 'chpw

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

(in reply to mbouchard)