Script ile Bilgisayar ismi Degistirme ( Domain or Workgroup)

Her 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