Archive for the Category: ' VBScript '

Статья написана автором Галиев Руслан

Win32_NTDomain

Для того чтобы узнать имя контроллера домена используемого на конкретного компьютера написал небольшой VB Script

1
2
3
4
5
6
7
8
9
10
11
12
13
 Computer = InputBox("Имя компьютера")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")

Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_NTDomain")

For Each objComputer in colComputer
if objComputer.DomainControllerName<>"" then
Wscript.Echo "NTDomain: " & objComputer.DomainControllerName
end if
Next
Статья написана автором Галиев Руслан

Запись в журналы

При каком-либо действии которое происходит на автомате(создание бэкапа, сбой при открытии командного файла) есть необходимость создание записи в журнале. Ниже в листинге показано как с помощью VBS создать запись в журнал.

1
2
3
4
5
6
Const EVENT_SUCCESS = 0

Set objShell = Wscript.CreateObject("Wscript.Shell")

objShell.LogEvent EVENT_SUCCESS, _
    "Приложение установлено успешно."

Далее »