YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'Win32_UserAccount
'Win32_Group
'Win32_Account
'SystemAccount
strComputer = "."
dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem in colItems
'if objItem.Name="X" then
'Wscript.Echo "Local Account: " & objItem.LocalAccount
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Name: " & objItem.Name&"--"&"SID: " & objItem.SID
'Wscript.Echo "SID Type: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
'Wscript.Echo
'end if
if (objItem.Status<>"Degraded" ) then
'способ №1 с наличием ограничений по записи в реестр типа данных
' ниже, дляпримера, пишем в HKEY_CURRENT_USER
' WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
'тут пишем в сид локольного пользователя
'WshShell.RegWrite "HKU\" & objItem.SID & "\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
'способ №2 -- без ограничений по записи в реестр типа данных
'reg add имя_раздела [/v имя_записи|/ve] [/t тип_данных] [/s разделитель] [/d значение] [/f]
'ниже пример от барабана кот тебе надо самому редактировать )
WshShell.Run "cmd /k echo " & " reg add HKU\"& objItem.SID & "\MyAPP"& " /v KeyMyApp1 /t REG_DWORD /d 125756"
end if
Next
|
Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 12:20 11-12-2009 | Исправлено: YNY, 12:40 11-12-2009 |
|
