В минушую пятницу компания Microsoft опять подверглась хакерской атаке:
Интернет-сервер компании был атакован злоумышленником из Голландии,
использовавшим псевдоним "Dimitri".
В понедельник представитель Microsoft
подтвердил эту информацию, сообщив, что хакер взломал WEB-сервер, служивший
редиректором запросов пользователей на новый адрес сайта регистрации событий и
конференций, и оставил сообщение "Hack the planet" (дословно - взломай планету).
Специалисты компании ликвидировали проблему очень быстро. Хотя этот взлом и был
незначительным по сравнению с произошедшим совсем недавно взломом внутренней
сети Microsoft, но он с новой силой поднял вопрос безопасности корпоративной
информации и фирменных ноу-хау в эпоху бурного развития компьютерных сетей и
новых технологий.
Новая библиотека Microsoft Scripting Runtime содержит иерархию FileSystemObject, состоящую из нескольких объектов, которые позволяют получать информацию о дисках, папках и файлах. Например, вы можете получить серийный номер диска с помощью такого кода:
' получаем серийный номер диска c:
Dim fso As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
' получаем ссылку к объекту Drive
Set dr = fso.GetDrive("c")
Print Hex$(dr.SerialNumber)
А используя свойство FreeSpace объекта Drive можно также проверить, достаточно ли у вас свободного места на диске:
Print "На диске C есть " & dr.FreeSpace & " свободных байт"
Более подробно об этом можно прочитать в Справке VB в разделах Dictionary и FileSystemObject.
Читайте у нас новую статью о программировании на Visual Basic
"Использование HTML Help в приложениях на Visual Basic".
В ней подробно рассказывается об использовании технологии HTML Help и работе в редакторе HTML Help Workshop.