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

Monday, March 30, 2009

Hibernate ใน vista

พอดีฮาร์ดดิสก์บน Partition ของ Vista เหลือน้อย เหลือแค่ 2 G เอง check ไฟล์ ดูว่าพื้นที่มันหายไปไหนหมด เลยไปพบว่า โดนเอาไปทำ hibernate file อยู่ 3GB กว่า (c:\hiberfil.sys) จะลบทิ้งก็ลบไม่ได้ ไปค้นใน google มีคนบอกให้ใช้ Command-Line รัน CMD ก่อนแบบ Administrator (กด shift)แล้วสั่ง ปิด Hibernate ใน Vista
powercfg –h off
ได้คืนมา 3 G กว่า แต่ใส่ ram ไป 4G เห็น แค่ 3 G(vista 32 bit)


Sunday, January 04, 2009

ปางอุ๋ง-ปาย-ห้วยน้ำดัง-ดอยอินทนนท์-เขื่อนภูมิพล


การเดินทางอันยาวไกลครั้งแรกของผม โดยรถยนต์ Toyota soluna จากชลบุรี เดินทางขึ้น แม่ฮ่องสอน
ออกเดินทางจาก ชลบุรี แวะรับ สมาชิกที่กรุงเทพอีก 2 คน เวลาออก เดินทาง 10.00 วันที่ 26/12/2008 จาก กรุงเทพ
แวะพักรถ ที่ ปั้มน้ำมัน jet แถวปางปะอิน เวลา 23:34 โดยรอเพื่อนมาสมทบ อีก 1 คัน รวม ทริปนี้มีทั้งหมด 7 คน
ศึกษาแผนที่และเส้นทาง การเดินทาง
แวะเติมน้ำมันอีกครั้ง (จังหวัดตาก) ระหว่างการเดินทางมี ฝนตกเล็กน้อย ถึง หนักมาก มองออกหน้าต่าง ขาวไปหมดเลย และเส้นทางก็ ขรุขระมีทั้งโค้ง และทางลาดชัน โดยช่วงใกล้ถึงลำปาง ตลอดสองข้างทาง ไม่มีอะไรเลย นอกจากต้นไม้
ถึงเชียงใหม่ เกือบ แปดโมงเช้า หาเส้นทางไปปาย กันอยู่นาน เนื่องจากแผนที่ ที่มีอยู่ จุดที่จะเดินทางไป ดัน เป็น รอยเจาะตรงก้างงู พอดี หลงในเชียงใหม่เกือบ 1 ชั่วโมง

หลังจากหาเส้นทางต่อได้แล้ว ก็ แวะ ปั้ม Jet เพื่อ ล้างหน้าแปรงฟัน เนื่องจาก คนข้างๆ บอก เริ่มได้กลิ่นแปลกๆ

มุ่งหน้าสู่ปาย-ปางอุ๋งต่อ
ระหว่างทางผ่านจุดชมวิว เลยแวะเก็บภาพ
4 สาวที่ไปด้วยกันใน ทริปนี้ ... เดินทางต่อ


เส้นทาง โค้ง เยอะมาก และ ก็ ทางลาดชันด้วย (ปาย)

เส้นทาง โค้ง เยอะมาก เช่นกัน โหดกว่า และ ก็ ทางลาดชันด้วย (ปางอุ๋ง) รถสวนกันบางครั้งต้องพับกระจก
สองข้างทางเป็นเหว

ถึงแล้ว บ้านรวมไทย เวลา 15:20 27/12/2008

และแล้วก็ถึง ปางอุ๋ง

หาทำเล การกางเต๊น เลือกใกล้ๆ แม่น้ำนี่แหละ (ตรงที่นอนเป็นเนินด้วย ไหลตลอดคืนเลย)

หลังจากกางเต๊น เรียบร้อย 3 หลัง ก็ เตรียมทำอะไรกินกัน Regency เพื่อความอบอุ่นอาหารค่ำ กินท่ามกลาง เปลว แสงเทียน โรแมนติกมากๆ (อากาศตอนนี้ ไม่น่าเกิน 10องศา)


20.04 เสื้อกันหนาว พอช่วยได้บ้าง หมด Recency ไป 1 ขวดกับ อีกครึ่งขวด

นอนกี่โมงจำไม่ได้ แต่(ปางอุ๋งหนาวมาก)
ตื่นเช้ามา เวลา 6.44 28/12/2008 รู้สึกว่า หมอกไม่ค่อยมีเท่าไหร่
ก่อไฟ กินอาหารญี่ปุ่นและ กาแฟตอนเช้า

