Цитата Anufriev:
|
... политикой запустить скрипт по всем машинкам, и собрать отчет
|
Пример сценария для запуска через GPO при начале сеанса пользователя. Журнал будет создан в папке
Application Data профиля пользователя (разумеется, можете указать свой путь, но советую добавить проверку на наличие/доступность этого пути).
Код:
Dim objWMI, objWsNet, objAccount
Dim objFS, objFile, strLog
Dim arrValueNames, arrValueTypes
Dim strDomain, strUser, strSID, strList
Const HKU = &H80000003
Const strSubKeyName = "\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts"
strLog = "_LanPrinters.log"
Set objWsNet = CreateObject("WScript.Network")
strComputer = objWsNet.ComputerName
strDomain = objWsNet.UserDomain
strUser = objWsNet.UserName
Set objWsNet = Nothing
On Error Resume Next
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
If Err.Number = 0 Then
Set objAccount = objWMI.Get("Win32_UserAccount.Domain='" & strDomain & "',Name='" & strUser & "'")
If Err.Number = 0 Then
strSID = objAccount.SID
If Err.Number = 0 Then
Set objAccount = Nothing
Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")
If Err.Number = 0 Then
objWMI.EnumValues HKU, strSID & strSubKeyName, arrValueNames, arrValueTypes
If Err.Number = 0 Then
For i = 0 To UBound(arrValueNames)
If Left(arrValueNames(i), 2) = "\\" Then strList = strList & Mid(arrValueNames(i), 3) & ";"
Next
strLog = CreateObject("Shell.Application").NameSpace(&H1A).Self.Path & "\" & strUser & strLog
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile(strLog, True)
If Err.Number = 0 Then
If Len(strList) > 0 Then
If Right(strList, 1) = ";" Then strList = Mid(strList, 1, Len(strList) - 1)
objFile.WriteLine strList
End If
objFile.Close
Set objFile = Nothing
Else
Err.Clear
End If
Set objFS = Nothing
Else
Err.Clear
End If
Else
Err.Clear
End If
Else
Err.Clear
End If
Else
Err.Clear
End If
Set objWMI = Nothing
Else
Err.Clear
End If
WScript.Quit 0
Диагностику ошибок, если нужна, добавляйте самостоятельно.
