VBSの中身を閲覧されたり変更されたくない場合に参考にして下さい。 VBSをVBEに変換して暗号化する方法を記載します。 概要 VBScriptをVBEに変換し暗号化します。 encode.vbsの作成 以下のソースコードをメモ帳に書いて「encode.vbs」という名前で保存します。 Option Explicit dim oEncoder, oFilesToEncode, file, sDest dim sFileOut, oFile, oEncFile, oFSO, i dim oStream, sSourceFile set oFilesToEncode = WScript.Arguments set oEncoder = CreateObject("Scripting.Encoder") For i = 0 to oFilesToEncode.Count - 1 set oFSO
![VBSをVBEに変換し暗号化する方法 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/e14e258a791e9f30294494f1e8221da5f98e52bf/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9VkJTJUUzJTgyJTkyVkJFJUUzJTgxJUFCJUU1JUE0JTg5JUU2JThGJTlCJUUzJTgxJTk3JUU2JTlBJTk3JUU1JThGJUI3JUU1JThDJTk2JUUzJTgxJTk5JUUzJTgyJThCJUU2JTk2JUI5JUU2JUIzJTk1JnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmcz04MDhhODg4NjBlYWUzYjRlNzZjNDZkZGVjNjU0Y2U0ZQ%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDBLb2tpLU5ha2FtdXJhJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz03NDQwYTEzYjA2MTk0MDE1N2M2ZGM3MzY5ODU3NDU3NA%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3Dfcde0c141e153f116f51e13487fc4803)