ລາຍງານປະຈໍາວັນກ່ຽວກັບສຸຂະພາບຂອງເຄື່ອງ virtual ໂດຍໃຊ້ R ແລະ PowerShell

ເຂົ້າ

ສະ​ບາຍ​ດີ​ຕອນ​ສວາຍ. ສໍາລັບເຄິ່ງຫນຶ່ງປີໃນປັດຈຸບັນພວກເຮົາໄດ້ດໍາເນີນການ script (ຫຼືແທນທີ່ຈະເປັນຊຸດຂອງ scripts) ທີ່ສ້າງບົດລາຍງານກ່ຽວກັບສະຖານະພາບຂອງ virtual machines (ແລະບໍ່ພຽງແຕ່). ຂ້າພະເຈົ້າໄດ້ຕັດສິນໃຈທີ່ຈະແບ່ງປັນປະສົບການການສ້າງຂອງຂ້ອຍແລະລະຫັດຕົວມັນເອງ. ຂ້າ​ພະ​ເຈົ້າ​ຫວັງ​ວ່າ​ສໍາ​ລັບ​ການ​ວິ​ຈານ​ແລະ​ວ່າ​ອຸ​ປະ​ກອນ​ການ​ນີ້​ອາດ​ຈະ​ເປັນ​ປະ​ໂຫຍດ​ສໍາ​ລັບ​ບາງ​ຄົນ​.

ການສ້າງຄວາມຕ້ອງການ

ພວກເຮົາມີເຄື່ອງ virtual ຫຼາຍ (ປະມານ 1500 VM ທີ່ແຈກຢາຍໃນທົ່ວ 3 vCenters). ອັນໃໝ່ຖືກສ້າງ ແລະອັນເກົ່າຖືກລຶບເລື້ອຍໆ. ເພື່ອຮັກສາຄວາມເປັນລະບຽບຮຽບຮ້ອຍ, ຫຼາຍຊ່ອງຂໍ້ມູນແບບກຳນົດເອງໄດ້ຖືກເພີ່ມໃສ່ vCenter ເພື່ອແບ່ງ VMs ເຂົ້າໄປໃນລະບົບຍ່ອຍ, ຊີ້ບອກວ່າພວກເຂົາເປັນການທົດສອບ, ແລະໂດຍໃຜ ແລະເມື່ອໃດທີ່ພວກມັນຖືກສ້າງ. ປັດໄຈຂອງມະນຸດເຮັດໃຫ້ຄວາມຈິງທີ່ວ່າຫຼາຍກວ່າເຄິ່ງຫນຶ່ງຂອງເຄື່ອງຈັກໄດ້ຖືກປະໄວ້ກັບທົ່ງນາເປົ່າ, ເຊິ່ງເຮັດໃຫ້ວຽກງານສັບສົນ. ເມື່ອທຸກໆຫົກເດືອນ, ມີຄົນແປກປະຫຼາດແລະເລີ່ມເຮັດວຽກກ່ຽວກັບການອັບເດດຂໍ້ມູນນີ້, ແຕ່ຜົນໄດ້ຮັບກໍ່ຢຸດເຊົາທີ່ກ່ຽວຂ້ອງຫຼັງຈາກຫນຶ່ງອາທິດແລະເຄິ່ງຫນຶ່ງ.
ຂ້າພະເຈົ້າຂໍຊີ້ແຈງທັນທີວ່າທຸກຄົນເຂົ້າໃຈວ່າຕ້ອງມີຄໍາຮ້ອງສະຫມັກສໍາລັບການສ້າງເຄື່ອງຈັກ, ຂະບວນການສໍາລັບການສ້າງຂອງພວກເຂົາ, ແລະອື່ນໆ. ແລະອື່ນໆ. ແລະໃນເວລາດຽວກັນ, ທຸກຄົນປະຕິບັດຕາມຂະບວນການນີ້ຢ່າງເຂັ້ມງວດແລະທຸກສິ່ງທຸກຢ່າງແມ່ນຢູ່ໃນຄໍາສັ່ງ. ແຕ່ຫນ້າເສຍດາຍ, ນີ້ບໍ່ແມ່ນກໍລະນີ, ແຕ່ນີ້ບໍ່ແມ່ນຫົວຂໍ້ຂອງບົດຄວາມ :)

ໂດຍທົ່ວໄປ, ການຕັດສິນໃຈໄດ້ຖືກເຮັດໃຫ້ອັດຕະໂນມັດການກວດສອບຄວາມຖືກຕ້ອງຂອງການຕື່ມຂໍ້ມູນໃສ່ທົ່ງນາ.
ພວກເຮົາໄດ້ຕັດສິນໃຈວ່າຈົດຫມາຍປະຈໍາວັນທີ່ມີບັນຊີລາຍຊື່ຂອງເຄື່ອງຈັກທີ່ຕື່ມບໍ່ຖືກຕ້ອງໄປຫາວິສະວະກອນທີ່ຮັບຜິດຊອບທັງຫມົດແລະນາຍຈ້າງຂອງພວກເຂົາຈະເປັນການເລີ່ມຕົ້ນທີ່ດີ.

ໃນຈຸດນີ້, ຫນຶ່ງໃນເພື່ອນຮ່ວມງານຂອງຂ້ອຍໄດ້ປະຕິບັດ script ໃນ PowerShell ແລ້ວ, ເຊິ່ງທຸກໆມື້, ຕາມຕາຕະລາງ, ໄດ້ລວບລວມຂໍ້ມູນກ່ຽວກັບເຄື່ອງຈັກທັງຫມົດຂອງ vCenters ທັງຫມົດແລະສ້າງເອກະສານ csv 3 (ແຕ່ລະອັນສໍາລັບ vCenter ຂອງຕົນເອງ), ເຊິ່ງໄດ້ຖືກອັບໂຫລດໄປ. ແຜ່ນທົ່ວໄປ. ມັນໄດ້ຖືກຕັດສິນໃຈເອົາສະຄິບນີ້ເປັນພື້ນຖານແລະເສີມມັນກັບການກວດສອບໂດຍໃຊ້ພາສາ R, ເຊິ່ງພວກເຮົາມີປະສົບການບາງຢ່າງ.

