Module MyModule
Sub Main()
Dim base64 as String = "cGFzc3dvcmQ="
Dim BArray() as Byte = System.Convert.FromBase64String(base64)
Dim str as String = System.Text.Encoding.GetEncoding(932).GetString(BArray)
Dim WshNetwork as Object
WshNetwork = CreateObject("WScript.Network")
on error resume next
Call WshNetwork.MapNetworkDrive ("Z:", "\\layla\hdd", False, "lightbox",str )
on error goto 0
End Sub
End Module
Jscript
拡張子:
import System;
var base64 = "cGFzc3dvcmQ=";
var BArray = System.Convert.FromBase64String(base64);
var str = System.Text.Encoding.GetEncoding(932).GetString(BArray);
var WshNetwork = new ActiveXObject("WScript.Network");
try {
WshNetwork.MapNetworkDrive ("Z:", "\\\\layla\\hdd", false, "lightbox", str);
}
catch( e ) {
}