ก่อไปได้ซักพัก ไฟยังไม่ติด มีแต่ควันเนื่องจาก ถ่านชื้นมองไป ข้างหน้า นี่ มัน หมอก หรือ กันควันนี่
ควันที่พัดไป มันลง แม่น้ำหมดเลย เหมือนมาก

ภาพนี้ ข้างหลังคือควันไฟ (ไม่ได้ตั้งใจจัดฉาก ^-^)คนวิ่งมาดูกันเต็มเลย ถ่ายรูปด้วย พอเห็น มี คนก่อไฟอยู่ก็ เฮ้อ นะ ไหนๆ ก็ไหน แล้ว เลยตามเลยแล้วกัน


มี หงส์ ลอยน้ำมา มี ตัว เดียว

อีกมุมหนึ่งในช่วงเช้า
นี่ด้วย
อากาศ หนาวทำให้คนเปลี่ยนไปได้ หรือว่าเมา ควันไฟนี่มันคน ก่อ ควันไฟนี่


ต้นกาแฟ สดๆเลยจากต้น
ส่ง ไปรษณียบัตร กลับบ้าน

หมู่บ้าน ปางอุ๋ง บางบ้านเป็น Home Stay
ดอกไม้ งามๆ



ทางโค้ง มากๆ หัก ศอก ขวา
หักขวาไม่ทันคืนพวงมาลัยเลย เจอทางโค้ง หัก ศอก ซ้ายอีกแล้ว เป็น อย่างนี้ อยู่ หลายโค้ง

น้ำตกผาเสื่อ 10.22 28/12/2008


อากาศ เปลี่ยนจิตใจคนก็เปลี่ยน
11.57 28/12/2008 ถึงแม่ฮ่องสอน
คุณคือ 1 ในผู้พิชิต 1,864 โค้ง (ขามาอย่างเดียวหรือเปล่า ถ้ารวมขากลับก็ 3,728 โค้ง โห สุดยอด)
จุดชมวิว กิ่วลม ที่อำเภอปางมะผ้า14.05 28/12/2008
นี่หรือ คือ เส้นทางที่เรามา

ดารานักแสดงฝ่าย ชายถึงปาย 16.30 28/12/2008 ได้บ้าน 1 หลังเป็นที่พัก ราคา พันกว่าๆ (ไม่ต้องกางเต๊น)

ไม่แน่ใจว่าเป็นแม่น้ำปายหรือเปล่าบรรยากาศตอนเย็น เดินตั้งแต่ หก โมง
มีร้านอาหาร อิสลามด้วย คน อิสลาม เยอะมาก


สถานีขนส่ง


เสื้อผ้า screen สีสันสดใส


เด็กสาว 2 คนกำลังเล่น ดนตรีไทย

นั่งจิบเบียร์ ใน ปาย สุดยอด น้ำแข็งไม่ต้อง เนื่องจากเบียร์ในแก้วเย็นตลอดดื่มได้ 2 ขวด ไม่ไว้แล้ว หนาว บรื๊ออออ สุดท้าย ชาเขียวก่อนนอน


นอน เกือบเที่ยงคืน 23.45 28/12/2008
ตื่น 7.30 29/12/2008 เช้าวันใหม่ กับ อาหารเช้า


บรรยากาศ ยามเช้าที่ ปายเดินทางต่อไปที่ ศูนย์วัฒนธรรม จีน ยูนาน 9.58 29/12/2008
ขาหมู ยูนานขึ้นชื่อมาก สั่งมาลอง 1 ที่ (น้ำจิ้มเด็ด)


ต้มไก่ดำ ดำมากขอบอกทั้งเนื้อทั้งกระดูก เพิ่งรู้ว่าเกลียดเข้ากระดูกดำเป็นไง
หมั่นโถ
มื้อนี้อิ่มไป เจ็ดร้อยกว่าบาท
เดินทางไป น้ำตกต่อ 12.13


ร้าน coffee in love


สะพานประวัติศาสตร์



13.21 29/12/2008 ถึงห้วยน้ำดัง ค่าเข้า รถยนต์ คันล่ะ 30 บาท ผู้ใหญ่ 40 บาท
จุดที่กางเต๊น อยู่ไกลมาก เดินขนของ เหนื่อยเลย
ช่วยกันกางเต๊น ขยันขันแข็ง

