Cacher is the code snippet organizer for pro developers

'Данный скрипт пробегается по всем файлам в заданной папке 
'по маске "*.cer" и применяет certmgr.exe для установки сертификатов
'path = "U:\Баулин C.А\Root\"
'path = "\\ea1-oper1\monitoring\Root\"
path = "\Root\"
Set WshShell = WScript.CreateObject( "WScript.Shell" ) 
Set objNetwork = CreateObject( "WScript.Network" )
set fso = CreateObject( "Scripting.FileSystemObject" )
Set fLog = fso.OpenTextFile( "!log_root_certs.txt", 8, True )
fLog.write vbCrLf & "=Начало=" & Now( ) & vbCrLf
fLog.write "Имя компа: " & objNetwork.ComputerName & vbCrLf
fLog.write "Имя пользователя: " & objNetwork.UserName & vbCrLf
fLog.write "Были установлены следующие сертификаты:" & vbCrLf  & vbCrLf
i = 0

for each f in FSO.GetFolder( WshShell.CurrentDirectory & path ).Files 'тут указано имя папки, в которой ищем.
 if right(f.name, 4) = ".cer" then 
   WshShell.Run "certmgr -add -c " & chr(34) & f & chr(34) & " -s -r localMachine root", 7, true
   fLog.write f.name & vbCrLf 
   i = i + 1
 end if
next 

fLog.write vbCrLf  & "Установлено сертификатов: " & i & vbCrLf  & vbCrLf 
fLog.close