Bilgisayar İsmini Değiştirelim (Script)
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
Gerekli düzenlemeyi yaptıktan sonra (Terminal48) uzantısını VBS yapıp kaydediyoruz. Örnekte, scriptin çalıştığı bilgisayarın ismi Terminal48 olarak değişir.
Etiketler: Bilgisayar İsmini Değiştirelim (Script)
Yorum gönder !
Yorum gönderebilmek için
yapmalısınız.