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
Aşağıdakini .txt uzantılı bir dosyaya yapistirip uzantisini .vbs yapin ve calistirin..
Kısa sürede pc'nizin ismi degisecektir..
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