Script ile Bilgisayar ismi Degistirme ( Domain or Workgroup)


notebook sata driverHer IT çalisanlari mevcut networklerinde çesitli revizyonlar yapmak zorunda kalirlar. Bu gibi durumlarda asagidaki script ile bilgisayar isimlerine bir standart getirebilirsiniz.

Terminal48 yazan yeri yeni bilgisayar ismiyle degistiriyoruz ve GPO ile startup script olarak atiyoruz.

* Antivirüs programlari bu tarz scriptlerin çalismasini engelliyor. Bu noktaya dikkat edin.

* Bir ikincisi scriptin çalisacagi oturum bilgisayar ismini degistirme yetkisinde olmali. (Localde tiklayarak çalistirma durumlari)

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("Terminal48")
Next
 

Hakkında ÖmerKARADENIZ
https://omerkaradeniz.wordpress.com/hakkimda/ https://www.linkedin.com/in/omerkaradeniz

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: