Forum
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?
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
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. [:)]