คราวนี้จะทำหมอก ที่ ห้วยน้ำดังล่ะ เตรียม ก่อไฟพร้อม หลังจากก่อแล้ว มีแต่ควัน สงสารเต๊นอื่นเหมือนกัน ที่ต้องดมควันไฟ เนื่องจาก จุดที่กางอยู่เหนือลม เต๊นอื่นเค้าใช้ เตาแก็ส กัน ทันสมัยน่าดู พระอาทิตย์ เริ่มลับขอบฟ้า ช่วงนี้ บางคนเริ่มถยอยอาบน้ำ ขอบอก น้ำ หนาวมาก เหมือนเอาน้ำเย็น มาอาบเลย ขันแรก ราด หัว ซู่ หัวใจจะหวาย ที่เหลือชาไปหมด อะไรที่ยืดได้หดได้ มัน หดอย่างเดียวเลย
นั่งล้อมรอบ เตาถ่าน เพื่อความอุ่น

รายการอาหาร Regency ที่เหลือครึ่งขวดจาก ปางอุ๋ง
อากาศ หนาวกว่า ปางอุ๋ง+ปายซะอีก เหนื่องจาก มีลม
6.30 30/12/2008 ตื่นเช้ามาถ่ายรูป ทะเล หมอก ของจริง ครับ ไม่มี ควันครับคราวนี้
คนเยอะมาก มาชุมนุมเพื่อเก็บภาพ


ทานอาหารเช้าก่อนเดินทางไป ที่จุดชมวิวห้วยน้ำดัง

แหมทำกันไปได้แต่ล่ะคน ไม่รู้ ตอนนั้น อะไร ดลใจ
เดินทางไปต่อ ที่ ดอยอินทนนท์ แวะ ปั้มเพื่อเติมพลังกันหน่อย 12.23 30/12/2008
16.43 30/12/2008 ถึงยอดดอยอินทนนท์ อากาศ หนาวมาก 5 องศา
กลับรถลงมาพักยังจุดกางเต๊น เนื่องจาก ขับเลยขึ้นไป
บริเวณ รอบๆที่กางเต๊น


มีป้ายปัก แต่ ก็กางได้ แล้วดู ควันที่ลอยไป ซิ สงสัย ได้กิน นก รมควันแน่อาหารมื้อนี้ นกรมควัน เฮ้ยไม่ใช่ มองดูดีๆ จะเห็นสิ่งประดิษฐ์ใหม่ บนขวด Regency

ตื่น 5.00 เพื่อเดินทางสู้จุดที่สูงที่สุด และก็หนาวมากด้วย จุดมุ่งหมายครั้งนี้ คือ ดู แมงคะนิ้ง
ร้านค้าข้างบน
จุดชมวิว


หมอก และผู้คนเห็นแล้ว แมงคะนิ้ง ครั้งแรกในชีวิตเลย


อันนี้ไม่รู้ดอกอะไรสากุระเมืองไทย
อาหารเช้าเหมือนเดิม ตั้งใจว่าจะยึดเมืองเชียงใหม่ช่วงบ่าย แล้วก็ทุบหม้อข้าว กินอาหารที่มีอยู่จนหมด อันไหนทิ้งได้ก็ทิ้ง เนื่องจากจะเข้ายึดเมืองเชียงใหม่ นอนเชียงใหม่

เดินทางจากอินทนนท์ ไปเชียงใหม่ วางแผนไว้ว่าจะนอนเชียงใหม่ ใช้ ชีวิตแบบ ไฮโซ
เดินตลาดไนท์บาร์ซาร์กันดูซักที
เช่า taxi เที่ยวรอบเมืองเพื่อหาที่พัก แต่ปรากฎว่าไม่มีที่พักเลย คิดอยู่ว่าเอาไงดี

1.ยิงยาวกลับ กรุงเทพ
2.แวะที่ไหนซักที่แล้ว เค้าดาวส์
สุดท้าย เดินทางมาที่เขื่อนภูมิพล กางเต๊น เวลา 18.00

อาหารมื้อนี้ เนื่องจาก อาหารที่ขนมา ทิ้งไปเกือบหมด บวกกับที่ทิ้งไปด้วยก็มี จึงมีแค่นี้
ตื่น 6.30 ของ 1/1/2009
เดินทางไปเขื่อนภูมิพล


จบทริบการท่องเที่ยว
สรุป ค่าใช้จ่ายในการเดินทาง 2500 บาท ระยะทาง เกือบ 2500 กิโลเมตร
ป้ายที่เจอบ่อยมากที่สุด

กลับมาถึงปลอดภัยก็ดีแล้ว ใสิ้นสุดการเดินทาง