みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBSファイルの保護

テキストファイルにVBSのコードを書いてVBSの拡張子で保存して使っています
動作は問題ないのですが、これってファイルを右クリックの編集で
誰でも見ることが出来、編集することが出来ますね
パスワード等で特定の人しか編集できないようにすることは可能でしょうか

投稿日時 - 2009-07-21 11:07:38

QNo.5142908

困ってます

質問者が選んだベストアンサー

暗号化という方法があります。
ソースは自分の所にだけ置いておき、暗号化ファイルを頒布します。
例えば、X.vbs を暗号化し、Y.vbe として配布します。
http://www.microsoft.com/downloads/details.aspx?FamilyID=2976ee94-bec5-4314-84fd-8d7ec891c1c5&displaylang=ja
1文字でも変更すると動作しなくなります。

投稿日時 - 2009-07-21 11:43:09

補足

すみません、VBSファイルを暗号化する事が出来ましたが
さらに欲が出てきまして
sample.vbsを暗号化するためにはコマンド・プロンプトより
C:\>cd C:\Program Files\Windows Script Encoder
C:\Program Files\Windows Script Encoder> screnc sample.vbs samplevbe
と入力しなければなりません
これをVBSで行うには どの様にコードを書けば良いでしょうか

投稿日時 - 2009-07-21 15:06:28

お礼

nda23さん、ありがとうございます。
早速、ご紹介のサイトよりsce10jp.exe をDLL インストールして
暗号化することが出来ました。

投稿日時 - 2009-07-21 14:14:13

ANo.1

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Const FromDir = "C:\moto" '★実際のフォルダのパスを指定する
Const ToDir = "C:\saki" '★実際のフォルダのパスを指定する

Dim FSO, FLD, FLO, SHL, NAME, CMD
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHL = CreateObject("WScript.ShelL")
Set FLD = FSO.GetFolder(FromDir)
For Each FLO In FLD.Files
  NAME = FLO.Name
  If LCase(Right(NAME, 4)) = ".vbs" Then
    NAME = Left(NAME, Len(NAME) - 4)
    CMD = """C:\Program Files\Windows Script Encoder\screnc.exe"" "
    CMD = CMD & FromDir & "\" & NAME & ".vbs "
    CMD = CMD & ToDir & "\" & NAME & ".vbe"
    SHL.Run CMD, 0, True '★少数ならFalseでも良い
  End If
Next

VBSやるなら、これくらいは直ぐに書けるようにしましょう。

投稿日時 - 2009-07-21 16:00:32

お礼

nda23さん、早速の回答ありがとうございます。
変換はその都度行いますので下記で行うことが出来ました。
Dim FSO, SHL, CMD
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHL = CreateObject("WScript.ShelL")
CMD = """C:\Program Files\Windows Script Encoder\screnc.exe"""
CMD = CMD & " " & "G:\moto\sample.vbs"
CMD = CMD & " " & "G:\saki\sample.vbe"
SHL.Run CMD, 0, False
Set FSO = Nothing
Set SHL = Nothing
MsgBox "無事変換できました。"

ありがとうございました。
>VBSやるなら、これくらいは直ぐに書けるようにしましょう。
は~い! 勉強します。

投稿日時 - 2009-07-21 17:07:22

あなたにオススメの質問