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!

Empfohlene Beiträge

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 zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...