Xp de kullanici adi degistirme (vbs)

20
EXE RANK

SpoinieN-

Fexe Kullanıcısı
Puanları 0
Çözümler 0
Katılım
27 May 2010
Mesajlar
29,079
Tepkime puanı
0
Puanları
0
Yaş
27
Web sitesi
www.cankskn.com
SpoinieN-
Aşağıdakini .txt uzantılı bir dosyaya yapistirip uzantisini .vbs yapin ve calistirin..

Kısa sürede pc'nizin ismi degisecektir..

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
 
Geri
Üst