小楊的遠端桌面連線虛擬化: 圖解在 WinConnect Server 環境使用 iTALC ( 廣播教學 )

2012年5月21日星期一

圖解在 WinConnect Server 環境使用 iTALC ( 廣播教學 ) - 設定篇

1. 建立 iTALC 資料夾

2. 進入 iTALC 目錄

3. 新增文字文件，檔名 iTALCPort.txt

4. 再新增文字文件內容如下，檔名 ICA-Port.vbs

' Start_ICA-Port.vbs
' Getting Process functions Author Guy Thomas http://computerperformance.co.uk/
' Rest of script author Bryan Murphy
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim objFSO, objTextFile
Dim cmd, Command
Dim processCount, usePort
'If you need to use a different starting port, change it on the next line
Const defaultPort = 5900
'You need a plain text file that users need to be able to update, you can change the location on the next line.
Const textFile = "C:\iTALC\iTALCPort.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

processCount = defaultPort
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcess
if UCase( objProcess.Name ) = "ICA.EXE" then
processCount = processCount + 1
end if
Next

if processCount = defaultPort then
usePort = defaultPort
else
Set objTextFile = objFSO.OpenTextFile(textFile, 1)
usePort = objTextFile.Readline
objTextFile.Close
end if

Set objTextFile = objFSO.OpenTextFile(textFile, 2)
objTextFile.WriteLine(usePort+1)
objTextFile.Close

Set Command = WScript.CreateObject("WScript.Shell")
' This next line is set for 32-bit version of Windows, change the path as necessary for your installation
cmd = """C:\Program Files\iTALC\ica.exe"" -ivsport " & usePort & " -isdport " & usePort-10
Command.Run (cmd)

WScript.Quit

5. 將以上 ICA-Port.vbs 檔案複製到開始 -> 所有程式 -> 啟動

6. 重新開機或登入

7. 執行 iTALC 主程式

8. 第一次執行找不到設定檔會出現警告，按下 OK