Rename Computer

[nicknel9]

How do I take this script and have it ask what name to rename it to.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
err = objComputer.Rename("WebServer")
Next

 

[xwb]

If you want a popup to ask, use inputbox.

If you want to ask from the cmd line (only works with cscript: not with wscript), use WScript.StdIn.Readline to get the input from the user, WScript.StdOut.WriteLine or WScript.Echo to prompt the user.

 

[nicknel9]

Thank you,

I guess being new the game. Where would I want to put the inputbox command?

 

[xwb]

newname = inputbox ("New name")
For Each objComputer in colComputers
    err = objComputer.Rename(newname)
Next

 

[PHV]

A safer way:

newname = InputBox("New name")
If Trim(newname & "") <> "" Then
  For Each objComputer in colComputers
    err = objComputer.Rename(newname)
  Next
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886