ໃນຂະບວນການສຸດທ້າຍ, ການແກ້ໄຂໄດ້ຮັບຂໍ້ມູນທາງໄປສະນີ, ຖານຂໍ້ມູນທີ່ມີຕາຕະລາງຕົ້ນຕໍແລະປະຫວັດສາດ (ເພີ່ມເຕີມກ່ຽວກັບເລື່ອງນີ້ຕໍ່ມາ), ເຊັ່ນດຽວກັນກັບການວິເຄາະບັນທຶກ vSphere ເພື່ອຊອກຫາຜູ້ສ້າງທີ່ແທ້ຈິງຂອງ vm ແລະເວລາຂອງການສ້າງຂອງພວກເຂົາ.

IDE RStudio Desktop ແລະ PowerShell ISE ຖືກໃຊ້ເພື່ອການພັດທະນາ.

ສະຄຣິບຖືກເປີດຕົວຈາກເຄື່ອງ virtual Windows ປົກກະຕິ.

ລາຍລະອຽດຂອງເຫດຜົນທົ່ວໄປ.

ເຫດຜົນທົ່ວໄປຂອງ scripts ມີດັ່ງນີ້.

• ພວກ​ເຮົາ​ເກັບ​ກໍາ​ຂໍ້​ມູນ​ກ່ຽວ​ກັບ virtual machines ໂດຍ​ນໍາ​ໃຊ້​ສະ​ຄິບ PowerShell​, ທີ່​ພວກ​ເຮົາ​ໂທ​ຜ່ານ R​, ແລະ​ລວມ​ເອົາ​ຜົນ​ໄດ້​ຮັບ​ເປັນ​ຫນຶ່ງ csv​. ປະຕິສໍາພັນປີ້ນກັບກັນລະຫວ່າງພາສາແມ່ນເຮັດເຊັ່ນດຽວກັນ. (ມັນເປັນໄປໄດ້ທີ່ຈະຂັບຂໍ້ມູນໂດຍກົງຈາກ R ກັບ PowerShell ໃນຮູບແບບຂອງຕົວແປ, ແຕ່ນີ້ແມ່ນມີຄວາມຫຍຸ້ງຍາກ, ແລະມີ csvs ລະດັບປານກາງເຮັດໃຫ້ມັນງ່າຍຕໍ່ການແກ້ໄຂແລະແບ່ງປັນຜົນໄດ້ຮັບລະດັບປານກາງກັບຜູ້ອື່ນ).
• ການນໍາໃຊ້ R, ພວກເຮົາປະກອບພາລາມິເຕີທີ່ຖືກຕ້ອງສໍາລັບຊ່ອງຂໍ້ມູນທີ່ມີຄ່າທີ່ພວກເຮົາກໍາລັງກວດສອບ. — ພວກເຮົາກຳລັງສ້າງເອກະສານຄຳສັບທີ່ຈະບັນຈຸຄຸນຄ່າຂອງຊ່ອງຂໍ້ມູນເຫຼົ່ານີ້ເພື່ອໃສ່ໃນຈົດໝາຍຂໍ້ມູນ, ເຊິ່ງຈະເປັນຄຳຕອບຂອງຄຳຖາມຂອງເພື່ອນຮ່ວມງານ “ບໍ່, ແຕ່ຂ້ອຍຄວນຕື່ມຂໍ້ມູນນີ້ແນວໃດ?”
• ພວກເຮົາໂຫລດຂໍ້ມູນສໍາລັບ VM ທັງຫມົດຈາກ csv ໂດຍໃຊ້ R, ສ້າງກອບຂໍ້ມູນ, ເອົາຊ່ອງຂໍ້ມູນທີ່ບໍ່ຈໍາເປັນອອກແລະສ້າງເອກະສານ xlsx ຂໍ້ມູນທີ່ຈະປະກອບມີຂໍ້ມູນສະຫຼຸບສໍາລັບ VM ທັງຫມົດ, ທີ່ພວກເຮົາອັບໂຫລດໄປຍັງຊັບພະຍາກອນທີ່ແບ່ງປັນ.
• ພວກເຮົານໍາໃຊ້ການກວດສອບຄວາມຖືກຕ້ອງຂອງການຕື່ມຂໍ້ມູນໃສ່ໃນກອບຂໍ້ມູນສໍາລັບ VM ທັງຫມົດແລະສ້າງຕາຕະລາງທີ່ມີພຽງແຕ່ VM ທີ່ມີຊ່ອງຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງ (ແລະພຽງແຕ່ຊ່ອງຂໍ້ມູນເຫຼົ່ານີ້).
• ພວກເຮົາສົ່ງລາຍຊື່ຜົນໄດ້ຮັບຂອງ VM ໄປຫາສະຄິບ PowerShell ອື່ນ, ເຊິ່ງຈະເບິ່ງບັນທຶກ vCenter ສໍາລັບເຫດການການສ້າງ VM, ເຊິ່ງຈະຊ່ວຍໃຫ້ພວກເຮົາຊີ້ບອກເວລາຄາດຄະເນຂອງການສ້າງ VM ແລະຜູ້ສ້າງທີ່ຕັ້ງໃຈ. ນີ້ແມ່ນສໍາລັບກໍລະນີໃນເວລາທີ່ບໍ່ມີໃຜຍອມຮັບວ່າມັນແມ່ນລົດຂອງໃຜ. ສະຄິບນີ້ບໍ່ເຮັດວຽກຢ່າງໄວວາ, ໂດຍສະເພາະຖ້າມີບັນທຶກຈໍານວນຫລາຍ, ດັ່ງນັ້ນພວກເຮົາເບິ່ງພຽງແຕ່ 2 ອາທິດທີ່ຜ່ານມາ, ແລະຍັງໃຊ້ຂະບວນການເຮັດວຽກທີ່ຊ່ວຍໃຫ້ທ່ານສາມາດຄົ້ນຫາຂໍ້ມູນກ່ຽວກັບ VMs ຫຼາຍໆຄັ້ງພ້ອມກັນ. script ຕົວຢ່າງປະກອບມີຄໍາຄິດຄໍາເຫັນຢ່າງລະອຽດກ່ຽວກັບກົນໄກນີ້. ພວກເຮົາເພີ່ມຜົນໄດ້ຮັບເຂົ້າໄປໃນ csv, ເຊິ່ງພວກເຮົາໂຫລດອີກເທື່ອຫນຶ່ງເຂົ້າໄປໃນ R.
• ພວກເຮົາສ້າງເອກະສານ xlsx ທີ່ມີຮູບແບບທີ່ສວຍງາມເຊິ່ງຊ່ອງຂໍ້ມູນທີ່ຕື່ມບໍ່ຖືກຕ້ອງຈະຖືກເນັ້ນໃສ່ເປັນສີແດງ, ຕົວກອງຈະຖືກນໍາໄປໃຊ້ກັບບາງຄໍລໍາ, ແລະຄໍລໍາເພີ່ມເຕີມທີ່ມີຜູ້ສ້າງທີ່ມີຈຸດປະສົງແລະເວລາຂອງການສ້າງ VM ຈະຖືກຊີ້ບອກ.
• ພວກເຮົາສ້າງອີເມລ໌, ບ່ອນທີ່ພວກເຮົາແນບເອກະສານທີ່ອະທິບາຍຄ່າຂອງຊ່ອງຂໍ້ມູນທີ່ຖືກຕ້ອງ, ເຊັ່ນດຽວກັນກັບຕາຕະລາງທີ່ມີການຕື່ມຂໍ້ມູນບໍ່ຖືກຕ້ອງໃນຊ່ອງຂໍ້ມູນ. ໃນຂໍ້ຄວາມພວກເຮົາຊີ້ໃຫ້ເຫັນຈໍານວນທັງຫມົດຂອງ VMs ທີ່ຖືກສ້າງທີ່ບໍ່ຖືກຕ້ອງ, ການເຊື່ອມຕໍ່ກັບຊັບພະຍາກອນທີ່ແບ່ງປັນແລະຮູບພາບທີ່ກະຕຸ້ນ. ຖ້າບໍ່ມີ VM ທີ່ຖືກຕື່ມບໍ່ຖືກຕ້ອງ, ພວກເຮົາສົ່ງຈົດຫມາຍສະບັບອື່ນທີ່ມີຮູບພາບແຮງຈູງໃຈທີ່ມີຄວາມສຸກກວ່າ.
• ພວກເຮົາບັນທຶກຂໍ້ມູນສໍາລັບ VMs ທັງຫມົດໃນຖານຂໍ້ມູນ SQL Server, ໂດຍຄໍານຶງເຖິງກົນໄກການປະຕິບັດຂອງຕາຕະລາງປະຫວັດສາດ (ກົນໄກທີ່ຫນ້າສົນໃຈຫຼາຍ - ກ່ຽວກັບການທີ່ຕໍ່ມາ).

