Bilgisayar adini degistirelim

PC hakkındaki genel bilgi ve ipucu paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 46481
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek
Teşekkür etti: 4609 kez
Teşekkür edildi: 3923 kez

Bilgisayar adini degistirelim

Mesaj gönderen velociraptor »

Bu ipucu da forumda verlimisti fakat nedense silinmis ????

Registry ile :
Baslat Çalıstır regedit ile kayıt defterini açın

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

anahtarları altındaki;
"RegisteredOrganization" firmaadı için
"RegisteredOwner" kullanıcı ismi için geçerlidir. bunları çift tıklayarak degistirebilirsiniz.

Manuel:

Bilgisayarıma Sag Tıklayalim > Özellikler > Bilgisayar Adı > Degistir

Resim
Kullanıcı avatarı
skinnycem
Kilobyte4
Kilobyte4
Mesajlar: 680
Kayıt: 19 Mar 2006, 18:32
cinsiyet: Erkek
Teşekkür edildi: 1 kez

Mesaj gönderen skinnycem »

uzun süredir arıyorumdum. Tskler
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 46481
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek
Teşekkür etti: 4609 kez
Teşekkür edildi: 3923 kez

Re: Bilgisayar adini degistirelim

Mesaj gönderen velociraptor »

üstte bilgisayar adini vermemisim registry de asagidaki degerdedir

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
"ComputerName"="sordum.com"
vbs ile

Kod: Tümünü seç

Name = "bilgisayar adi gelecek"
Password = "password gelecek"
Username = "kullanici adi gelecek"

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,Username)
        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
Cevapla