XP'de Bilgisayar İsmini Kısa Sürede Değiştirebilirsiniz

'Windows XP' forumunda UquR tarafından 22 Mart 2009 tarihinde açılan konu

  1. UquR

    UquR Üye

    Sponsorlu Bağlantılar
    XP'de Bilgisayar İsmini Kısa Sürede Değiştirebilirsiniz konusu Windows XP'de bilgisayar üzerindeki yetkili ismi değiştirmek istiyorsanız eğer, aşağıdaki script'i kullanabilirsiniz.

    Kod:
    Option Explicit

    Set ws = WScript.CreateObject("WScript.Shell")
    Dim ws, t, p1, p2, n, cn, vbdefaultbutton
    Dim itemtype

    p1 = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"

    n = ws.RegRead(p1 & "ComputerName")
    t = "Change Computer Name"
    cn = InputBox("Type new Name and click OK", t, n)
    If cn <> "" Then
    ws.RegWrite p1 & "ComputerName", cn
    End If
     

Bu Sayfayı Paylaş