ຕົວ​ຈິງ​ແລ້ວ scripts

ໄຟລ໌ລະຫັດ R ຫຼັກ

# Путь к рабочей директории (нужно для корректной работы через виндовый планировщик заданий)
setwd("C:ScriptsgetVm")
#### Подгружаем необходимые пакеты ####
library(tidyverse)
library(xlsx)
library(mailR)
library(rmarkdown)
##### Определяем пути к исходным файлам и другие переменные #####
source(file = "const.R", local = T, encoding = "utf-8")
# Проверяем существование файла со всеми ВМ и удаляем, если есть.
if (file.exists(filenameVmCreationRules)) {file.remove(filenameVmCreationRules)}
#### Создаём вордовский документ с допустимыми полями
render("VM_name_rules.Rmd",
output_format = word_document(),
output_file = filenameVmCreationRules)
# Проверяем существование файла со всеми ВМ и удаляем, если есть
if (file.exists(allVmXlsxPath)) {file.remove(allVmXlsxPath)}
#### Забираем данные по всем машинам через PowerShell скрипт. На выходе получим csv.
system(paste0("powershell -File ", getVmPsPath))
# Полный df
fullXslx_df <- allVmXlsxPath %>% 
read.csv2(stringsAsFactors = FALSE)
# Проверяем корректность заполненных полей
full_df <- fullXslx_df %>%
mutate(
# Сначала убираем все лишние пробелы и табуляции, потом учитываем разделитель запятую, потом проверяем вхождение в допустимые значения,
isSubsystemCorrect = Subsystem %>% 
gsub("[[:space:]]", "", .) %>% 
str_split(., ",") %>% 
map(function(x) (all(x %in% AllowedValues$Subsystem))) %>%
as.logical(),
isOwnerCorrect = Owner %in% AllowedValues$Owner,
isCategoryCorrect = Category %in% AllowedValues$Category,
isCreatorCorrect = (!is.na(Creator) & Creator != ''),
isCreation.DateCorrect = map(Creation.Date, IsDate)
)
# Проверяем существование файла со всеми ВМ и удаляем, если есть.
if (file.exists(filenameAll)) {file.remove(filenameAll)}
#### Формируем xslx файл с отчётом ####
# Общие данные на отдельный лист
full_df %>% write.xlsx(file=filenameAll,
sheetName=names[1],
col.names=TRUE,
row.names=FALSE,
append=FALSE)
#### Формируем xslx файл с неправильно заполненными полями ####
# Формируем df
incorrect_df <- full_df %>%
select(VM.Name, 
IP.s, 
Owner,
Subsystem,
Creator,
Category,
Creation.Date,
isOwnerCorrect, 
isSubsystemCorrect, 
isCategoryCorrect,
isCreatorCorrect,
vCenter.Name) %>%
filter(isSubsystemCorrect == F | 
isOwnerCorrect == F |
isCategoryCorrect == F |
isCreatorCorrect == F)
# Проверяем существование файла со всеми ВМ и удаляем, если есть.
if (file.exists(filenameIncVM)) {file.remove(filenameIncVM)}
# Сохраняем список VM с незаполненными полями в csv
incorrect_df %>%
select(VM.Name) %>%
write_csv2(path = filenameIncVM, append = FALSE)
# Фильтруем для вставки в почту
incorrect_df_filtered <- incorrect_df %>% 
select(VM.Name, 
IP.s, 
Owner, 
Subsystem, 
Category,
Creator,
vCenter.Name,
Creation.Date
)
# Считаем количество строк
numberOfRows <- nrow(incorrect_df)
#### Начало условия ####
# Дальше либо у нас есть неправильно заполненные поля, либо нет.
# Если есть - запускаем ещё один скрипт
if (numberOfRows > 0) {
# Проверяем существование файла с создателями и удаляем, если есть.
if (file.exists(creatorsFilePath)) {file.remove(creatorsFilePath)}
# Запускаем PowerShell скрипт, который найдёт создателей найденных VM. На выходе получим csv.
system(paste0("powershell -File ", getCreatorsPath))
# Читаем файл с создателями
creators_df <- creatorsFilePath %>%
read.csv2(stringsAsFactors = FALSE)
# Фильтруем для вставки в почту, добавляем данные из таблицы с создателями
incorrect_df_filtered <- incorrect_df_filtered %>% 
select(VM.Name, 
IP.s, 
Owner, 
Subsystem, 
Category,
Creator,
vCenter.Name,
Creation.Date
) %>% 
left_join(creators_df, by = "VM.Name") %>% 
rename(`Предполагаемый создатель` = CreatedBy, 
`Предполагаемая дата создания` = CreatedOn)  
# Формируем тело письма
emailBody <- paste0(
'<html>
<h3>Добрый день, уважаемые коллеги.</h3>
<p>Полную актуальную информацию по виртуальным машинам вы можете посмотреть на диске H: вот тут:<p>
<p>server.ruVM', sourceFileFormat, '</p>
<p>Также во вложении список ВМ с <strong>некорректно заполненными</strong> полями. Всего их <strong>', numberOfRows,'</strong>.</p>
<p>В таблице появилось 2 дополнительные колонки. <strong>Предполагаемый создатель</strong> и <strong>Предполагаемая дата создания</strong>, которые достаются из логов vCenter за последние 2 недели</p>
<p>Просьба создателей машин уточнить данные и заполнить поля корректно. Правила заполнения полей также во вложении</p>
<p><img src="data/meme.jpg"></p>
</html>'
)
# Проверяем существование файла
if (file.exists(filenameIncorrect)) {file.remove(filenameIncorrect)}
# Формируем красивую таблицу с форматами и т.д.
source(file = "email.R", local = T, encoding = "utf-8")
#### Формируем письмо с плохо подписанными машинами ####
send.mail(from = emailParams$from,
to = emailParams$to,
subject = "ВМ с некорректно заполненными полями",
body = emailBody,
encoding = "utf-8",
html = TRUE,
inline = TRUE,
smtp = emailParams$smtpParams,
authenticate = TRUE,
send = TRUE,
attach.files = c(filenameIncorrect, filenameVmCreationRules),
debug = FALSE)
#### Дальше пойдёт блок, если нет проблем с ВМ ####
} else {
# Формируем тело письма
emailBody <- paste0(
'<html>
<h3>Добрый день, уважаемые коллеги</h3>
<p>Полную актуальную информацию по виртуальным машинам вы можете посмотреть на диске H: вот тут:<p>
<p>server.ruVM', sourceFileFormat, '</p>
<p>Также, на текущий момент, все поля ВМ корректно заполнены</p>
<p><img src="data/meme_correct.jpg"></p>
</html>'
)
#### Формируем письмо без плохо заполненных VM ####
send.mail(from = emailParams$from,
to = emailParams$to,
subject = "Сводная информация",
body = emailBody,
encoding = "utf-8",
html = TRUE,
inline = TRUE,
smtp = emailParams$smtpParams,
authenticate = TRUE,
send = TRUE,
debug = FALSE)
}
####### Записываем данные в БД #####
source(file = "DB.R", local = T, encoding = "utf-8")

