Jump to content

Computer per script umbenennen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

Hallo Leute,

 

Bei mir ist eine Niederlassung mit 30 clients umgezogen.

Für mich bedeutet es alle clients müssen umbenannt weren.

Für XP-Clients habe ich mir ein script gebastelt, der lokal augeführt werden muss.

 

'##############PC-rename for XP.vbs########

 

Set WshNetwork = CreateObject("WScript.Network")

machine = WshNetwork.computername

 

strComputer = "."

Set WshNetwork = CreateObject("WScript.Network")

machine = WshNetwork.computername

 

strComputerNeu = Inputbox("Geben Sie neuen Namen für PC ein","PC-Namen ändern für Win XP",machine)

If IsEmpty(strComputerNeu) Then WScript.Quit

 

 

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(strComputerNeu)

'Wscript.Echo err

Next

If err = 0 Then Msgbox "PC-Name wurde von " & machine & " auf " & strComputerNeu & " geändert!"

 

'######################

 

 

Für W2k habe ich alledings nichts gefunden.

 

Hat da jemand eine Idee?

Am besten wäre das ganze, wenn ich es remote machen könnte.

(sprich nach dem neustart anderer name)

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...