My First Script - Create New Local User Account and/or Change Local Computer Name

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

My First Script - Create New Local User Account and/or Change Local Computer Name

Logged in as: Guest

arrSession:exec spGetSession 2,16,44024

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

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> My First Script - Create New Local User Account and/or Change Local Computer Name
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

My First Script - Create New Local User Account and/or ... - 3/2/2007 7:22:11 PM

savj14

Posts: 35
Score: 0
Joined: 2/28/2007
Status: offline

My Script is complete. I have tested almost every case and it does work pretty nicely. Look at it and see if there is some optimization and/or anything that would make this better. Don't be too harsh as this is my First attempt at Scripting. But input good or bad is appreciated.

I would still like to use a Visual Basic Language of some sort and convert the script. I want to make this an actual piece of software not just a script. How hard would this be to achieve. If anyone can do this or help me do this please let me know, as I would like to do this righ away.

Well here it is my finished Script (I Hope)

' This code creates a local user account and Changes the Computer Name for a Local Machine. Both Modes are Optional
' This script is provided as is. Do not come to me if something goes wrong with you computer.
' Please give credit to me and leave the header comments in tact.
' This script was developed by [email=savj14@yahoo.com]savj14@yahoo.com[/email]

' ------- TEXT USED ----------
Title = "New User Tools v1.1"
strGroup = "Administrators"
' ------ END TEXT USED --------
'---- RETRIEVE COMPUTER NAME ---------
Dim objNetwork, strComputerName
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
'---- END RETRIEVE COMPUTER NAME --------
'------ GET INPUTS FROM USER ----------
Dim strUserName, strFullName, strPassword
If Msgbox("Would you Like to Add a User?" , vbYesNo, Title) = vbYes then
Call GetInputs
Else Call Rename_Computer
Sub GetInputs
Do
strUserName = InputBox("Please Enter User Name.",Title)
If strUserName = ""Then 
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer()
End If
End if
Loop Until strUserName <> ""
Do
strFullName = InputBox("Please Enter Your Full Name.", Title)
If strFullName = "" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strFullName <> ""
Do 
strPassword = InputBox("Please Enter Password.",Title)
If strPassword="" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strPassword<>""
Call AddUser()
End Sub
' ------ END INPUTS ---------------
' ----- CODE TO ADD USER ----------
Sub AddUser
Set objSystem = GetObject("WinNT://" & strComputer)
Set objUser = objSystem.Create("user", strUserName)
objUser.FullName = strFullName
objUser.SetPassword strPassword
objUser.SetInfo
Call MsgBox ("User Name: " &  strUserName & vbCrLf & "Password: " &strPassword & VbCrLf & VbCrLf & "Please Write This Information Down.", 64, Title)
Call AddGroup
End Sub
' ----- END CODE TO ADD USER -------
' ----- CODE TO ADD USER TO GROUP -------
Sub AddGroup
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)
objGroup.Add("WinNT://" & strComputer & "/" & strUserName)
Call Rename_Computer()
End Sub
' ----- END CODE TO ADD USER TO GROUP -----
' ------ RENAME COMPUTER ------
Sub Rename_Computer
Dim strNewComputer, objNetwork, objWMIService, colComputers
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
If Msgbox("Would you Like to Change the Computer Name?" , vbYesNo, Title) = vbNo Then
Call CleanUp()
Else Do
strNewComputer = InputBox("Please Enter a New Computer Name.",Title)
If strNewComputer = "" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbYes Then
Call CleanUp()
End If
End If
Loop Until strNewComputer <>""
For Each objComputer in colComputers
err = objComputer.Rename (strNewComputer)
Next
End If
Call Reboot()
End Sub
'------ END RENAME COMPUTER -----------
'------ REBOOT MACHINE -------------
Sub Reboot
If Msgbox("Your Computer Needs to Reboot Before Changes Can be Made. " & vbCrLf & "Would you Like To Reboot Now?" , vbYesNo, Title) = vbYes then
Dim oWMI, oOS, obj
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
On Error GoTo 0
For Each obj in oWMI.ExecQuery("Select * from Win32_OperatingSystem")
Set oOS = obj
Exit For
Next 
Call ShutDownNow()
End If
End Sub
Sub ShutDownNow
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
oOS.Win32shutdown EWX_REBOOT '+ EWX_FORCE
End Sub

' ------- END ROOT MACHINE ---------

'------ EXIT -----

Sub CleanUp
Call MsgBox ("Click OK To Exit the Program",0, Title)
WScript.quit
End Sub
End If
'----- EXIT ------

Someone Please help me out on my next step of this project. Creating this in Visual Studio.

Post #: 1

RE: My First Script - Create New Local User Account and... - 4/4/2007 9:03:58 PM

EugeneTan

Posts: 1
Score: 0
Joined: 4/4/2007
Status: offline

no, ur script only works on window vista or window xp. But it doesn't work in window 2000

(in reply to savj14)

Post #: 2

RE: My First Script - Create New Local User Account and... - 4/5/2007 1:46:53 AM

ebgreen

Posts: 4408
Score: 29
Joined: 7/12/2005
Status: online

I don't see where he claims that it will work on 2K.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to EugeneTan)

Post #: 3

RE: My First Script - Create New Local User Account and... - 3/14/2008 7:34:35 AM

nirliq

Posts: 4
Score: 0
Joined: 3/12/2008
Status: offline

Thank you for your post. I was trying to find out how to do some of the things that your scripts does.
Very useful information.

Thanks

(in reply to ebgreen)

Post #: 4

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 >> My First Script - Create New Local User Account and/or Change Local Computer Name

Page: [1]

Jump to:

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