ສະຄຣິບສຳລັບການຮັບລາຍຊື່ vm ໃນ PowerShell

# Данные для подключения и другие переменные
$vCenterNames = @(
"vcenter01", 
"vcenter02", 
"vcenter03"
)
$vCenterUsername = "myusername"
$vCenterPassword = "mypassword"
$filename = "C:ScriptsgetVmdataallvmall-vm-$(get-date -f yyyy-MM-dd).csv"
$destinationSMB = "server.rumyfolder$vm"
$IP0=""
$IP1=""
$IP2=""
$IP3=""
$IP4=""
$IP5=""
# Подключение ко всем vCenter, что содержатся в переменной. Будет работать, если логин и пароль одинаковые (например, доменные)
Connect-VIServer -Server $vCenterNames -User $vCenterUsername -Password $vCenterPassword
write-host ""
# Создаём функцию с циклом по всем vCenter-ам
function Get-VMinventory {
# В этой переменной будет списко всех ВМ, как объектов
$AllVM = Get-VM | Sort Name
$cnt = $AllVM.Count
$count = 1
# Начинаем цикл по всем ВМ и собираем необходимые параметры каждого объекта
foreach ($vm in $AllVM) {
$StartTime = $(get-date)
$IP0 = $vm.Guest.IPAddress[0]
$IP1 = $vm.Guest.IPAddress[1]
$IP2 = $vm.Guest.IPAddress[2]
$IP3 = $vm.Guest.IPAddress[3]
$IP4 = $vm.Guest.IPAddress[4]
$IP5 = $vm.Guest.IPAddress[5]
If ($IP0 -ne $null) {If ($IP0.Contains(":") -ne 0) {$IP0=""}}
If ($IP1 -ne $null) {If ($IP1.Contains(":") -ne 0) {$IP1=""}}
If ($IP2 -ne $null) {If ($IP2.Contains(":") -ne 0) {$IP2=""}}
If ($IP3 -ne $null) {If ($IP3.Contains(":") -ne 0) {$IP3=""}}
If ($IP4 -ne $null) {If ($IP4.Contains(":") -ne 0) {$IP4=""}}
If ($IP5 -ne $null) {If ($IP5.Contains(":") -ne 0) {$IP5=""}}
$cluster = $vm | Get-Cluster | Select-Object -ExpandProperty name  
$Bootime = $vm.ExtensionData.Runtime.BootTime
$TotalHDDs = $vm.ProvisionedSpaceGB -as [int]
$CreationDate = $vm.CustomFields.Item("CreationDate") -as [string]
$Creator = $vm.CustomFields.Item("Creator") -as [string]
$Category = $vm.CustomFields.Item("Category") -as [string]
$Owner = $vm.CustomFields.Item("Owner") -as [string]
$Subsystem = $vm.CustomFields.Item("Subsystem") -as [string]
$IPS = $vm.CustomFields.Item("IP") -as [string]
$vCPU = $vm.NumCpu
$CorePerSocket = $vm.ExtensionData.config.hardware.NumCoresPerSocket
$Sockets = $vCPU/$CorePerSocket
$Id = $vm.Id.Split('-')[2] -as [int]
# Собираем все параметры в один объект
$Vmresult = New-Object PSObject
$Vmresult | add-member -MemberType NoteProperty -Name "Id" -Value $Id   
$Vmresult | add-member -MemberType NoteProperty -Name "VM Name" -Value $vm.Name  
$Vmresult | add-member -MemberType NoteProperty -Name "Cluster" -Value $cluster  
$Vmresult | add-member -MemberType NoteProperty -Name "Esxi Host" -Value $VM.VMHost  
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 1" -Value $IP0
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 2" -Value $IP1
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 3" -Value $IP2
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 4" -Value $IP3
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 5" -Value $IP4
$Vmresult | add-member -MemberType NoteProperty -Name "IP Address 6" -Value $IP5
$Vmresult | add-member -MemberType NoteProperty -Name "vCPU" -Value $vCPU
$Vmresult | Add-Member -MemberType NoteProperty -Name "CPU Sockets" -Value $Sockets
$Vmresult | Add-Member -MemberType NoteProperty -Name "Core per Socket" -Value $CorePerSocket
$Vmresult | add-member -MemberType NoteProperty -Name "RAM (GB)" -Value $vm.MemoryGB
$Vmresult | add-member -MemberType NoteProperty -Name "Total-HDD (GB)" -Value $TotalHDDs
$Vmresult | add-member -MemberType NoteProperty -Name "Power State" -Value $vm.PowerState
$Vmresult | add-member -MemberType NoteProperty -Name "OS" -Value $VM.ExtensionData.summary.config.guestfullname  
$Vmresult | Add-Member -MemberType NoteProperty -Name "Boot Time" -Value $Bootime
$Vmresult | add-member -MemberType NoteProperty -Name "VMTools Status" -Value $vm.ExtensionData.Guest.ToolsStatus  
$Vmresult | add-member -MemberType NoteProperty -Name "VMTools Version" -Value $vm.ExtensionData.Guest.ToolsVersion  
$Vmresult | add-member -MemberType NoteProperty -Name "VMTools Version Status" -Value $vm.ExtensionData.Guest.ToolsVersionStatus  
$Vmresult | add-member -MemberType NoteProperty -Name "VMTools Running Status" -Value $vm.ExtensionData.Guest.ToolsRunningStatus  
$Vmresult | add-member -MemberType NoteProperty -Name "Creation Date" -Value $CreationDate
$Vmresult | add-member -MemberType NoteProperty -Name "Creator" -Value $Creator
$Vmresult | add-member -MemberType NoteProperty -Name "Category" -Value $Category
$Vmresult | add-member -MemberType NoteProperty -Name "Owner" -Value $Owner
$Vmresult | add-member -MemberType NoteProperty -Name "Subsystem" -Value $Subsystem
$Vmresult | add-member -MemberType NoteProperty -Name "IP's" -Value $IPS
$Vmresult | add-member -MemberType NoteProperty -Name "vCenter Name" -Value $vm.Uid.Split('@')[1].Split(':')[0]  
# Считаем общее и оставшееся время выполнения и выводим на экран результаты. Использовалось для тестирования, но по факту оказалось очень удобно.
$elapsedTime = $(get-date) - $StartTime
$totalTime = "{0:HH:mm:ss}" -f ([datetime]($elapsedTime.Ticks*($cnt - $count)))
clear-host
Write-Host "Processing" $count "from" $cnt 
Write-host "Progress:" ([math]::Round($count/$cnt*100, 2)) "%" 
Write-host "You have about " $totalTime "for cofee"
Write-host ""
$count++
# Выводим результат, чтобы цикл "знал" что является результатом выполнения одного прохода
$Vmresult
}
}
# Вызываем получившуюся функцию и сразу выгружаем результат в csv
$allVm = Get-VMinventory | Export-CSV -Path $filename -NoTypeInformation -UseCulture -Force
# Пытаемся выложить полученный файл в нужное нам место и, в случае ошибки, пишем лог.
try
{
Copy-Item $filename -Destination $destinationSMB -Force -ErrorAction SilentlyContinue
}
catch
{
$error | Export-CSV -Path $filename".error" -NoTypeInformation -UseCulture -Force
}

