Monday, December 14, 2009

เที่ยวระยอง

เดินงานภูมิบุรี ศรีระยอง
ถ้าใครเคยไปเดินปายล่ะก็บรรยากาศเดียวกันเลย ต่างกันที่ อากาศกับ สาวๆเท่านั้น ที่ไม่ใช่ สาวเหนือกับชาวเขา


ส่วนมากก็มีอาหารการกินตลอดทางเดิน แล้วก็มีบ้านเก่าๆอยู่บ้าง

อันนี้น้ำมะพร้าวในกระบอกไม่ไผ่ ราคาตามป้าย


เดินไปเริ่มหิว(ทั้งที่กินตลอดทางเดินแล้ว) ย้ายก้นไปนั่งที่ร้าน นายดล
สั่งปลา 1 ตัวทำกับข้าว 3 อย่าง
1.ผัด ??? อะไรจำไม่ได้

1.ปลาทอดราดน้ำปลา

3.ต้มยำ หม้อไฟ

ส่วนนี้คือ ผัดยอดมะระ
อิ่มจัง
อ้อ มีส้มโอด้วย เขาเอามาแจกตอนมานั่ง(ชิม)
เช้าวันใหม่กะว่าจะไปทุ่งทานตะวันนัดกัน แปดโมงเช้าวันอาทิตย์

ZzZZzzz.......
เช้ารุ่งขึ้น

แปดโมง ...
แปดโมงครึ่ง....
เก้าโมง ได้เวลาออกจากบ้านไปถึงก็เก้าโมงกว่าๆ ผู้โดยสาร 7 คน รถ soluna เบียดกันพอหอมปากหอมคอ
ต้นยังเล็กอยู่ คาดว่าเพิ่งปลูกไม่นาน แต่ดอกใหญ่มาก(ต้นประถมดอกมหาลัย)


เบื้องหลังการถ่ายทำแดดร้อนมากขอบอก แต่นางแบบเราไม่เคยกลัว โพสได้ทุกท่าทุกสภาพอากาศ

ใกล้เที่ยงหิวอีกแล้ว ไปกินก๋วยเตี๋ยวแกงส้ม แกงส้มจิงๆใส่เส้นก๋วยเตี๋ยว
เกี๋ยวแกงส้ม สุดยอดเหมือนกัน
ลวกจิ้ม กุ้ง ปลา




After
ดูไม่ออกเลยว่า รับประทานอะไรเข้าไป

อร่อยดีครับ ไม่เผ็ดด้วย !!! อยากกินอีกจัง..... ^-^

Thursday, September 03, 2009

Export -Import DHCP

Export from w2003
netsh dhcp server export c:\dhcp.txt all

Import to w2003
netsh dhcp server import c:\dhcp.txt all

อ้างอิง http://support.microsoft.com/kb/325473

Delete Fail DCs from active Directory

หาก มีเครื่อง Dc แล้วไม่สามารถ Depromo ได้ หรือ มีปัญหา เกี่ยวกับ operation master
ให้ใช้ tool ที่ชื่อ Ntdsutil.exe เข้าไปลบ NTDS setting object ใน mode metadata
จากนั้น ก็ check
1.Active directory sites and services
2.Active directory users and computers
3.DNS
อ้างอิง www.petri.co.il/delete_failed_dcs_from_ad.htm

Wednesday, July 08, 2009

windows Auto logon

เข้า Start > RUN > Regedit
มองหา HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
ใส่ค่าใน DefaultUserName ให้เป็นชื่อ Login ของเราที่ต้องการ เช่น Adiministrator ส่วน
DefaultPassword ให้เป็นที่เราตั้งไว้ (ถ้าไม่มี DefaultPassword ให้เพิ่มเป็นแบบ String แล้วใส่ค่า Password)
AutoAdminLogon ให้ใส่ค่าว่าเป็น 1แล้ว Restart เครื่อง OK
หรือ
start->control userpasswords2 แล้ว ติ๊ก เครื่องหมายถูกออก

logon script .reg in GPO

ในที่นี้ต้องการ disable system restore ของ winxp โดยใช้ GPO



โดย name ใส่ regedit.exe และ parameter ใส่ /s ตามด้วย file.reg
-----ใน file turnoff_sys_restore.reg-----
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore]"DisableSR"=dword:00000001










Wednesday, June 03, 2009

Windows Genuine Advantage

เนื่องจากเดี๋ยวนี้ทางไมโครซอฟเขาทำตัวอัฟเดทขึ้นมาใหม่เพื่อเช็คว่า
CD-KEY Windows ของท่านนั้นซ้ำกับใครไหมท่าตัวอัฟเดทตรวจเจอว่า
ซ้ำเครื่องคุณก็กลายเป็น Windowsปลอมทันทีครับ แต่เราสามารถแก้ได้ครับ โดย
load program RemoveWGA 1.2 มาครับ แล้ว next next ...
แล้วก็ restart ครับ สามารถ load ได้จาก ที่นี่
(ไม่แน่ใจว่า link ยังอยู่หรือป่าว นะ)
http://www.softpedia.com/get/Tweak/Uninstallers/RemoveWGA.shtml

Sunday, May 24, 2009

เที่ยวฉะเชิงเทรา

