Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Программирование _ Скрипт

Автор: qwer11 Понедельник, 06 Сентября 2004, 12:11

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>
непомагает.

Автор: KDD Четверг, 30 Сентября 2004, 8:27

А может кто нибудь знает как сделать чтобы этот скрипта мог менять имя локального админа не только в англиийской но и в русской винде. т.е. я бы его через политику запустил в AD. а то компов может быть 1000.