網絡中存在大量由VBScript和Jscript或者其他Windows腳本宿主相關的語言編寫的代碼，其中相當一部分用對應語言實現很簡短，而且有部分代碼甚至不能轉換為PowerShell代碼。丟棄所有這些代碼并且完全使用PowerShell重寫很不明智，因此需要在PowerShell中有一種重用Jscript和VBScript腳本的代碼方法。

　　MSScriptControl這個COM對象可以作為腳本環境的宿主，其ProgID是MSScriptControl.ScriptControl。用戶可以用其注冊并執行代碼，使用這個對象作為從PowerShell中調用現有VBScript和Jscript腳本的方法。一旦導入腳本，即可調用其中的函數，傳遞參數并返回值。

　　為了示范腳本如何控制對象的操作，下面演示計算文件大小的兩個實例，分別是Jscript編寫的FileSize.js和VBScirpt編寫的FileSize.vbs。兩個腳本中包括定義為“GetFileSize()”的函數接受一個文件路徑為參數，并返回文件路徑及其大小。Jscript腳本的源代碼如下：

　　function GetFileSize(filePath)

　　{

　　var fileSystem = new ActiveXObject("Scripting.FileSystemObject");

　　var file = fileSystem.GetFile(filePath);

　　return (filePath + " has " + file.Size + " bytes.");

　　}

　　VBScript腳本的代碼如下：

　　Function GetFileSize(filePath)

　　Dim fileSystem

　　Set fileSystem = CreateObject("Scripting.FileSystemObject")

　　Dim file

　　Set file = fileSystem.GetFile(filePath)

　　GetFileSize = filePath & " has " & file.Size & " bytes."

　　End Function

　　能夠看到每種語言都有其相對特殊的函數聲明方法、變量，以及與COM對象操作的方法。為了能夠從PowerShell中調用Jscript函數，需要讀取FileSize.js文件內容并且傳遞給腳本空間的AddCode()方法。這個方法將會執行函數定義，并使其在后面可用。

1 執行代碼

　　在將腳本代碼包含在腳本控件中后，即可調用在Jscript中定義的函數，為此可以使用Eval()或者Run()方法。Eval()方法將字符串作為輸入并執行，其返回值將會把結果返回給調用方，本實例為PowerShell；Run()方法可以接受多個參數，其中第1個是函數名，后續是將要傳遞給函數的參數，該方法返回函數的返回值給PowerShell的腳本。在這里創建一個名為“JScriptEval.ps1”的腳本，分別使用Eval()和Run()調用Jscript函數，代碼如下：

　　$jscript = New-Object -COM MSScriptControl.ScriptControl

　　$jscript.Language = "JScript"

　　$jsLines = Get-Content "FileSize.js"

　　$jsCode = [string]::Join("`n";, $jsLines)

　　$jscript.AddCode($jsCode)

　　$fileName = (dir FileSize.js).FullName

　　Write-Host "Using Eval"

　　$jscript.Eval(";GetFileSize(`"$($fileName.Replace('\', '\\'))`")")

　　Write-Host "Using Run"

　　$jscript.Run("GetFileSize", $fileName)

　　其中將Language屬性設置為“JScript”，表示其后調用的所有代碼都是Jscript。接下來用Get-Content cmdlet獲取FileSize.js文件中包含的所有內容，然后為各行代碼添加換行符，并將其拼接后傳遞給AddCode()方法。

　　Eval()方法需要將雙引號轉義為Jscript字符串，把反斜杠替換為雙反斜杠。因為反斜杠在Jscript中是一個有特殊含義的轉義字符，需要被轉義；Run()方法不需要執行任何轉義操作，因為使用的是腳本控件的機制傳遞參數。圖1所示為該腳本的執行結果。

　　圖1 執行結果

　　Eval()和Run()方法的執行結果相同，使用Run()方法可避免很多不必要的麻煩。

　　下面創建一個名為“VBScriptEval.ps1”的腳本，通過調用VBScript代碼定義的GetFileSize()函數，代碼如下：

　　$vbscript = New-Object -COM MSScriptControl.ScriptControl

　　$vbscript.Language = "VBScript"

　　$vbsLines = Get-Content "FileSize.vbs"

　　$vbsCode = [string]::Join("`n", $vbsLines)

　　$vbscript.AddCode($vbsCode)

　　$fileName = (dir FileSize.vbs).FullName

　　Write-Host "Using Eval"

　　$vbscript.Eval("GetFileSize(`"$fileName`")")

　　Write-Host "Using Run"

　　$vbscript.Run("GetFileSize", $fileName)

　　這個腳本與前面Jscript版本的最大不同是創建腳本控件對象的Language屬性值。需要強調的一點是在VBScript腳本中調用Eval()方法時，不需要轉義反斜杠字符，因其在VBScript中并不包含特殊含義。該腳本的執行結果如圖2所示。

　　圖2 執行結果

2 在MSScriptControl中公開對象

　　Eval()和Run()方法為其他語言提供了很好的訪問途徑，但其表現不像真正的方法。如果能調用腳本控件對象的特性，即動態對象生成，即可很好地解決這個問題。MSScriptControl對象有一個CodeObject屬性，用于將附加到腳本控件的代碼返回一個匿名對象，代碼對象將會公開作為公開方法添加的所有函數，這樣即可使得外部腳本對象的操作與常規的.NET對象毫無差別。

　　下面使用該屬性調用JScript函數，創建一個新的腳本文件“JScriptCodeObject.ps1”。配置一個腳本對象，通過動態生成的對象調用其函數，代碼如下：

　　$jscript = New-Object -COM MSScriptControl.ScriptControl

　　$jscript.Language = "JScript"

　　$jsLines = Get-Content "FileSize.js"

　　$jsCode = [string]::Join("`n", $jsLines)

　　$jscript.AddCode($jsCode)

　　$fileName = (dir FileSize.js).FullName

　　$fileSize = $jscript.CodeObject

　　$fileSize.GetFileSize($fileName)

　　腳本的執行結果如圖3所示。

　　圖3 執行結果

　　接下對比VBScript版本，下面是腳本VBScriptCodeObject.ps1的代碼：

　　$vbscript = New-Object -COM MSScriptControl.ScriptControl

　　$vbscript.Language = "VBScript"

　　$vbsLines = Get-Content "FileSize.vbs"

　　$vbsCode = [string]::Join("`n", $vbsLines)

　　$vbscript.AddCode($vbsCode)

　　$fileName = (dir FileSize.vbs).FullName

　　$fileSize = $vbscript.CodeObject

　　$fileSize.GetFileSize($fileName)

　　執行結果如圖4所示。

　　圖4 執行結果

3 總 結

　　PowerShell為COM對象提供了近乎完美的支持，本文的實例涉及主要的交互性操作，如使用集合和索引屬性。只要不同的應用程序和服務已經具有公開的COM自動化接口，則可嘗試使用COM來提高工作效率。本文介紹了針對Windows腳本宿主的自動化編程，用戶可以通過以上的介紹擴展到對其他COM對象進行操作。

作者: 付海軍
出處：