ສະຄຣິບ PowerShell ທີ່ສະກັດມາຈາກບັນທຶກຜູ້ສ້າງຂອງ virtual machines ແລະວັນທີຂອງການສ້າງຂອງພວກເຂົາ

# Путь к файлу, из которого будем доставать список VM
$VMfilePath = "C:ScriptsgetVmcreators_VMcreators_VM_$(get-date -f yyyy-MM-dd).csv"
# Путь к файлу, в который будем записывать результат
$filePath = "C:ScriptsgetVmdatacreatorscreators-$(get-date -f yyyy-MM-dd).csv"
# Создаём вокрфлоу
Workflow GetCreators-Wf
{
# Параметры, которые можно будет передать при вызове скрипта
param([string[]]$VMfilePath)
# Параметры, которые доступны только внутри workflow
$vCenterUsername = "myusername"
$vCenterPassword = "mypassword"
$daysToLook = 14
$start = (get-date).AddDays(-$daysToLook)
$finish = get-date
# Значения, которые будут вписаны в csv для машин, по которым не будет ничего найдено
$UnknownUser = "UNKNOWN"
$UnknownCreatedTime = "0000-00-00"
# Определяем параметры подключения и выводной файл, которые будут доступны во всём скрипте.
$vCenterNames = @(
"vcenter01", 
"vcenter02", 
"vcenter03"
)
# Получаем список VM из csv и загружаем соответствующие объекты
$list = Import-Csv $VMfilePath -UseCulture | select -ExpandProperty VM.Name
# Цикл, который будет выполняться параллельно (по 5 машин за раз)
foreach -parallel ($row in $list)
{
# Это скрипт, который видит только свои переменные и те, которые ему переданы через $Using
InlineScript {
# Время начала выполнения отдельного блока
$StartTime = $(get-date)
Write-Host ""
Write-Host "Processing $Using:row started at $StartTime"
Write-Host ""
# Подключение оборачиваем в переменную, чтобы информация о нём не мешалась в консоли
$con = Connect-VIServer -Server $Using:vCenterNames -User $Using:vCenterUsername -Password $Using:vCenterPassword
# Получаем объект vm
$vm = Get-VM -Name $Using:row
# Ниже 2 одинаковые команды. Одна с фильтром по времени, вторая - без. Можно пользоваться тем,
$Event = $vm | Get-VIEvent -Start $Using:start -Finish $Using:finish -Types Info | Where { $_.Gettype().Name -eq "VmBeingDeployedEvent" -or $_.Gettype().Name -eq "VmCreatedEvent" -or $_.Gettype().Name -eq "VmRegisteredEvent" -or $_.Gettype().Name -eq "VmClonedEvent"}
# $Event = $vm | Get-VIEvent -Types Info | Where { $_.Gettype().Name -eq "VmBeingDeployedEvent" -or $_.Gettype().Name -eq "VmCreatedEvent" -or $_.Gettype().Name -eq "VmRegisteredEvent" -or $_.Gettype().Name -eq "VmClonedEvent"}
# Заполняем параметры в зависимости от того, удалось ли в логах найти что-то
If (($Event | Measure-Object).Count -eq 0){
$User = $Using:UnknownUser
$Created = $Using:UnknownCreatedTime
$CreatedFormat = $Using:UnknownCreatedTime
} Else {
If ($Event.Username -eq "" -or $Event.Username -eq $null) {
$User = $Using:UnknownUser
} Else {
$User = $Event.Username
} # Else
$CreatedFormat = $Event.CreatedTime
# Один из коллег отдельно просил, чтобы время было в таком формате, поэтому дублируем его. А в БД пойдёт нормальный формат.
$Created = $Event.CreatedTime.ToString('yyyy-MM-dd')
} # Else
Write-Host "Creator for $vm is $User. Creating object."
# Создаём объект. Добавляем параметры.
$Vmresult = New-Object PSObject
$Vmresult | add-member -MemberType NoteProperty -Name "VM Name" -Value $vm.Name  
$Vmresult | add-member -MemberType NoteProperty -Name "CreatedBy" -Value $User
$Vmresult | add-member -MemberType NoteProperty -Name "CreatedOn" -Value $CreatedFormat
$Vmresult | add-member -MemberType NoteProperty -Name "CreatedOnFormat" -Value $Created           
# Выводим результаты
$Vmresult
} # Inline
} # ForEach
}
$Creators = GetCreators-Wf $VMfilePath
# Записываем результат в файл
$Creators | select 'VM Name', CreatedBy, CreatedOn | Export-Csv -Path $filePath -NoTypeInformation -UseCulture -Force
Write-Host "CSV generetion finisghed at $(get-date). PROFIT"

