Solved

Rename and Reboot Machine

Posted on 2009-07-06
2
624 Views
Last Modified: 2013-11-26
Im trying to write this script that will rename and reboot the machine. The first portion shown runs fine, the dialog box comes up and I enter in my new pc name.  The second part is the vb command to reboot the machine, it actually calls a batch file. The script runs the first portion and then ends.  However if I take the second half and create a separate vb script it runs fine.

I have two questions:

1. How can I get the entire script to run? Am I missing something?
2. Is there any way I can create a list box rather than an Input Box and prepopulate the listbox with a list of names?
Name = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1")
 

Password = "password"

Username = "admin"
 

Set objWMIService = GetObject("Winmgmts:root\cimv2")
 

' Call always gets only one Win32_ComputerSystem object.

For Each objComputer in _

   objWMIService.InstancesOf("Win32_ComputerSystem")
 

       Return = objComputer.rename(Name,Password,User)

       If Return <> 0 Then

          WScript.Echo "Rename failed. Error = " & Err.Number

       Else

          WScript.Echo "Rename succeeded." & " Reboot for new name to go into effect"

       

        Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & mname).ExecQuery("select * from Win32_OperatingSystem where Primary=true")

        for each OpSys in OpSysSet

            OpSys.Reboot()

next

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run("%comspec% /K C:\DemoUtilities\Installs\Windows\Rename_machine\shutdown.bat"), 1, True

end if

next

Open in new window

0
Comment
Question by:dlnewman70
2 Comments
 
LVL 1

Expert Comment

by:nailgg
ID: 24791812
Hi dlnewman70;

I debugged your code in vb6, and found some little mistakes.

For example the dimension you defined as "Return" is not a suitable word to being a dimension name. Change it as "ReturnX" for example.

There is a property named as "Name" too, you must change it too.

I hope these can help you.
0
 

Accepted Solution

by:
dlnewman70 earned 0 total points
ID: 24794827
Found solution

Dim Text, Title

Dim WshNetwork         ' Object variable

Text = "Networking information" & vbCrLf & vbCrLf

Title = "Rename Hostname?"

 

' Create a new WshNetwork object to access network properties.

Set WshNetwork = WScript.CreateObject("WScript.Network")

 

Text = Text & "Computer name : " & WshNetwork.ComputerName & vbCrLf

Text = Text & "Domain : " & WshNetwork.UserDomain & vbCrLf

Text = Text & "User name : " & WshNetwork.UserName & vbCrLf & vbCrLf

Text = Text & "Do you want to rename this computer?"

 

If MsgBox(Text, vbYesNo + vbQuestion, Title) = vbyes Then

        Dim strComputerName, objWMIService, objComputer, returnCode

 

        strComputerName = InputBox("Enter a new machine name for this computer:", "Rename Computer")

 

        If strComputerName <> "" Then 

 

                Set objWMIService = GetObject("Winmgmts:root\cimv2") 

 

                ' Call always gets only one Win32_ComputerSystem object. 

                For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem")

                        ReturnCode = objComputer.Rename(strComputerName) 

                Next

                If ReturnCode <> 0 Then

                        MsgBox "There was a problem changing the computer name.  System error code : " & ReturnCode

                Else

                        If MsgBox("Changes made.  Do you wish to restart the computer?", vbYesNo + vbQuestion, Title) = vbyes Then

                                                                                                                                'Set objShell = WScript.CreateObject("WScript.Shell")

                                'objShell.Run "rundll32 shell32.dll,SHExitWindowsEx 2", 1, False

                                                                                                                                WScript.Echo "Rebooting..."

                                                                                                                                set objWSHShell = WScript.CreateObject("WScript.Shell")

                                                                                                                                objWSHShell.Run "shutdown.exe /r"

                        Else 

                                MsgBox "You must restart computer for changes to take effect"

                        End If 

                End If 

        End If 

End If

Open in new window

0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Learn the basics of lists in Python. Lists, as their name suggests, are a means for ordering and storing values. : Lists are declared using brackets; for example: t = [1, 2, 3]: Lists may contain a mix of data types; for example: t = ['string', 1, T…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now