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
Tuesday, April 28, 2009
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)

powercfg –h off
ได้คืนมา 3 G กว่า แต่ใส่ ram ไป 4G เห็น แค่ 3 G(vista 32 bit)

Sunday, January 04, 2009
ปางอุ๋ง-ปาย-ห้วยน้ำดัง-ดอยอินทนนท์-เขื่อนภูมิพล
การเดินทางอันยาวไกลครั้งแรกของผม โดยรถยนต์ Toyota soluna จากชลบุรี เดินทางขึ้น แม่ฮ่องสอน
ออกเดินทางจาก ชลบุรี แวะรับ สมาชิกที่กรุงเทพอีก 2 คน เวลาออก เดินทาง 10.00 วันที่ 26/12/2008 จาก กรุงเทพ
ศึกษาแผนที่และเส้นทาง การเดินทาง
แวะเติมน้ำมันอีกครั้ง (จังหวัดตาก) ระหว่างการเดินทางมี ฝนตกเล็กน้อย ถึง หนักมาก มองออกหน้าต่าง ขาวไปหมดเลย และเส้นทางก็ ขรุขระมีทั้งโค้ง และทางลาดชัน โดยช่วงใกล้ถึงลำปาง ตลอดสองข้างทาง ไม่มีอะไรเลย นอกจากต้นไม้
ถึงเชียงใหม่ เกือบ แปดโมงเช้า หาเส้นทางไปปาย กันอยู่นาน เนื่องจากแผนที่ ที่มีอยู่ จุดที่จะเดินทางไป ดัน เป็น รอยเจาะตรงก้างงู พอดี หลงในเชียงใหม่เกือบ 1 ชั่วโมง
4 สาวที่ไปด้วยกันใน ทริปนี้ ... เดินทางต่อ
เส้นทาง โค้ง เยอะมาก และ ก็ ทางลาดชันด้วย (ปาย)
สองข้างทางเป็นเหว
ถึงแล้ว บ้านรวมไทย เวลา 15:20 27/12/2008
และแล้วก็ถึง ปางอุ๋ง
หาทำเล การกางเต๊น เลือกใกล้ๆ แม่น้ำนี่แหละ (ตรงที่นอนเป็นเนินด้วย ไหลตลอดคืนเลย)
หลังจากกางเต๊น เรียบร้อย 3 หลัง ก็ เตรียมทำอะไรกินกัน Regency เพื่อความอบอุ่น
20.04 เสื้อกันหนาว พอช่วยได้บ้าง หมด Recency ไป 1 ขวดกับ อีกครึ่งขวด
นอนกี่โมงจำไม่ได้ แต่(ปางอุ๋งหนาวมาก)
ตื่นเช้ามา เวลา 6.44 28/12/2008 รู้สึกว่า หมอกไม่ค่อยมีเท่าไหร่
ก่อไปได้ซักพัก ไฟยังไม่ติด มีแต่ควันเนื่องจาก ถ่านชื้นมองไป ข้างหน้า นี่ มัน หมอก หรือ กันควันนี่
ควันที่พัดไป มันลง แม่น้ำหมดเลย เหมือนมาก
ภาพนี้ ข้างหลังคือควันไฟ (ไม่ได้ตั้งใจจัดฉาก ^-^)
มี หงส์ ลอยน้ำมา มี ตัว เดียว
อีกมุมหนึ่งในช่วงเช้า
นี่ด้วย
อากาศ หนาวทำให้คนเปลี่ยนไปได้ หรือว่าเมา ควันไฟ
ต้นกาแฟ สดๆเลยจากต้น
ส่ง ไปรษณียบัตร กลับบ้าน
ทางโค้ง มากๆ หัก ศอก ขวา
นี่หรือ คือ เส้นทางที่เรามา
ดารานักแสดงฝ่าย ชาย
ไม่แน่ใจว่าเป็นแม่น้ำปายหรือเปล่า
สถานีขนส่ง
เด็กสาว 2 คนกำลังเล่น ดนตรีไทย
นั่งจิบเบียร์ ใน ปาย สุดยอด น้ำแข็งไม่ต้อง เนื่องจากเบียร์ในแก้วเย็นตลอด
นอน เกือบเที่ยงคืน 23.45 28/12/2008
ตื่น 7.30 29/12/2008 เช้าวันใหม่ กับ อาหารเช้า
บรรยากาศ ยามเช้าที่ ปาย
ต้มไก่ดำ ดำมากขอบอกทั้งเนื้อทั้งกระดูก เพิ่งรู้ว่าเกลียดเข้ากระดูกดำเป็นไง
หมั่นโถ
มื้อนี้อิ่มไป เจ็ดร้อยกว่าบาท
เดินทางไป น้ำตกต่อ 12.13
13.21 29/12/2008 ถึงห้วยน้ำดัง ค่าเข้า รถยนต์ คันล่ะ 30 บาท ผู้ใหญ่ 40 บาท
คราวนี้จะทำหมอก ที่ ห้วยน้ำดังล่ะ เตรียม ก่อไฟพร้อม หลังจากก่อแล้ว มีแต่ควัน สงสารเต๊นอื่นเหมือนกัน ที่ต้องดมควันไฟ เนื่องจาก จุดที่กางอยู่เหนือลม เต๊นอื่นเค้าใช้ เตาแก็ส กัน ทันสมัยน่าดู
รายการอาหาร Regency ที่เหลือครึ่งขวดจาก ปางอุ๋ง
อากาศ หนาวกว่า ปางอุ๋ง+ปายซะอีก เหนื่องจาก มีลม
6.30 30/12/2008 ตื่นเช้ามาถ่ายรูป ทะเล หมอก ของจริง ครับ ไม่มี ควันครับคราวนี้
ทานอาหารเช้าก่อนเดินทางไป ที่จุดชมวิวห้วยน้ำดัง
บริเวณ รอบๆที่กางเต๊น
มีป้ายปัก แต่ ก็กางได้ แล้วดู ควันที่ลอยไป ซิ สงสัย ได้กิน นก รมควันแน่
ตื่น 5.00 เพื่อเดินทางสู้จุดที่สูงที่สุด และก็หนาวมากด้วย จุดมุ่งหมายครั้งนี้ คือ ดู แมงคะนิ้ง
ร้านค้าข้างบน
หมอก และผู้คน
อันนี้ไม่รู้ดอกอะไร
เดินทางจากอินทนนท์ ไปเชียงใหม่ วางแผนไว้ว่าจะนอนเชียงใหม่ ใช้ ชีวิตแบบ ไฮโซ
เดินตลาดไนท์บาร์ซาร์กันดูซักที
เช่า taxi เที่ยวรอบเมืองเพื่อหาที่พัก แต่ปรากฎว่าไม่มีที่พักเลย คิดอยู่ว่าเอาไงดี
1.ยิงยาวกลับ กรุงเทพ
2.แวะที่ไหนซักที่แล้ว เค้าดาวส์
สุดท้าย เดินทางมาที่เขื่อนภูมิพล กางเต๊น เวลา 18.00
อาหารมื้อนี้ เนื่องจาก อาหารที่ขนมา ทิ้งไปเกือบหมด บวกกับที่ทิ้งไปด้วยก็มี จึงมีแค่นี้
จบทริบการท่องเที่ยว
สรุป ค่าใช้จ่ายในการเดินทาง 2500 บาท ระยะทาง เกือบ 2500 กิโลเมตร
ป้ายที่เจอบ่อยมากที่สุด

กลับมาถึงปลอดภัยก็ดีแล้ว ใสิ้นสุดการเดินทาง
Subscribe to:
Posts (Atom)