Forum

Domaindeki PC nin i...
 
Bildirimler
Hepsini Temizle

Domaindeki PC nin ismini değiştiren script

5 Yazılar
3 Üyeler
0 Reactions
499 Görüntüleme
(@RahmiDemir)
Gönderiler: 2
New Member
Konu başlatıcı
 

Merhabalar;

 domaine dahil olan pc lerin isimlerini değiştiren script arıyorum. Tabii isim değişiceği için AD üzerinde de değişiklikler yapması gerekiyor. 2 ayrı script ile olabilir ama bunu 1 script'te yapabilme imkanımız var mı?

 Teşekkürler

Rahmi Demir

 
Gönderildi : 27/05/2010 02:30

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 33322
Illustrious Member Yönetici
 

Merhaba

aşağıdakiscript i deneyebilirsiniz

Name = InputBox("Enter the new computer name below and click OK to
continue","Rename: Step 1")

Password = "techlab"
Username = "wgmanager"

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"
       End If

Next

DomainName = InputBox("Enter the Domain to join this computer to and
click OK to continue","Rename: Step 1")

DomainPassword = "password"
DomainUsername = "username"

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

' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
   objWMIService.InstancesOf("Win32_ComputerSystem")

       Return =
objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
       If Return <> 0 Then
          WScript.Echo "Rename failed. Error = " & Err.Number
       Else
          WScript.Echo "Rename succeeded." & " Reboot for new name
to go into effect"
       End If

Next  

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 27/05/2010 03:00

(@RahmiDemir)
Gönderiler: 2
New Member
Konu başlatıcı
 

maalesef bu script ile wrkgrp name değişiyor.

 
Gönderildi : 27/05/2010 18:51

(@cozumpark)
Gönderiler: 16307
Illustrious Member Yönetici
 

Bu scripte FQDN yazınca olmuyor mu?

 
Gönderildi : 27/05/2010 18:58

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 33322
Illustrious Member Yönetici
 

http://gallery.technet.microsoft.com/ScriptCenter/en-us/1647bfaa-0feb-4e53-bd90-0fcccbfe2887


 

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 27/05/2010 23:28

Paylaş: