Tuesday, 4 May 2010

Unattended.txt icin Keyboard Layout Listesi

Bana BDD/MDT de Windows XP Build ozelliklerini konfigure etmek icin Unattended.txt i duzenlerken lazim oldu, sizlerlede asagidaki listeyi paylasmak istedim.

["Keyboard Layout"]
0000041C = "Albanian"
00000423 = "Belarusian"
00000813 = "Belgian Dutch"
0000080C = "Belgian French"
00000416 = "Brazilian (ABNT)"
00000402 = "Bulgarian"
00010402 = "Bulgarian Latin"
00001009 = "Canadian English (Multilingual)"
00000C0C = "Canadian French"
00010C0C = "Canadian French (Multilingual)"
0000041a = "Croatian"
00000405 = "Czech"
00010405 = "Czech (QWERTY)"
00000406 = "Danish"
00000413 = "Dutch"
00000425 = "Estonian"
0000040B = "Finnish"
0000040C = "French"
00000407 = "German"
00010407 = "German (IBM)"
00000408 = "Greek"
00050408 = "Greek Latin"
00010408 = "Greek (220)"
00030408 = "Greek (220) Latin"
00020408 = "Greek (319)"
00040408 = "Greek (319) Latin"
0000040E = "Hungarian"
0001040E = "Hungarian 101-key"
0000040F = "Icelandic"
00001809 = "Irish"
00000410 = "Italian"
00010410 = "Italian (142)"
0000080A = "Latin American"
00000426 = "Latvian"
00010426 = "Latvian (QWERTY)"
00000427 = "Lithuanian"
00000414 = "Norwegian"
00000415 = "Polish (Programmers)"
00010415 = "Polish (214)"
00000816 = "Portuguese"
00000418 = "Romanian"
00000419 = "Russian"
00010419 = "Russian (Typewriter)"
00000C1A = "Serbian Cyrillic"
00010C1A = "Serbian Latin"
0000041B = "Slovak"
0001041B = "Slovak (QWERTY)"
00000424 = "Slovenian"
0000040A = "Spanish"
0001040A = "Spanish variation"
0000041D = "Swedish"
0000100C = "Swiss French"
00000807 = "Swiss German"
0001041F = "Turkish F"
0000041F = "Turkish Q"
00000422 = "Ukrainian"
00000809 = "United Kingdom"
00000409 = "US"
00010409 = "US-Dvorak"
00030409 = "US-Dvorak for left hand"
00040409 = "US-Dvorak for right hand"
00020409 = "US-International"

 

Sunday, 25 April 2010

Script ile IP adresinin DHCP sunucudan alinmasini ayarlamak

Asagidaki vb scriptini kullanarak bilgisayarlarinizin IP adreslerini statik almalari yerine DHCP almalari icin konfigure edebilirsiniz. Dilerseniz bu scripti Group Policy ile belli bir OU da topladiginiz istemcilerinize yayarak Statik Ip yonetiminden Dinamige geciyorsaniz isinizi kolaylastirmak icin kullanabilirsiniz.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next

Tuesday, 6 April 2010

Opening Command Prompt during GUI Setup

I needed that while I am preparing my images with BDD/MDT, it is very simple but very very useful hot-key, to open command prompt during GUI mode setup just press Shift+F10.

Wednesday, 31 March 2010

Opening a website in default browser from command prompt

If you need to open a website in your default browser by using command prompt, you can use the commands below, my recommendation is using the first command with rundll32, because explorer.exe called IE instead of default browser on some computers to open given URL.

rundll32 url.dll,FileProtocolHandler www.microsoft.com

explorer http://www.microsoft.com

Komut satirindan varsayilan browser ile web sayfasi acmak

Eger komut satirindan bilgisayarinizda kurulu olan browserlardan varsayilan olani ile bir web sayfasi cagirma ihtiyaciniz olursa, (az once bizim oldu) asagidaki komutlardan yararlanabilirsiniz, explorer.exe ile olanda bazi bilgisayarlarda halen IE yi cagirdigini gorduk o yuzden tavsiyem rundll32 ile olandir.

rundll32 url.dll,FileProtocolHandler www.microsoft.com

explorer http://www.microsoft.com

Tuesday, 30 March 2010

Script ile SMB calisirlik kontrolu yapmak

Asagidaki basit script ile SMB (Server Message Block) testi yapabilirsiniz.

Dim WshNetwork : Set WshNetwork = WScript.CreateObject("WScript.Network")
computerName = WshNetwork.ComputerName

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim pipeName : pipeName = "\\" & computername & "\pipe\srvsvc"
wscript.echo pipeName


const ForAppending = 8

Dim objPipe : Set objPipe = objFSO.OpenTextFile(pipeName, ForAppending, True)
If Err.Number = 0 Then
wscript.echo "SMB ok"
else
wscript.echo "SMB failed"
End If
objPipe.WriteLine("SMB tested.")
objPipe.Close