After logging in as ADMINISTRATOR,

vbCRLF & vbCRLF & " After logging in as ADMINISTRATOR, run the " & _

"C:\WINNT\SYSTEM32\FinalSetup.vbs script again" & _

" to finish the installation."

 Wscript.Quit

END IF

'***************************************************

'Убедимся, что машина была добавлена к домену;

'в противном случае завершаем работу и выводим сообщение.

'***************************************************

'Получаем значение ключа из реестра.

sInDomain = oWshShell.RegRead("HKLM\SOFTWARE\" & _

"Microsoft\Windows NT\CurrentVersion\Winlogon\DomainCache\GONDOR")

IF sInDomain = "" THEN

Wscript.Echo "The Computer does not belong to " & DOMAIN & " domain!"

Wscript.quit

END IF

IF ERR.NUMBER = -2147024894 THEN

Wscript.Echo "The Computer does not belong to " & DOMAIN & " domain!"

Wscript.quit

END IF

'********************************************************

'Обновляем членство в группе.

'********************************************************

Set oGroup = GetObject("WinNT://" & sCompName & "/" & LOCAL_GROUP & ",group")

sMember = oGroup.IsMember("WinNT://" & DOMAIN & "/" & GLOBAL_GROUP)

'если является членом, то sMember будет -1, иначе 0.

IF sMember = 0 THEN

oGroup.add("WinNT://" & DOMAIN & "/" & GLOBAL_GROUP)

sMember = oGroup.IsMember("WinNT://" & DOMAIN & "/" & GLOBAL_GROUP)

'Если является членом, то sMember будет -1, иначе 0.

IF sMember = -1 THEN

oWshShell.Popup "The " & GLOBAL_GROUP & " global group has been " & _

"successfully added to the " & LOCAL_GROUP & " local group.", _

5, "Local Group Modified", 064

End IF

ELSE

oWshShell.Popup "The " & GLOBAL_GROUP & " global group is already" & _


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---