Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
4
Yazılar
3
Üyeler
0
Reactions
1,073
Görüntüleme
Konu başlatıcı
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?
Gönderildi : 19/11/2012 22:57
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
Gönderildi : 20/11/2012 01:48
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
Gönderildi : 20/11/2012 04:17
Konu başlatıcı
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. [:)]
Gönderildi : 20/11/2012 13:10