ຫ້ອງສະຫມຸດສົມຄວນໄດ້ຮັບຄວາມສົນໃຈເປັນພິເສດ xlsx, ເຊິ່ງເຮັດໃຫ້ມັນເປັນໄປໄດ້ທີ່ຈະເຮັດໃຫ້ໄຟລ໌ແນບກັບຈົດຫມາຍມີຮູບແບບຢ່າງຊັດເຈນ (ຕາມຄວາມມັກຂອງການຈັດການ), ແລະບໍ່ພຽງແຕ່ຕາຕະລາງ CSV.

ການສ້າງເອກະສານ xlsx ທີ່ສວຍງາມທີ່ມີບັນຊີລາຍຊື່ຂອງເຄື່ອງຈັກທີ່ເຕັມໄປດ້ວຍບໍ່ຖືກຕ້ອງ

# Создаём новую книгу
# Возможные значения : "xls" и "xlsx"
wb<-createWorkbook(type="xlsx")
# Стили для имён рядов и колонок в таблицах
TABLE_ROWNAMES_STYLE <- CellStyle(wb) + Font(wb, isBold=TRUE)
TABLE_COLNAMES_STYLE <- CellStyle(wb) + Font(wb, isBold=TRUE) +
Alignment(wrapText=TRUE, horizontal="ALIGN_CENTER") +
Border(color="black", position=c("TOP", "BOTTOM"), 
pen=c("BORDER_THIN", "BORDER_THICK"))
# Создаём новый лист
sheet <- createSheet(wb, sheetName = names[2])
# Добавляем таблицу
addDataFrame(incorrect_df_filtered, 
sheet, startRow=1, startColumn=1,  row.names=FALSE, byrow=FALSE,
colnamesStyle = TABLE_COLNAMES_STYLE,
rownamesStyle = TABLE_ROWNAMES_STYLE)
# Меняем ширину, чтобы форматирование было автоматическим
autoSizeColumn(sheet = sheet, colIndex=c(1:ncol(incorrect_df)))
# Добавляем фильтры
addAutoFilter(sheet, cellRange = "C1:G1")
# Определяем стиль
fo2 <- Fill(foregroundColor="red")
cs2 <- CellStyle(wb, 
fill = fo2, 
dataFormat = DataFormat("@"))
# Находим ряды с неверно заполненным полем Владельца и применяем к ним определённый стиль
rowsOwner <- getRows(sheet, rowIndex = (which(!incorrect_df$isOwnerCorrect) + 1))
cellsOwner <- getCells(rowsOwner, colIndex = which( colnames(incorrect_df_filtered) == "Owner" )) 
lapply(names(cellsOwner), function(x) setCellStyle(cellsOwner[[x]], cs2))
# Находим ряды с неверно заполненным полем Подсистемы и применяем к ним определённый стиль
rowsSubsystem <- getRows(sheet, rowIndex = (which(!incorrect_df$isSubsystemCorrect) + 1))
cellsSubsystem <- getCells(rowsSubsystem, colIndex = which( colnames(incorrect_df_filtered) == "Subsystem" )) 
lapply(names(cellsSubsystem), function(x) setCellStyle(cellsSubsystem[[x]], cs2))
# Аналогично по Категории
rowsCategory <- getRows(sheet, rowIndex = (which(!incorrect_df$isCategoryCorrect) + 1))
cellsCategory <- getCells(rowsCategory, colIndex = which( colnames(incorrect_df_filtered) == "Category" )) 
lapply(names(cellsCategory), function(x) setCellStyle(cellsCategory[[x]], cs2))
# Создатель
rowsCreator <- getRows(sheet, rowIndex = (which(!incorrect_df$isCreatorCorrect) + 1))
cellsCreator <- getCells(rowsCreator, colIndex = which( colnames(incorrect_df_filtered) == "Creator" )) 
lapply(names(cellsCreator), function(x) setCellStyle(cellsCreator[[x]], cs2))
# Сохраняем файл
saveWorkbook(wb, filenameIncorrect)

ຜົນ​ຜະ​ລິດ​ເບິ່ງ​ຄື​ແນວ​ນີ້​:

