在VBScript中，可以使用Base64Encode函數來進行Base64編碼。下面是一個簡單的示例代碼：

Dim Base64String
Base64String = Base64Encode("Hello, World!")
WScript.Echo Base64String
Function Base64Encode(str)
Dim objXML, objNode
' 創建XML對象
Set objXML = CreateObject("MSXML2.DOMDocument")
' 創建節點并設置節點值
Set objNode = objXML.CreateElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = StreamStringToBase64(str)
' 將節點內容轉換為Base64字符串并返回
Base64Encode = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
' 將字符串轉換為Base64編碼的字節數組
Function StreamStringToBase64(str)
Dim objStream
' 創建二進制數據流對象
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2 ' adTypeText
objStream.Charset = "UTF-8"
objStream.Open
objStream.WriteText str
objStream.Position = 0
objStream.Type = 1 ' adTypeBinary
StreamStringToBase64 = objStream.ReadText(-1)
Set objStream = Nothing
End Function

在上述代碼中，Base64Encode函數接受一個字符串參數，并返回該字符串的Base64編碼。StreamStringToBase64函數將字符串轉換為Base64編碼的字節數組。通過創建XML對象和節點，然后將字節數組賦值給節點的Text屬性，最終通過節點的Text屬性獲取Base64編碼字符串。