[Iska]

Проще пакетным файлом:

Код:

net.exe user "Вася_Пупкин" "123456789" /add /active:yes && net.exe localgroup "Администраторы" "Вася_Пупкин" /add

и:

Код:

net.exe localgroup "Администраторы" "Вася_Пупкин" /delete && net.exe user "Вася_Пупкин" /delete

[kvitalik]

Iska, это мне в один скрипт собрать в vbs сохранить и запустить?

net.exe user "Вася_Пупкин" "123456789" /add /active && net.exe localgroup "Администраторы" "Вася_Пупкин" /add »

сохраняю этот скрипт как vbs запускаю и пишт ошибку: строка 1 символ 14

Iska, нужно чтобы:
1.Создавалась пользователь со всеми правами администратора.
2.И скрывала себя из экрана приветствия учетную запись.
3.Чтобы пароль был вечным.
4. Скрывала все папки на диске с: Созданной учетки.
Чтобы никому в голову не пришлось взломать ее пароль, ото школьники так и хотят получить доступ там где не нужно.

[kvitalik]

Iska , возможно ли это сделать ?

[Iska]

Iska, это мне в один скрипт собрать в vbs сохранить и запустить? »

kvitalik, я же написал:

пакетным файлом »

Iska, нужно чтобы: 1.Создавалась пользователь со всеми правами администратора. 2.И скрывала себя из экрана приветствия учетную запись. 3.Чтобы пароль был вечным. 4. Скрывала все папки на диске с: Созданной учетки. »

Вы не находите, что это сильно отличается от изначально поставленной техзадачи? Я — нахожу.

Iska , возможно ли это сделать ? »

Итак:

1.Создавалась пользователь со всеми правами администратора. »

Можно (только нет никаких «всех прав администратора», забудьте об этом, есть локальная группа Администраторы. И есть привилегии, набор которых определяет права той или иной группы безопасности).

2.И скрывала себя из экрана приветствия учетную запись. »

Помнится, что можно.

3.Чтобы пароль был вечным. »

Вечным не бывает ничего. Но можно указать, что срок действия пароля не ограничен.

4. Скрывала все папки на диске с: Созданной учетки. »

Не вижу в этом ни малейшего смысла, ни какой-либо необходимости.

Чтобы никому в голову не пришлось взломать ее пароль, ото школьники так и хотят получить доступ там где не нужно. »

Для того, чтобы даже не взломать, а просто снять пароль — достаточно желания, простого физического доступа к машине на некоторое время и немного знаний и умений.

[Iska]

kvitalik, пробуйте (на WSH):

Скрытый текст

Код:

Option Explicit

Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Const HKEY_LOCAL_MACHINE        = &H80000002


Dim strUserName
Dim strComputer

Dim objIADsComputer
Dim objIADsUser

Dim boolUserAlreadyExists


strUserName = "Вася_Пупкин"
strComputer = WScript.CreateObject("WScript.Network").ComputerName


Set objIADsComputer = GetObject("WinNT://" & strComputer & ",computer")
objIADsComputer.Filter = Array("user")

boolUserAlreadyExists = False

For Each objIADsUser In objIADsComputer
	If StrComp(objIADsUser.Name, strUserName, vbTextCompare) = 0 Then
		boolUserAlreadyExists = True
		
		Exit For
	End If
Next

If Not boolUserAlreadyExists Then
	With objIADsComputer.Create("user", strUserName)
		.SetPassword "123456789"
		.SetInfo
		
		GetObject("WinNT://" & strComputer & "/Администраторы,group").Add .ADsPath
		
		.Put "userFlags", .Get("UserFlags") OR ADS_UF_DONT_EXPIRE_PASSWD
		.SetInfo
	End With
Else
	WScript.Echo "User account [" & strUserName & "] already exists."
	WScript.Quit 1
End If

Set objIADsComputer = Nothing

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(strComputer, "root\default").Get("StdRegProv")
	.CreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"
	.SetDWORDValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList", strUserName, 0
End With

WScript.Quit 0

и:

Скрытый текст

Код:

Option Explicit

Const HKEY_LOCAL_MACHINE        = &H80000002


Dim strUserName
Dim strComputer

Dim objIADsComputer
Dim objIADsUser


strUserName = "Вася_Пупкин"
strComputer = WScript.CreateObject("WScript.Network").ComputerName


Set objIADsComputer = GetObject("WinNT://" & strComputer & ",computer")
objIADsComputer.Filter = Array("user")

For Each objIADsUser In objIADsComputer
	If StrComp(objIADsUser.Name, strUserName, vbTextCompare) = 0 Then
		objIADsComputer.Delete "user", strUserName
		
		Exit For
	End If
Next

Set objIADsComputer = Nothing

WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(strComputer, "root\default").Get("StdRegProv").DeleteValue _
	HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList", strUserName

WScript.Quit 0

[kvitalik]

Iska, первый код работает все ок спасибо Вам огромное.

ISKA, Я ПОДНЯЛ НЕКУЮ ТЕМУ НА ФОРУМЕ НО МНЕ НИКТО НЕ СМОГ ПОМОЧЬ.
вот в чем дело:
Как можно использовать одновременно одну и ту же сессию в windows 7 , допустим есть учетная запись пользователя админ, и в ней работает человек я хочу тоже в эту учетку зайти через rdp и одновременно работать и не мешая друг друга и не видя действии друг у друга.
но работать из одной учетной записи?!

Дело в том, что когда я подключаюсь к учетной записи которая активна удаленным пользователем у него с сеанса выкидывает, и подключаюсь я уже к его учетке, тоже самое и наоборот происходит. Так как можно одновременно работать с одной и той же учетной записи не мешая друг друга?!

нашел эту утилиту но и она не помогла RDP Wrapper Library v1.5

[DJ Mogarych]

НО МНЕ НИКТО НЕ СМОГ ПОМОЧЬ »

И не сможет, потому что работать под одной сессией невозможно. Сказано же - делайте вторую учётку.

[Iska]

Iska, первый код работает »

И второй тоже.