ນອກຈາກນີ້ຍັງມີການ nuance ທີ່ຫນ້າສົນໃຈກ່ຽວກັບການຕັ້ງຕາຕະລາງ Windows. ມັນເປັນໄປບໍ່ໄດ້ທີ່ຈະຊອກຫາສິດແລະການຕັ້ງຄ່າທີ່ຖືກຕ້ອງເພື່ອໃຫ້ທຸກສິ່ງທຸກຢ່າງເລີ່ມຕົ້ນຕາມທີ່ມັນຄວນ. ດັ່ງນັ້ນ, ຫໍສະຫມຸດ R ໄດ້ຖືກພົບເຫັນ, ເຊິ່ງຕົວມັນເອງສ້າງວຽກງານທີ່ຈະເປີດຕົວ R script ແລະບໍ່ລືມກ່ຽວກັບໄຟລ໌ບັນທຶກ. ຫຼັງຈາກນັ້ນ, ທ່ານສາມາດແກ້ໄຂວຽກງານດ້ວຍຕົນເອງ.

ຊິ້ນສ່ວນຂອງລະຫັດ R ທີ່ມີສອງຕົວຢ່າງທີ່ສ້າງວຽກງານໃນ Windows Scheduler

library(taskscheduleR)
myscript <- file.path(getwd(), "all_vm.R")
## запускаем скрипт через 62 секунды
taskscheduler_create(taskname = "getAllVm", rscript = myscript, 
schedule = "ONCE", starttime = format(Sys.time() + 62, "%H:%M"))
## запускаем скрипт каждый день в 09:10
taskscheduler_create(taskname = "getAllVmDaily", rscript = myscript, 
schedule = "WEEKLY", 
days = c("MON", "TUE", "WED", "THU", "FRI"),
starttime = "02:00")
## удаляем задачи
taskscheduler_delete(taskname = "getAllVm")
taskscheduler_delete(taskname = "getAllVmDaily")
# Смотрим логи (последние 4 строчки)
tail(readLines("all_vm.log"), sep ="n", n = 4)

ແຍກຕ່າງຫາກກ່ຽວກັບຖານຂໍ້ມູນ

ຫຼັງຈາກການຕັ້ງຄ່າສະຄິບ, ບັນຫາອື່ນໆເລີ່ມປາກົດ. ຕົວຢ່າງ, ຂ້ອຍຕ້ອງການຊອກຫາວັນທີທີ່ VM ຖືກລຶບ, ແຕ່ບັນທຶກໃນ vCenter ໄດ້ຫມົດແລ້ວ. ເນື່ອງຈາກສະຄິບວາງໄຟລ໌ໃນໂຟນເດີທຸກໆມື້ແລະບໍ່ເຮັດຄວາມສະອາດ (ພວກເຮົາເຮັດຄວາມສະອາດດ້ວຍມືຂອງພວກເຮົາເມື່ອພວກເຮົາຈື່), ທ່ານສາມາດເບິ່ງຜ່ານໄຟລ໌ເກົ່າແລະຊອກຫາໄຟລ໌ທໍາອິດທີ່ VM ນີ້ບໍ່ມີ. ແຕ່ນັ້ນບໍ່ເຢັນ.

ຂ້ອຍຢາກສ້າງຖານຂໍ້ມູນປະຫວັດສາດ.

ການເຮັດວຽກຂອງ MS SQL SERVER - ຕາຕະລາງຊົ່ວຄາວຂອງລະບົບ - ມາຮອດກູ້ໄພ. ປົກກະຕິແລ້ວມັນຖືກແປເປັນຕາຕະລາງຊົ່ວຄາວ (ບໍ່ແມ່ນຊົ່ວຄາວ).

ທ່ານສາມາດອ່ານລາຍລະອຽດໄດ້ທີ່ ເອກະສານ Microsoft ຢ່າງເປັນທາງການ.

ໃນສັ້ນ, ພວກເຮົາສ້າງຕາຕະລາງ, ບອກວ່າພວກເຮົາຈະມີມັນກັບສະບັບ, ແລະ SQL Server ສ້າງ 2 ຖັນວັນທີເພີ່ມເຕີມໃນຕາຕະລາງນີ້ (ວັນທີບັນທຶກໄດ້ຖືກສ້າງຂື້ນແລະວັນຫມົດອາຍຸຂອງບັນທຶກ) ແລະຕາຕະລາງເພີ່ມເຕີມທີ່ມີການປ່ຽນແປງ. ຈະຖືກຂຽນ. ດັ່ງນັ້ນ, ພວກເຮົາໄດ້ຮັບຂໍ້ມູນທີ່ທັນສະ ໄໝ ແລະ, ໂດຍຜ່ານການສອບຖາມງ່າຍໆ, ຕົວຢ່າງທີ່ໃຫ້ຢູ່ໃນເອກະສານ, ພວກເຮົາສາມາດເບິ່ງວົງຈອນຊີວິດຂອງເຄື່ອງ virtual ສະເພາະ, ຫຼືສະຖານະຂອງ VMs ທັງຫມົດໃນຈຸດໃດຫນຶ່ງ. ໃນເວລາ.

ຈາກທັດສະນະການປະຕິບັດ, ການເຮັດທຸລະກໍາການຂຽນໄປຫາຕາຕະລາງຕົ້ນຕໍຈະບໍ່ສໍາເລັດຈົນກ່ວາການເຮັດທຸລະກໍາການຂຽນໄປຫາຕາຕະລາງຊົ່ວຄາວສໍາເລັດ. ເຫຼົ່ານັ້ນ. ໃນຕາຕະລາງທີ່ມີການປະຕິບັດການຂຽນຈໍານວນຫລາຍ, ຫນ້າທີ່ນີ້ຄວນຈະຖືກປະຕິບັດຢ່າງລະມັດລະວັງ, ແຕ່ໃນກໍລະນີຂອງພວກເຮົາມັນເປັນສິ່ງທີ່ເຢັນແທ້ໆ.

ເພື່ອໃຫ້ກົນໄກເຮັດວຽກຢ່າງຖືກຕ້ອງ, ຂ້ອຍຕ້ອງເພີ່ມລະຫັດນ້ອຍໆໃນ R ທີ່ຈະປຽບທຽບຕາຕະລາງໃຫມ່ກັບຂໍ້ມູນສໍາລັບ VMs ທັງຫມົດກັບຫນຶ່ງທີ່ເກັບໄວ້ໃນຖານຂໍ້ມູນແລະຂຽນພຽງແຕ່ແຖວທີ່ມີການປ່ຽນແປງກັບມັນ. ລະຫັດບໍ່ສະຫລາດໂດຍສະເພາະມັນໃຊ້ຫ້ອງສະຫມຸດປຽບທຽບDF, ແຕ່ຂ້ອຍຈະນໍາສະເຫນີມັນຂ້າງລຸ່ມນີ້.

ລະຫັດ R ສໍາລັບການຂຽນຂໍ້ມູນໃສ່ຖານຂໍ້ມູນ

