เครื่องของผม แรมน้อย ซีพียูต่ำ แต่ด้วยความที่ชอบลองโปรแกรมสำหรับนักพัฒนาหลายๆ ตัวเพื่อศึกษาหาความรู้ ทำให้ต้องลงโปรแกรมหนักๆ (กินแรมหนัก) หลายๆ ตัว
และโปรแกรมเหล่านั้นเอง บางที่หลังจากได้ลองเล่น ลองศึกษาจนพอใจแล้วก็ไม่ได้ใช้อีก แต่ไม่อยากถอดโปรแกรมออกจากเครื่อง เผื่อว่าอาจได้ตัวอย่างใหม่ๆ มารัน แล้วต้องเรียกใช้ โปรแกรมพื้นฐานเหล่านั้นอีกครั้ง ผมจึงใช้วิธี เปิด-ปิด services เอาครับ เพื่อลดภาระการประมวลผลของเครื่อง
โปรแกรมพื้นฐานที่ว่า ก็ตัวอย่างเช่น
- ระบบโฮสต์ จำลอง IIS
- ระบบฐานข้อมูล MySQL
- ระบบฐานข้อมูล MSSQL

เพื่อความสะดวกรวดเร็วผมจึงเขียน script เป็นตัวเปิด-ปิด services เหล่านั้น
พร้อมทั้งตั้งค่า การ start ของมันให้สลับไปมาระหว่าง Automatic-manual-Disabled
สำหรับผม คิดว่า สะดวกดีครับ แต่สำหรับท่านอื่นๆ จะว่าอย่างไรกันบ้างล่ะครับ...?

นี่คือ สคริปต์ที่ผมใช้ครับ เป็น VBS นะครับ
-****************************************************-

function StartTypeDesc(N)
select case N
case 2
StartTypeDesc = "Automatic"
case 3
StartTypeDesc = "Manual"
case 4
StartTypeDesc = "Disabled"
end select
end function

function StatusDesc(N)
select case N
case 1
StatusDesc = "Stopped"
case 4
StatusDesc = "Running"
case 7
StatusDesc = "Puase"
end select
end function
'-------------------------------------------------------------------------------------------------------------------


Dim ar(4)
ar(0) ="MySQL"
ar(1)="MSSQLSERVER"
ar(2)="pml Driver HPZ12"
ar(3)="IISadmin"
ar(4)="Spooler"
Set oWshNet = CreateObject("WScript.Network")
Set oComp = GetObject("WinNT://" & oWshNet.ComputerName & ",computer")

msg = "ระบุชื่อ Services เช่น :"
for i = 0 to ubound(ar)
Set oSvc = oComp.GetObject("service", ar(i))
msg = msg & vbcrlf & "(" & StatusDesc(oSvc.status) & ") (" & StartTypeDesc(oSvc.StartType) & ")   " & ar(i)
set oSvc = nothing
next

svc= inputbox(msg,"Services's Name","MySQL")

if trim(svc)<>"" and isempty(svc)=false then
Set oWshNet = CreateObject("WScript.Network")
Set oComp = GetObject("WinNT://" & oWshNet.ComputerName & ",computer")
Set oSvc = oComp.GetObject("service", svc)

select case oSvc.status
case 1
runShell oSvc.Name,1
case 4
runShell oSvc.Name,0
case 7
runShell oSvc.Name,2
end select

Set oSvc = nothing
Set oComp = nothing
Set oWshNet = nothing
end if

function runShell(sv, n)
Set oShell =CreateObject("WScript.Shell")
select case n
case 0
oShell.run "net stop " & chr(34) & sv & chr(34)
oShell.run "sc config " & sv & chr(34) & " start= Disabled"

case 1
oShell.run "sc config " & chr(34) & sv & chr(34) & " start= Demand"
oShell.run "net start " & chr(34) & sv & chr(34)

case 2
oShell.run "net continue " & chr(34) & sv & chr(34)
end select

Set oShell = nothing
end function