kaujazz

Try this On Error Resume Next Dim objWShell Set objWShell = WScript.CreateObject("WScript.Shell") getVersionNumber = objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion") getOsType = objWShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE") If getOsType = "x86" Then If getVersionNumber = "6.1" Or "6.0" Then objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, REG_DWORD objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD ElseIf getVersionNumber = "5.1" Or "5.0" Then objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD Else Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version Number is: " & getVersionNumber WScript.Quit End If Else Msgbox "Unsupported processor architecture: " & getOsType &". Only 32 bit is supported" WScript.Quit End If Do computerName = InputBox("Enter computer name", "VBScript") Loop While computerName = "" If computerName <> "" Then If getVersionNumber = "6.1" Or "6.0" Then Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem") objComputer = "." For Each objComputer In colComputers err = objComputer.Rename(computerName) Next If err <> 0 Then Msgbox "There was an error renaming the machine. Please restart, and try again." Else Msgbox "Machine successfully renamed to " & computerName End If Set objWMIService = Nothing Set colComputera = Nothing ElseIf getVersionNumber = "5.1" or "5.0" Then objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", computerName objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\ParameterS\NV Hostname", computerName Else Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version number is: " & getVersionNumber End If Else Msgbox "Please provide a computer name" End If Do accUserName = InputBox("Enter user name", "VBScript") accUserPass = InputBox("Enter user password (can be blank)", "VBScript") Loop While accUserName = "" If accUserName <> "" Then Set objlocal = GetObject("WinNT://.") objlocal.Filter = Array("user") For Each User In objlocal If LCase(User.Name) = LCase(accUserName) Then Set objUser = GetObject("WinNT://./" & accUserName & ", user") objUser.SetPassword accUserPass objUser.SetInfo Msgbox User.Name & " already exists. The password was re-set." Else Set objComp = GetObject("WinNT://./") Set objUser = objComp.Create("user", accUserName) objUser.SetPassword accUserPass objUser.AccountDisabled=False objUser.Put "UserFlags", 65600 objUser.SetInfo Msgbox User.Name & " doesn't exist. Created the account. The password is: " & accUserPass End If Next Else Msgbox "Please provide a user name" End If Msgbox "Restarting computer" objWShell.Run "shutdown /r /t 10 /f /d P:4:2" Set objWShell = Nothing Creating user may not work on xp, and renaming computer may not work on 7