# Подцепляем пакеты
library(odbc)
library(compareDF)
# Формируем коннект
con <- dbConnect(odbc(),
Driver = "ODBC Driver 13 for SQL Server",
Server = DBParams$server,
Database = DBParams$database,
UID = DBParams$UID,
PWD = DBParams$PWD,
Port = 1433)
#### Проверяем есть ли таблица. Если нет - создаём. ####
if (!dbExistsTable(con, DBParams$TblName)) {
#### Создаём таблицу ####
create <- dbSendStatement(
con,
paste0(
'CREATE TABLE ',
DBParams$TblName,
'(
[Id] [int] NOT NULL PRIMARY KEY CLUSTERED,
[VM.Name] [varchar](255) NULL,
[Cluster] [varchar](255) NULL,
[Esxi.Host] [varchar](255) NULL,
[IP.Address.1] [varchar](255) NULL,
[IP.Address.2] [varchar](255) NULL,
[IP.Address.3] [varchar](255) NULL,
[IP.Address.4] [varchar](255) NULL,
[IP.Address.5] [varchar](255) NULL,
[IP.Address.6] [varchar](255) NULL,
[vCPU] [int] NULL,
[CPU.Sockets] [int] NULL,
[Core.per.Socket] [int] NULL,
[RAM..GB.] [int] NULL,
[Total.HDD..GB.] [int] NULL,
[Power.State] [varchar](255) NULL,
[OS] [varchar](255) NULL,
[Boot.Time] [varchar](255) NULL,
[VMTools.Status] [varchar](255) NULL,
[VMTools.Version] [int] NULL,
[VMTools.Version.Status] [varchar](255) NULL,
[VMTools.Running.Status] [varchar](255) NULL,
[Creation.Date] [varchar](255) NULL,
[Creator] [varchar](255) NULL,
[Category] [varchar](255) NULL,
[Owner] [varchar](255) NULL,
[Subsystem] [varchar](255) NULL,
[IP.s] [varchar](255) NULL,
[vCenter.Name] [varchar](255) NULL,
DateFrom datetime2 GENERATED ALWAYS AS ROW START NOT NULL,
DateTo datetime2 GENERATED ALWAYS AS ROW END NOT NULL,
PERIOD FOR SYSTEM_TIME (DateFrom, DateTo)
) ON [PRIMARY]
WITH (SYSTEM_VERSIONING = ON (HISTORY_TABLE = ', DBParams$TblHistName,'));'
)
)
# Отправляем подготовленный запрос
dbClearResult(create)
} # if
#### Начало работы с таблицей ####
# Обозначаем таблицу, с которой будем работать
allVM_db_con <- tbl(con, DBParams$TblName) 
#### Сравниваем таблицы ####
# Собираем данные с таблицы (убираем служебные временные поля)
allVM_db <- allVM_db_con %>% 
select(c(-"DateTo", -"DateFrom")) %>% 
collect()
# Создаём таблицу со сравнением объектов. Сравниваем по Id
# Удалённые объекты там будут помечены через -, созданные через +, изменённые через - и +
ctable_VM <- fullXslx_df %>% 
compare_df(allVM_db, 
c("Id"))
#### Удаление строк ####
# Выдираем Id виртуалок, записи о которых надо удалить 
remove_Id <- ctable_VM$comparison_df %>% 
filter(chng_type == "-") %>%
select(Id)
# Проверяем, что есть записи (если записей нет - и удалять ничего не нужно)
if (remove_Id %>% nrow() > 0) {
# Конструируем шаблон для запроса на удаление данных
delete <- dbSendStatement(con, 
paste0('
DELETE 
FROM ',
DBParams$TblName,
' WHERE "Id"=?
') # paste
) # send
# Создаём запрос на удаление данных
dbBind(delete, remove_Id)
# Отправляем подготовленный запрос
dbClearResult(delete)
} # if
#### Добавление строк ####
# Выделяем таблицу, содержащую строки, которые нужно добавить.
allVM_add <- ctable_VM$comparison_df %>% 
filter(chng_type == "+") %>% 
select(-chng_type)
# Проверяем, есть ли строки, которые нужно добавить и добавляем (если нет - не добавляем)
if (allVM_add %>% nrow() > 0) {
# Пишем таблицу со всеми необходимыми данными
dbWriteTable(con,
DBParams$TblName,
allVM_add,
overwrite = FALSE,
append = TRUE)
} # if
#### Не забываем сделать дисконнект ####
dbDisconnect(con)

ລວມ

ເປັນຜົນມາຈາກການປະຕິບັດຂອງສະຄິບ, ຄໍາສັ່ງໄດ້ຖືກຟື້ນຟູແລະຮັກສາພາຍໃນສອງສາມເດືອນ. ບາງຄັ້ງ VMs ທີ່ຖືກຕື່ມບໍ່ຖືກຕ້ອງຈະປາກົດ, ແຕ່ສະຄຣິບເຮັດຫນ້າທີ່ເປັນການເຕືອນທີ່ດີແລະ VM ທີ່ຫາຍາກເຂົ້າໄປໃນບັນຊີລາຍຊື່ເປັນເວລາ 2 ມື້ຕິດຕໍ່ກັນ.

ວຽກພື້ນຖານຍັງຖືກສ້າງຂຶ້ນສໍາລັບການວິເຄາະຂໍ້ມູນປະຫວັດສາດ.

ມັນເປັນທີ່ຊັດເຈນວ່າຫຼາຍນີ້ສາມາດປະຕິບັດບໍ່ໄດ້ຢູ່ໃນຫົວເຂົ່າ, ແຕ່ມີຊອບແວພິເສດ, ແຕ່ວຽກງານແມ່ນຫນ້າສົນໃຈແລະ, ຫນຶ່ງອາດຈະເວົ້າວ່າ, ທາງເລືອກ.

R ໄດ້ສະແດງຕົວຂອງມັນເອງອີກເທື່ອຫນຶ່ງວ່າເປັນພາສາສາກົນທີ່ດີເລີດ, ເຊິ່ງດີເລີດບໍ່ພຽງແຕ່ສໍາລັບການແກ້ໄຂບັນຫາສະຖິຕິ, ແຕ່ຍັງເປັນ "ຊັ້ນ" ທີ່ດີເລີດລະຫວ່າງແຫຼ່ງຂໍ້ມູນອື່ນໆ.

ແຫຼ່ງຂໍ້ມູນ: www.habr.com