Я понимаю, что тема немного не сюда, но может подскажите.
Задача мониторить размер подпапок по определенному пути. Скрипт на powershell формирует файл в json, а zabbix его считывает.
Создать файл не проблема, файл создает, но когда заббикс пытается его прочитать, ошибка
Invalid discovery rule value: cannot parse as a valid JSON object: invalid object format, expected opening character '{' or '[' at: ' ■{
Скрипт
Files_Array = @()
$MainFolder = "\\?\E:\Distr\Microsoft\" ;
$Files_Array ='{'
$Files_Array +=[System.Environment]::NewLine + ' "data": ['
$SubFolders = Get-ChildItem -LiteralPath $MainFolder | where {$_.PSIsContainer -eq $true} | Sort-Object;
foreach ($folder in $subfolders) {
$SubFolderSize = Get-ChildItem $folder.FullName -Recurse | measure -Property length -Sum;
$size=$SubFolderSize.Sum
$size = "{0:N0}" -f ($SubFolderSize.Sum/1GB)
$Files_Array +=[System.Environment]::NewLine +'{"{#FOLNAME}": "'+ $folder + '", "{#FOLSIZE}": "' +$size+ '"},'
}
$Files_Array +=[System.Environment]::NewLine +' ]
}'
$Files_Array | out-file C:\zabbix\scripts\folders\disk.txt
файл с результатом
{
"data": [
{"{#FOLNAME}": "Business Studio", "{#FOLSIZE}": "5"},
{"{#FOLNAME}": "ConfigurationManager", "{#FOLSIZE}": "3"}
]
}
Я делал по аналогии с другим скриптом (писал не я), он из 1С выгружает списки баз, пользователей... там файл формируется через vbs, я его переделал, чтобы размеры папок считал и даже работает, но с ним другая проблема,
если к примеру нету доступа в папку, то он сразу прерывает выполнение. Может можно как-то пропускать ? Так же могут быть с длинными путями, ошибку наверное тоже будет выдавать ?
Вот скрипт
BaseDirectory = "g:\Users\"
Const strBasesListFileName = "c:\zabbix\scripts\folders\disk_n.txt"
CheckFolder(BaseDirectory)
Dim strBasesList ' Список баз
Dim BC
Dim sfn
Dim BN
Sub WriteToFile (ByVal strFileName, ByVal strString)
' Опишем константы для работы с текстовыми файлами
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim fso, f
Err.Clear
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strFileName, ForWriting, True)
f.WriteLine strString
f.Close
Set f = Nothing
Set fso = Nothing
End Sub
Function CheckFolder(Directory)
Set sss = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Directory)
strBasesList = "{"
strBasesList = strBasesList & vbCrLf & " ""data"": ["
BN = 0
BC = 1
For Each sfn In f.subfolders
BN = BN +1
Next
For each sf In f.subfolders
'value = round(sf.Size/1048576/1024)
WScript.Echo sf
value = sf.Size
If BN = BC Then
strBasesList = strBasesList & vbCrLf & " {""{#FOLNAME}"": """ & sf.name & """, ""{#FOLSIZE}"": """ & Value & """}"
Else
strBasesList = strBasesList & vbCrLf & " {""{#FOLNAME}"": """ & sf.name & """, ""{#FOLSIZE}"": """ & Value & """},"
End If
BC = BC +1
'WScript.Echo strBasesList
Next
strBasesList = strBasesList & vbCrLf & " ]"
strBasesList = strBasesList & vbCrLf & "}"
End Function
WScript.Echo strBasesList
