

Coklu Bilgisayar İsmi Değiştirmek - Multiple Rename Computer Name
-
Yanımda kaydedecek bişi yoktu, dursun burada hemde millet yararlanır :)
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("WebServer")
NextNot : vbs dosyası olarak kaydedin, webserver bilgisayar ismi olacak...
-
Güzelmiş eyvallah rene hocam..
-
saolasın Üstadım
-
win server 2k3 ve win xp de calisir.
Toplam Hit: 1496 Toplam Mesaj: 4