View source for Script Creation of RMUTI-WiFi Profiles Import - Microsoft Windows

{{DISPLAYTITLE:วิธีการทำสคริปต์สำหรับกำหนดค่าการเชื่อมต่อ RMUTI-WiFi (Microsoft Windows)}}
{{#seo:
|keywords=Wi-Fi, VB Script
|description=Detail of VB Script creation of Wi-Fi profile import
}}
== บทนำ ==
หลังจากมหาวิทยาลัยได้ติดตั้งและให้บริการเครือข่ายคอมพิวเตอร์แบบไร้สายภายใน มทร.อีสาน ศูนย์กลาง มีบริการหลัก 2 ชื่อ คือ RMUTI-WiFi สำหรับบริการภายใน และ eduroam สำหรับบุคลากรที่ของหน่วยงานที่เป็นสมาชิก eduroam (อ่านรายละเอียดเพิ่มเติมได้ที่ http://eduroam.rmuti.ac.th) การให้บริการทั้งสองแบบ มีการจัดการด้านความปลอดภัยแบบ WPA2-Enterprise มีการเข้ารหัสข้อมูลในระดับของการเชื่อมต่อเครือข่าย จึงจำเป็นต้องกำหนดคุณสมบัติของอุปกรณ์ให้ถูกต้อง การกำหนดคุณสมบัติสำหรับอุปกรณ์หรือระบบปฏิบัติการรุ่นใหม่ สามารถทำได้ง่าย ไม่ต้องติดตั้งอะไรเพิ่มเข้าไปในเครื่อง แต่สำหรับอุปกรณ์หรือระบบปฏิบัติการรุ่นเก่าจะมีความซับซ้อน โดยเฉพาะกับ Microsoft Windows รุ่นเก่า เช่น Windows XP ที่จำเป็นต้องจัดการด้วยมือ (Manual Setting) หลายขั้นตอน หากการดำเนินการผิดขั้นตอน หรือผิดพลาดในบางขั้นตอน จะทำให้ไม่สามารถใช้งานได้

การกำหนดคุณสมบัติการเชื่อมต่อ RMUTI-WiFi ของ Microsoft Windows แต่ละรุ่น มีขั้นตอนไม่เหมือนกัน โดยมีข้อสรุปที่ต้องดำเนินการตามรุ่น ดังตาราง
 
{|class="wikitable"
!rowspan="2"|ลำดับขั้นการดำเนินการ
!colspan="3"|รุ่นของ Microsoft Windows
|-
!Windows XP
!Windows 7
!Windows 8 
|-
|1. การติดตั้ง Root Certificate	
|ดำเนินการด้วยมือ ([http://www.rmuti.ac.th/network/wp/network/import-rmuti-root-ca-windows คู่มือ])
|ดำเนินการด้วยมือ ([http://www.rmuti.ac.th/network/wp/network/import-rmuti-root-ca-windows คู่มือ])
|ไม่ต้องดำเนินการ
|- 
|2. การติดตั้ง Personal Certificate	
|ดำเนินการด้วยมือ ([http://www.rmuti.ac.th/network/wp/network/rmuti-wifi-connect-xp คู่มือ])
|ไม่ต้องดำเนินการ	
|ไม่ต้องดำเนินการ 
|-
|3. การสร้าง WiFi Profile	
|ดำเนินการด้วยมือ ([http://www.rmuti.ac.th/network/wp/network/rmuti-wifi-connect-xp คู่มือ])
|ดำเนินการอัตโนม้ติ	
|ดำเนินการอัตโนมัติ 
|}

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

== เครื่องมือประกอบการสร้างสคริปต์ ==
โปรแกรมหรือเครื่องมือบนอินเทอร์เน็ตที่มีให้ดาวน์โหลดมาใช้ประกอบการกำหนดค่าการเชื่อมต่อ RMUTI-WiFi มีหลายโปรแกรม แต่ละโปรแกรมจะสามารถดำเนินการได้เฉพาะเรื่อง มีดังต่อไปนี้

==== โปรแกรมสำหรับนำเข้า Root Certificate Authority ====
อ่านรายละเอียดการใช้งานได้ที่ [[Tool for importing Root Certificate Authority - Microsoft Windows|เครื่องมือสำหรับนำเข้า Root Certificate Authority (Microsoft Windows)]]

==== โปรแกรมสำหรับนำเข้า Personal Certificate ====
อ่านรายละเอียดการใช้งานได้ที่ [[Tool for importing Personal Certificate - Microsoft Windows|เครื่องมือสำหรับนำเข้า Personal Certificate (Microsoft Windows)]]

==== โปรแกรมสำหรับนำเข้าโพรไฟล์การเชื่อมต่อเครือข่ายไร้สาย ====
อ่านรายละเอียดการใช้งานได้ที่ [[Tool for Manage WiFi Profile - Microsoft Windows|เครื่องมือสำหรับจัดการโพรไฟล์ของเครือข่ายไร้สาย (Microsoft Windows)]]

== สคริปต์สำเร็จรูปสำหรับใช้งานเพื่อการนำเข้าโพรไฟล์ ==
จากรายการเครื่องมือในห้วข้อก่อนหน้านี้ เครื่องมือทั้งหมดสามารถเรียกใช้งานในลักษณะของ Command Line หรือเรียกใช้โดยไม่ต้องมีการแสดงผลการทำงานได้ จึงสามารถนำมาเป็นคำสั่งที่เกิดจากการเรียกใช้โดยสคริปต์

ลำดับขั้นตอนการทำงานในสคริปต์ มีลำดับดังนี้
# ตรวจสอบและอ่านค่ารุ่นของ Microsoft Windows
# ตรวจสอบและอ่านรายการแผงวงจรเครือข่ายไร้สาย
# ติดตั้ง RMUTI Root Certificate Authority
# ติดตั้ง RMUTI Personal Certificate
# นำเข้าโพรไฟล์การเชื่อมต่อเครือข่าย

==== ทำความรู้จักกับ VB Script ====
ใน Microsoft Windows ทุกรุ่น สามารถเขียนโปรแกรมในลักษณะของสคริปต์ด้วยภาษา Virtual Basic Script (VB Script) ซึ่งเป็นไฟล์ข้อความ สามารถเขียนขึ้นและเรียกใช้ได้ทันที ไม่ต้องมีโปรแกรมคอมไพล์ (Compile) สคริปต์แบบ VB Script ต้องบันทึกเป็นไฟล์ที่มีส่วนขยายเป็น .vbs ชื่อไฟล์ในการสร้างสคริปต์นี้คือ <strong>RMUTI-WiFi.vbs</strong>

โค้ดต่อไปนี้ เป็นส่วนต้นของสริปต์ เป็นส่วนการประกาศตัวแปรภายนอก (Variable) เก็บข้อมูลหลัก และตัวแปรวัตถุ (Object) สำหรับใช้เข้าถึงระบบ
 <syntaxhighlight lang="vb" line>
Option Explicit
'Install RMUTI wireless profile
' Supported platforms:  Windows Vista, XP (with Service Pack 2 or 3), 7 and 8
' Requires external tools:
'  - CertMgr.exe: Microsoft Certificate Manager Tool (http://msdn.microsoft.com/en-us/library/e78byta0(v=vs.110).aspx)
'  - winhttpcertcfg.exe: Microsoft Certificate Configuration Tool (http://msdn.microsoft.com/en-us/library/windows/desktop/aa384088(v=vs.85).aspx)
'  - WLAN.exe: Symantec capture and deploy WLAN profiles tool (http://www.symantec.com/business/support/index?page=content&id=HOWTO9771)
'  - WindowsXP-KB918997-v6-x86-ENU.exe: HotFix installer for Wireless LAN API(KB918997, http://www.microsoft.com/DOWNLOADS/details.aspx?familyid=52A43BAB-DC4E-413F-AC71-158EFD1ADA50&displaylang=en)
' Requires external files:
'  - RMUTI-CA.crt: Root certificate file
'  - RMUTI-WiFi.p12: Personal certificate file
'  - RMUTI-WiFi-<WinVer>.xml: XML configuration files for each Windows Version

' declare variants
Dim oShell, oUserEnv, oFSO
Dim sPath, oFile, sFolder
Dim iSPVer
Dim sTempEnv, strComputer, sOS
Dim sResultMsg
Dim bSuccess
dim sIntId

'define variants
bSuccess = False
strComputer = "."

'instantiate global objects
Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sTempEnv = oShell.ExpandEnvironmentStrings("%TEMP%") & ""

sPath = Wscript.ScriptFullName
Set oFile = oFSO.GetFile(sPath)
sFolder = oFSO.GetParentFolderName(oFile) 
oShell.CurrentDirectory = sFolder

WScript.Echo "ยินดีต้อนรับ: สคริปต์นี้ใช้สำหรับติดตั้งดังต่อไปนี้" & vbCrLf _
			 & " - ติดตั้ง Root Certificate ชื่อ RMUTI CA" & vbCrLf _
			 & " - ติดตั้ง Personal Certificate ชื่อ WiFi" & vbCrLf _
			 & " - สร้างโพรไฟล์เครือข่ายไร้สายชื่อ RMUTI-WiFi" & vbCrLf _
			 & " - สร้างโพรไฟล์เครือข่ายไร้สายชื่อ eduroam"

</syntaxhighlight>

การประกาศตัวแปรใน VB ใช้คำสั่ง Dim โดยไม่จำเป็นต้องระบุประเภทของตัวแปร ดังบรรทัดที่ 15-21

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

บรรทัดที่ 37-41 เป็นการแสดงข้อความทักทายผู้ใช้ ด้วยการใช้ WScript.Echo

==== ตรวจสอบและอ่านค่ารุ่นของ Microsoft Windows ====
เพื่อใช้ประกอบการนำเข้าไฟล์ที่บันทึกโพรไฟล์การเชื่อมต่อเครือข่ายที่มีความต่างกันระหว่าง Windows แต่ละรุ่น โดยแต่ละโพรไฟล์จะบันทึกแยกเป็นไฟล์ต่างกัน 
 <syntaxhighlight lang="vb" line>
'get Windows version and service pack version
fDetectOS sOS, iSPVer

function fDetectOS(sOS, iSPVer)
'Detect OS Function - detects OS Caption string and Service Pack integer from WMI WIN32_OperatingSystem.
' Expects to variables passed, returns the full OS Caption String, and SP Major Version integer

    'Declare variables
    Dim colItems
    Dim objWMIService, objItem
    'Instantiate local objects/collections
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

    For Each objItem In colItems
      sOS = objItem.Caption
      iSPVer = cInt(objItem.ServicePackMajorVersion)
    Next

    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMIService = Nothing
	
End function
</syntaxhighlight>
ส่วนของการอ่านค่ารุ่นของ Windows เขียนให้อยู่ในรูปแบบของฟังก์ชั่น (Function) โดยค่าที่ได้จากการเรียกใช้ฟังก์ชั่นคือ ตัวแปร sOS เป็นชื่อระบบปฏิบัติการ เช่น "Microsoft Windows 8.1 Pro" และ iSPVer เป็นหมายเลข Service Pack เช่น "0"

การตรวจสอบว่าสคริปต์นี้ถูกเรียกใช้บนระบบปฏิบัติการ Windows รุ่นใด จะใช้การค้นหาข้อความเฉพาะในตัวแปร sOS เช่น หากพบข้อความ "XP" แสดงว่าเป็น Windows XP หรือหากพบข้อความ "Windows 7" แสดงว่าเป็น Windows 7 เป็นต้น

คำสั่งสำหรับการค้นหาข้อความในตัวแปรคือ inStr(ตัวแปร, ข้อความที่ต้องการค้นหา) ผลการเรียกใช้ฟังก์ชั่น จะได้ลำดับของตำแหน่งที่ข้อความนั้นมีอยู่ในตัวแปร ดังตัวอย่างของสคริปต์
 <syntaxhighlight lang="vb" line>
If inStr(sOS, "Vista") > 0 Then
    WScript.Echo "สคริปต์นี้ไม่รองรับระบบปฏิบัติการ Microsoft Windows Vista" & vbCrLf
ElseIf inStr(sOS, "XP") > 0 Then
        If iSPVer = 2 Then
            WScript.Echo "ตรวจพบระบบปฏิบัติการ Microsoft Windows XP SP2" & vbCrLf
        ElseIf iSPVer = 3 Then
            WScript.Echo "ตรวจพบระบบปฏิบัติการ Microsoft Windows XP SP3" & vbCrLf
        Else
            WScript.Echo "สคริปต์นี้ไม่รองรับระบบปฏิบัติการ Microsoft Windows รุ่นนี้" & vbCrLf
        End If
ElseIf inStr(sOS, "Windows 7") > 0 Then
    ' ติดตั้งต่อไป
End If
</syntaxhighlight>

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

 <syntaxhighlight lang="vb" line>
'get wireless lan interface id
fGetWlanInterfaceId

function fGetWlanInterfaceId()
'Get Wireless Interface Id/GUID

    'Declare variables
    Dim oExec
    Dim sRet
	
    Set oExec = oShell.Exec("WLAN.exe ei")
	
    If oExec.Status = 0 Then
        Do While Not oExec.StdOut.AtEndOfStream
            sRet = oExec.StdOut.ReadLine()
            If inStr(sRet, "GUID") > 0 Then
                sIntId = Replace(sRet, "GUID: ", "")
                Exit Do
            End If
        Loop
    End If
	
    Set oExec = Nothing
	
End function
</syntaxhighlight>
ส่วนการตรวจสอบและอ่านค่าหมายเลขแผงวงจรเครือข่ายไร้สายทำเป็นฟังก์ชั่น ภายในจะเรียกใช้เครื่องมือภายนอกคือ WLAN.exe ([[Tool for Manage WiFi Profile - Microsoft Windows|รายละเอียดการเรียกใช้โปรแกรม WLAN.exe]]) และอ่านข้อความผลการทำงานของ WLAN.exe และตัดเอาเฉพาะหมายเลขแผงวงจรเครือข่าย จากบรรทัดที่มีคำว่า GUID

หากมีแผงวงจรเครือข่ายไร้สาย จะได้หมายเลขจาก GUID แต่ถ้าไม่มี จะได้ค่าเป็นข้อความว่าง ผลลัพท์จะบันทึกไว้ในตัวแปรภายนอกชื่อ sIntId เพื่อใช้ในขั้นตอนอื่นต่อไป

==== ติดตั้ง RMUTI Root Certificate Authority ====
การติดตั้ง Root Certificate Authority จะทำงานผ่านการเรียกใช้โปรแกรม CertMgr.exe ([[Tool for importing Root Certificate Authority - Microsoft Windows|รายละเอียดการเรียกใช้โปรแกรม CertMgr.exe]]) โดยการนำเข้าไฟล์ที่มี RMUTI Root Certificate Authority ชื่อ RMUTi-CA.crt และการดำเนินการนี้ไม่มีข้อแตกระหว่าง Windows แต่ละรุ่น ดังสคริปที่เขียนเป็นฟังก์ชั่นต่อไปนี้

 <syntaxhighlight lang="vb" line>
subInstRootCert

Sub subInstRootCert
'Install RMUTI Root CA
' Require RMUTI Root CA file (RMUTi-CA.crt)

    Dim iRC
	
    iRC = oShell.Run("certmgr.exe -c -s -r localMachine root | find ""RMUTi CA""", 0, True)
    If iRC = -1 Then
        iRC = oShell.Run("certmgr.exe -add -c RMUTi-CA.crt -s -r localMachine root", 0, True)
        If iRC = 0 Then
            sResultMsg = sResultMsg &  " - ติดตั้ง Root Certificate ชื่อ ""RMUTi CA"" เสร็จสมบูรณ์" & vbCrLf
        Else
            sResultMsg = sResultMsg & " - ไม่สามารถติดตั้ง Root Certificate ชื่อ ""RMUTi CA"" ได้ คุณต้องติดตั้งด้วยตนเอง " _
                & "อ่านรายละเอียดเพิ่มเติมได้ที่ http://www.rmuti.ac.th/network/wp/network/import-rmuti-root-ca-windows " _
                & vbCrLf
        End If
    Else
        sResultMsg = sResultMsg &  " - มีการติดตั้ง Root Certificate ชื่อ ""RMUTi CA"" อยู่ก่อนแล้ว" & vbCrLf
    End If

End Sub
</syntaxhighlight>

==== ติดตั้ง RMUTI WiFi Personal Certificate ====
การติดตั้ง Personal Certificate จะทำงานผ่านการเรียกใช้โปรแกรม winhttpcertcfg.exe ([[Tool for importing Personal Certificate - Microsoft Windows|รายละเอียดการเรียกใช้โปรแกรม winhttpcertcfg.exe]]) โดยการนำเข้าไฟล์ที่มี RMUTI WiFi Certificate  ชื่อ WiFi-2014-09-11.p12 และการดำเนินการนี้ไม่มีข้อแตกระหว่าง Windows แต่ละรุ่น ดังสคริปที่เขียนเป็นฟังก์ชั่นต่อไปนี้

 <syntaxhighlight lang="vb" line>
subInstWiFiCert

Sub subInstWiFiCert
'Install personal certification for WiFi client
' Require personal certification file (WiFi.p12)

    Dim iRC

    iRC = oShell.Run("winhttpcertcfg.exe -i WiFi-2014-09-11.p12 -c CURRENT_USER\My -a ""%USERNAME%"" -p rmutiwifi", 0, True)
    If iRC = 0 Then
        sResultMsg = sResultMsg & " - ติดตั้ง Personal Certificate ชื่อ ""WiFi"" เสร็จสมบูรณ์" & vbCrLf
    Else
        sResultMsg = sResultMsg & " - ไม่สามารถติดตั้ง Personal Certificate ชื่อ ""WiFi"" ได้ คุณต้องติดตั้งด้วยตนเอง " _
            & "อ่านรายละเอียดเพิ่มเติมได้ที่ http://www.rmuti.ac.th/network/wp/network/rmuti-wifi-connect-xp " _
            & vbCrLf
    End If

End Sub
</syntaxhighlight>

==== นำเข้าโพรไฟล์การเชื่อมต่อเครือข่าย ====
การนำเข้าโพรฟล์การเชื่อมต่อเครือข่ายไร้สาย จะทำงานผ่านการเรียกใช้โปรแกรม WLAN.exe (([[Tool for Manage WiFi Profile - Microsoft Windows|รายละเอียดการเรียกใช้โปรแกรม WLAN.exe]]) โดยการนำเข้าไฟล์ที่บันทึกโพรไฟล์การเชื่อมต่อเครือข่ายไร้สาย ไฟล์ที่บันทึกโพรไฟล์ของ Windows แต่ละรุ่นแตกต่างกัน ต้องผ่านการส่งออกมาจากเครื่องที่ใช้เชื่อมต่อเครือข่าย RMUTI-WiFi ได้แล้ว และแยกบันทึกเป็นชื่อที่ต่างกัน เช่น RMUTI-WiFi-XP.xml หรือ RMUTI-WiFi-W7.xml เป็นต้น ดังสคริปที่เขียนเป็นฟังก์ชั่นต่อไปนี้

 <syntaxhighlight lang="vb" line>
subImpWiFiProfile "XP"

Sub subImpWiFiProfile(WinVer)
'Install an WiFi profile using WLAN.exe.
' Require presence of xml WiFi profile files for each Windows version (RMUTI-WiFi-<WinVer>.xml, RMUTI-eduroam-<WinVer>.xml)

    Dim iRC
    If sIntId <> "" Then
        iRC = oShell.Run("WLAN.exe sp " & sIntId & " RMUTI-WiFi-" & WinVer & ".xml", 0, True)
        If iRC = 0 Then
            sResultMsg = sResultMsg & " - สร้างโพรไฟล์ RMUTI-WiFi เสร็จสมบูรณ์" & vbCrLf
        Else
            sResultMsg = sResultMsg & " - ไม่สามารถสร้างโพรไฟล์ RMUTI-WiFi ได้" & vbCrLf
        End If

        iRC = oShell.Run("WLAN.exe sp " & sIntId & " RMUTI-eduroam-" & WinVer & ".xml", 0, True)
        If iRC = 0 Then
            sResultMsg = sResultMsg & " - สร้างโพรไฟล์ eduroam เสร็จสมบูรณ์" & vbCrLf
        Else
            sResultMsg = sResultMsg & " - ไม่สามารถสร้างโพรไฟล์ eduroam ได้" & vbCrLf
        End If
    End If

End Sub
</syntaxhighlight>

การเรียกใช้ฟังก์ชั่น จะส่งข้อความที่ตรงกับชื่อไฟล์ที่ตรงกับ Windows แต่ละรุ่น เช่น "XP", "W7" หรือ "W8" เป็นต้น เพื่อให้ฟังก์ชั่นนำไปประกอบกับข้อความของชื่อไฟล์บันทึกโพรไฟล์การเชื่อมต่อเครือข่ายไร้สาย

==== สคริปต์ ====
* RMUTI-WiFi.vbs Version 1.0 ([[File:RMUTI-WiFi.vbs]])
**ยังไม่ได้ลองกับ Windows XP
**การกรอกชื่อบัญชีและรหัสผ่านเพื่อเชื่อมต่อครั้งแรกจะไม่ผ่าน จำเป็นต้องทำซ้ำครั้งที่สองจึงจะเชื่อมต่อได้
**ไม่มีตัวเลือกให้ยกเลิกการเชื่อมต่ออัตโนมัติใน Windows 7 เมื่อเชื่อมต่อเสร็จแล้วระบบปฏิบัติการจะจำข้อมูลการเชื่อมต่อและใช้ตลอดไป ซึ่งเป็นปัญหากับคอมพิวเตอร์ที่มีผู้ใช้หลายคน
**คงไม่จำเป็นสำหรับ Windows 8 :)

== อ้างอิง ==
* [http://blog.uvm.edu/jgm/2008/12/05/configuring-wifi-profiles-using-vbscript Configuring WiFi Profiles Using VBScript]