Option Explicit
Dim strComputer Dim objUser
strComputer = "Computer1" Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user") objUser.SetPassword "1" objUser.SetInfo Как его зашифровать Encode от микрософта подскажите Просто такая ситуация файл имеете разрешение *.vbs кодирую его screnc 1.vbs(исходный файл) 2.vbs(получаемый файл) после запуска полученого файла закодированного выдает ошибку 'Предполагается наличие инструкции' ставить в начале и в конце <script LANGUAGE="VBScript"> 'Copyright© 1998. XYZ Productions. All rights reserved. '**Start Encode** ' Your code goes here. </SCRIPT> непомагает.
--------------------
It's only GAME !!! ReLaX...
|