Forum

VB Script ile bilgi...
 
Bildirimler
Hepsini Temizle

VB Script ile bilgisayar adı değiştirmek istiyorum

Davut EREN
(@davuteren)
Üye

Merhabalar; VBScript ile;  sysprep yapılmış bir bilgisayar ilk açıldığında vb script çalıştırmayı düşünüyorum, bölge adı ve kullanıcı adı sorsun buna göre bilgisayarın adını nasıl değiştirebilirim

örnek: bölgenizi yazınız diye soran bir pencere çıksın kullanıcının "izmir" yazdığını varsayalım tamam dedikten sonra kullanıcı adı sorsun "deren" yazdığını varsayalım bilgisayar adını izmderen şeklinde değiştirebilen bir scripte ihtiyacım var yardımcı olabilirmisiniz?

Alıntı
Konu başlatıcı Gönderildi : 19/11/2012 21:57

Hakkı Kabadayı
(@HakkiKabadayi)
Üye
Bilgisayar adını değiştirmek için aşağıdaki kodu deneyebilirsin. Geliştirilmesi lazım tabi.
 
 
 
sNewName = InputBox("Bölge Adı Yazınız.","BÖLGE ADI")
Set oShell = CreateObject ("WSCript.shell") 
sCCS = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\" 
sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\" 
sCompNameRegPath = sCCS & "Control\ComputerName\" 
With oShell 
.RegDelete sTcpipParamsRegPath & "Hostname" 
.RegDelete sTcpipParamsRegPath & "NV Hostname" 
.RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName 
.RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName 
.RegWrite sTcpipParamsRegPath & "Hostname", sNewName 
.RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName 
End With ' oShell 
CevapAlıntı
Gönderildi : 20/11/2012 00:48

Orhan Yılmaz
(@OrhanYilmaz)
Üye

Aşağıdaki yazdığım vbs işinizi görür umarım.

İsimde uzunluk, türkçe karakter kontrolü yapmadığı için uygun şekilde girmek gerekli; bölgenin ilk üç harfini alıyor ve bilgisayar ismini büyük harle kayıt ediyor. Öncesinde test edersiniz.

 

dim setUp

dim InputA

dim InputB

dim Result

dim RegRec1

dim RegRec2

dim InputT

dim mBox

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

RegRec2 = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"

Set setUp = WScript.CreateObject( "WScript.Shell" )

InputA =  InputBox("Kullanici ne olsun? ","Yeni Kullanici Adi")

If InputA = -1 Or InputA = "" Then

mBox = MsgBox ("Islemi iptal ettiniz veya bos girdiniz!", 16, "Olmadi madi madi")

Else

InputB =  InputBox("Sube ne olsun? ","Yeni Sube Adi")

If InputB = -1 Or InputB = "" Then

mBox = MsgBox ("Islemi iptal ettiniz veya bos girdiniz!", 16, "Olmadi madi madi")

Else

Result = MsgBox("Sonuc bu: " & Left(InputB,3) & InputA &". Kabul mu?", 292, "Yeni Bilgisayar Ismi")

If Result = vbNo Then 

mBox = MsgBox ("Islemi iptal ettiniz.", 16, "Emin degilsin!")

Else

If Result <> "" Then

InputT = UnEscape(UCase(Left(InputB,3)&InputA))

            setUp.RegWrite RegRec1 & "ComputerName", InputT

            setUp.RegWrite RegRec2 & "NV Hostname", InputT

            mBox = MsgBox ("Bilgisayar ismi degisti. Restart ister misin?", 36, "Iste bu!")

                If mBox = vbYes Then

                    setUp.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"

                End If

        Else

            MsgBox "Bir gariplik var!"

End If

End If        

End If

End If 

 

 

CevapAlıntı
Gönderildi : 20/11/2012 03:17

Davut EREN
(@davuteren)
Üye

Hakkı bey teşekkür ederim. sizinkisi dediğiniz gibi biraz geliştirilmesi gerek. sadece bölge kodunu bilgisayar ismi olarak değiştiriyor.


Orhan bey size ayrıca teşekkür ederim istediğim buydu.


 allah her ikinizdende razı olsun. [:)]

CevapAlıntı
Konu başlatıcı Gönderildi : 20/11/2012 12:10

Paylaş: