網(wǎng)絡(luò)中存在大量由VBScript和Jscript或者其他Windows腳本宿主相關(guān)的語(yǔ)言編寫的代碼，其中相當(dāng)一部分用對(duì)應(yīng)語(yǔ)言實(shí)現(xiàn)很簡(jiǎn)短，而且有部分代碼甚至不能轉(zhuǎn)換為PowerShell代碼。丟棄所有這些代碼并且完全使用PowerShell重寫很不明智，因此需要在PowerShell中有一種重用Jscript和VBScript腳本的代碼方法。

　　MSScriptControl這個(gè)COM對(duì)象可以作為腳本環(huán)境的宿主，其ProgID是MSScriptControl.ScriptControl。用戶可以用其注冊(cè)并執(zhí)行代碼，使用這個(gè)對(duì)象作為從PowerShell中調(diào)用現(xiàn)有VBScript和Jscript腳本的方法。一旦導(dǎo)入腳本，即可調(diào)用其中的函數(shù)，傳遞參數(shù)并返回值。

　　為了示范腳本如何控制對(duì)象的操作，下面演示計(jì)算文件大小的兩個(gè)實(shí)例，分別是Jscript編寫的FileSize.js和VBScirpt編寫的FileSize.vbs。兩個(gè)腳本中包括定義為“GetFileSize()”的函數(shù)接受一個(gè)文件路徑為參數(shù)，并返回文件路徑及其大小。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

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

1 執(zhí)行代碼

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

　　$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屬性設(shè)置為“JScript”，表示其后調(diào)用的所有代碼都是Jscript。接下來(lái)用Get-Content cmdlet獲取FileSize.js文件中包含的所有內(nèi)容，然后為各行代碼添加換行符，并將其拼接后傳遞給AddCode()方法。

　　Eval()方法需要將雙引號(hào)轉(zhuǎn)義為Jscript字符串，把反斜杠替換為雙反斜杠。因?yàn)榉葱备茉贘script中是一個(gè)有特殊含義的轉(zhuǎn)義字符，需要被轉(zhuǎn)義；Run()方法不需要執(zhí)行任何轉(zhuǎn)義操作，因?yàn)槭褂玫氖悄_本控件的機(jī)制傳遞參數(shù)。圖1所示為該腳本的執(zhí)行結(jié)果。

　　圖1 執(zhí)行結(jié)果

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

　　下面創(chuàng)建一個(gè)名為“VBScriptEval.ps1”的腳本，通過(guò)調(diào)用VBScript代碼定義的GetFileSize()函數(shù)，代碼如下：

　　$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)

　　這個(gè)腳本與前面Jscript版本的最大不同是創(chuàng)建腳本控件對(duì)象的Language屬性值。需要強(qiáng)調(diào)的一點(diǎn)是在VBScript腳本中調(diào)用Eval()方法時(shí)，不需要轉(zhuǎn)義反斜杠字符，因其在VBScript中并不包含特殊含義。該腳本的執(zhí)行結(jié)果如圖2所示。

　　圖2 執(zhí)行結(jié)果

2 在MSScriptControl中公開(kāi)對(duì)象

　　Eval()和Run()方法為其他語(yǔ)言提供了很好的訪問(wèn)途徑，但其表現(xiàn)不像真正的方法。如果能調(diào)用腳本控件對(duì)象的特性，即動(dòng)態(tài)對(duì)象生成，即可很好地解決這個(gè)問(wèn)題。MSScriptControl對(duì)象有一個(gè)CodeObject屬性，用于將附加到腳本控件的代碼返回一個(gè)匿名對(duì)象，代碼對(duì)象將會(huì)公開(kāi)作為公開(kāi)方法添加的所有函數(shù)，這樣即可使得外部腳本對(duì)象的操作與常規(guī)的.NET對(duì)象毫無(wú)差別。

　　下面使用該屬性調(diào)用JScript函數(shù)，創(chuàng)建一個(gè)新的腳本文件“JScriptCodeObject.ps1”。配置一個(gè)腳本對(duì)象，通過(guò)動(dòng)態(tài)生成的對(duì)象調(diào)用其函數(shù)，代碼如下：

　　$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)

　　腳本的執(zhí)行結(jié)果如圖3所示。

　　圖3 執(zhí)行結(jié)果

　　接下對(duì)比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)

　　執(zhí)行結(jié)果如圖4所示。

　　圖4 執(zhí)行結(jié)果

3 總 結(jié)

　　PowerShell為COM對(duì)象提供了近乎完美的支持，本文的實(shí)例涉及主要的交互性操作，如使用集合和索引屬性。只要不同的應(yīng)用程序和服務(wù)已經(jīng)具有公開(kāi)的COM自動(dòng)化接口，則可嘗試使用COM來(lái)提高工作效率。本文介紹了針對(duì)Windows腳本宿主的自動(dòng)化編程，用戶可以通過(guò)以上的介紹擴(kuò)展到對(duì)其他COM對(duì)象進(jìn)行操作。

作者: 付海軍
出處：