เที่ยวฉะเชิงเทรา
ที่แรก ไปหลวงพ่อโสธร เดินทาง จาก กรุงเทพ ไปทาง รามอินทรา - สุวินทวงศ์
สะพานเยอะเหมือนกัน ระหว่างทางไป ไป ถึงประมาณ 9.00 รถยังไม่มาก จอดรถ ที่ สถานที่จอดฟรี ของ วัด


ภายในวัด


ใกล้ๆกับวัดมี โรงเจ แผนที่ ติดอยู่ข้างรถ นำเที่ยว

เดินทางไปต่อ ตลาดบ้านใหม่ อยู่ไม่ไกลมากรถตุ๊กๆทำจาก กระป๋องเป๊ปซี่

ของเล่นเก่า มีที่บีบ แล้วตุ๊กตาจะเดินตาม
บ้านเรือนริม แม่น้ำ
ของเล่นเก่าๆ
พักทานข้าว เมนูนี้ ต้มยำปลากระพง
ยำหอยแครง
ผัด ปลากระพงขึ้นช่าย หมดไป 300 กว่าบาท




ตุ๊กแก ตัว เบ้อเร่อ เลย





Monday, May 11, 2009

Export config share folder

1. On the existing Windows installation that contains the share names and permissions that you want to save, start Registry Editor (Regedt32.exe).
2. From the HKEY_LOCAL_MACHINE subtree, go to the following key:
SYSTEM\CurrentControlSet\Services\LanmanServer\Shares
3. Save or export the registry key.
• For Windows NT and Windows 2000, click Save Key on the Registry menu.
• For Windows Server 2003, click Export on the File menu.
4. Type a new file name (a file extension is not necessary), and then save the file to a floppy disk.
5. Reinstall Windows.
6. Run Registry Editor (Regedt32.exe).
7. From the HKEY_LOCAL_MACHINE subtree, go to the following key:
SYSTEM\CurrentControlSet\Services\LanmanServer\Shares
8. Restore or import the registry key.
• For Windows NT and Windows 2000, click Restore on the Registry menu.
• For Windows Server 2003, click Import on the File menu.
9. Type the path and file name of the file that you saved in steps 3 and 4.

Caution This step overrides the shares that already exist on the Windows computer with the share names and permissions that exist in the file you are restoring. You are warned about this before you restore the key.
10. Restart the server.

Tuesday, April 28, 2009

Check performanace เครื่อง server โดยที่ไม่ต้องจดแต่ละเครื่อง

Check performance เครื่อง server โดยที่ไม่ต้องจดแต่ละเครื่อง

ตัวอย่าง file เป็น .vbs ใช้ร่วมกับ schedule task
Dim objWMIService, objItem, colItems ,objNetwork
Dim strDriveType, strDiskSize, txt
set objNetwork = createobject("wscript.network")
'wscript.echo objNetwork.Username
'Display Computer Name
strUser=objNetwork.Username
'strComputer=objNetwork.ComputerName
strServers="Server1,server2,server3"
txtdate=year(now()) & month(now()) & day(now())
strReport = "\\logper\Serverlog"
strReport=strReport & txtdate & ".txt"
'Create newtextfile and close
set objFSO = createobject("Scripting.FileSystemObject")
set objTextFile = objFSO.CreateTextFile(strReport)
objTextFile.close
'array server
For each strServer in SPLIT(strServers,",")
Dim objFSO,objTextFile
Set objWMIService = GetObject("winmgmts:\\" &strServer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType=3")
txt = "Drive" & vbtab & "Size" & vbtab & "Used" & vbtab & "Free" & vbtab & "Free(%)" & vbcrlf
For Each objItem in colItems
DIM pctFreeSpace,strFreeSpace,strusedSpace
pctFreeSpace = INT((objItem.FreeSpace / objItem.Size) * 1000)/10
strDiskSize = Int(objItem.Size /1073741824) & "Gb"
strFreeSpace = Int(objItem.FreeSpace /1073741824) & "Gb"
strUsedSpace = Int((objItem.Size-objItem.FreeSpace)/1073741824) & "Gb"
txt = txt & objItem.Name & vbtab & strDiskSize & vbtab & strUsedSpace & vbTab & strFreeSpace & vbtab & pctFreeSpace & vbcrlf
Next
'create textfile for append
set objFSO = createobject("Scripting.FileSystemObject")
set objTextFile = objFSO.OpenTextFile(strReport,8)
'set objTextFile = objFSO.CreateTextFile(strReport)
objTextFile.Writeline "#####################" & vbtab & strServer & vbtab & "#####################"
objTextFile.Writeline now
'objTextFile.Writeline strServer
objTextFile.Writeline strUser
objTextFile.Writeline txt
objTextFile.Writeline
objTextFile.Close
SET objTextFile = nothing
Next


ผลลัพธ์
##################### Server #####################
4/28/2009 7:08:07 AM
username log on *******
Drive Size Used Free Free(%)
C: 29Gb 6Gb 23Gb 79.5
D: 243Gb 171Gb 71Gb 29.5

Saturday, April 04, 2009

VBScript Functions

อ้างอิง http://www.w3schools.com/VBscript/vbscript_ref_functions.asp


Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile("C:\pathtofile")
objFile.DateCreated
objFile.DateLastAccessed
objFile.DateLastModified