🥧 👨🏼‍⚖️ 🐖 वर्चुअल मशीन स्टेटस डेली रिपोर्ट्स विथ आर एंड पॉवरशेल 💣 👩🏼‍⚖️ 🧗🏽

प्रविष्टि

शुभ दिन। आधे साल से अब हम एक स्क्रिप्ट (अधिक सटीक, स्क्रिप्ट का एक सेट) चला रहे हैं जो आभासी मशीनों की स्थिति पर रिपोर्ट बनाता है (और न केवल)। मैंने सृजन अनुभव और कोड को स्वयं साझा करने का निर्णय लिया। मैं आलोचना और इस तथ्य पर भरोसा करता हूं कि यह सामग्री किसी के लिए उपयोगी हो सकती है।

गठन की आवश्यकता है

हमारे पास बहुत सारी वर्चुअल मशीनें (लगभग 1500 वीएम 3 वेंकेटर पर वितरित) हैं। नए बनाए जाते हैं और पुराने को अक्सर हटा दिया जाता है। आदेश को संरक्षित करने के लिए, वीएमसी को सबसिस्टम में विभाजित करने के लिए vCenter में कई कस्टम फ़ील्ड जोड़े गए, यह इंगित करें कि क्या वे परीक्षण हैं, साथ ही साथ किसके द्वारा और कब। मानव कारक ने इस तथ्य को जन्म दिया है कि आधे से अधिक कारों को खाली खेतों के साथ छोड़ दिया गया था, जो काम को जटिल करता है। हर छह महीने में एक बार, कोई व्यक्ति बाहर निकल जाता है, उसने इन आंकड़ों को अपडेट करने का काम शुरू कर दिया है, लेकिन परिणाम डेढ़ सप्ताह के लिए प्रासंगिक नहीं रह गया है।
मैं तुरंत स्पष्ट कर दूंगा कि हर कोई समझता है कि मशीन बनाने के लिए आवेदन होना चाहिए, उन्हें बनाने की प्रक्रिया आदि। आदि और जबकि इस सभी प्रक्रिया का कड़ाई से और क्रम में पालन किया जाता है। दुर्भाग्य से, हमारे साथ ऐसा नहीं है, लेकिन यह लेख का विषय नहीं है :)

सामान्य तौर पर, खेतों को भरने की शुद्धता के सत्यापन को स्वचालित करने का निर्णय लिया गया था।
हमने फैसला किया कि सभी जिम्मेदार इंजीनियरों और उनके वरिष्ठों के लिए गलत तरीके से भरी मशीनों की सूची के साथ एक दैनिक पत्र एक अच्छी शुरुआत होगी।

इस बिंदु पर, सहकर्मियों में से एक ने पहले से ही एक PowerShell स्क्रिप्ट लागू कर दी थी, जो हर दिन एक अनुसूची पर सभी vCenter-s की सभी मशीनों पर जानकारी एकत्र करता था और 3 सीएसवी दस्तावेजों (प्रत्येक अपने स्वयं के vCenter में) का गठन करता था, जो एक साझा डिस्क पर रखे जाते थे। इस स्क्रिप्ट को एक आधार के रूप में लेने का निर्णय लिया गया और आर भाषा के उपयोग से जांच के साथ इसे पूरक किया गया, जिसका मुझे कुछ अनुभव था।

अंतिम रूप देने की प्रक्रिया में, मेल द्वारा सूचित करने के साथ समाधान समाप्त हो गया था, मुख्य और ऐतिहासिक तालिकाओं के साथ एक डेटाबेस (इस पर बाद में), साथ ही vSphere लॉग का विश्लेषण vm के वास्तविक रचनाकारों और उनके द्वारा बनाए गए समय को खोजने के लिए किया गया था।

विकास के लिए, IDE RStudio डेस्कटॉप और पॉवरशेल ISE का उपयोग किया गया था।

स्क्रिप्ट को एक नियमित विंडोज वर्चुअल मशीन से लॉन्च किया जाता है।

सामान्य तर्क का वर्णन।

लिपियों का सामान्य तर्क इस प्रकार है।

हम PowerShell स्क्रिप्ट का उपयोग करके आभासी मशीनों पर डेटा एकत्र करते हैं, जिसे आर के माध्यम से कहा जाता है, परिणाम एक सीएसवी में संयुक्त है। भाषाओं के बीच रिवर्स इंटरैक्शन समान रूप से किया जाता है। (चर के रूप में आर से पावरशेल से सीधे डेटा ड्राइव करना संभव था, लेकिन यह मुश्किल है, और मध्यवर्ती सीएसवी के साथ भी डिबग करना और किसी के साथ मध्यवर्ती परिणाम साझा करना आसान है)।
R का उपयोग करते हुए, हम उन क्षेत्रों के लिए वैध पैरामीटर बनाते हैं, जिनके मूल्य हम जाँच रहे हैं। - हम एक शब्द दस्तावेज़ बनाते हैं जिसमें इन फ़ील्ड के मानों को एक सूचना पत्र में सम्मिलित करने के लिए होगा जो सहयोगियों के सवालों का जवाब होगा "ठीक है, मुझे इसे कैसे भरना चाहिए?"
हम आर का उपयोग करके सीएसवी से सभी वीएम पर डेटा लोड करते हैं, एक डेटाफ्रेम बनाते हैं, अनावश्यक क्षेत्रों को हटाते हैं और एक सूचना xlsx दस्तावेज़ बनाते हैं जिसमें सभी वीएम पर सारांश जानकारी होगी जिसे हम एक साझा संसाधन पर अपलोड करते हैं।
सभी वीएम के लिए डेटाफ्रेम करने के लिए, हम खेतों को भरने की शुद्धता के लिए सभी जांचों को लागू करते हैं और गलत तरीके से भरे हुए खेतों (और केवल इन क्षेत्रों) के साथ केवल वीएम युक्त एक टेबल बनाते हैं।
VMs की परिणामी सूची को किसी अन्य PowerShell स्क्रिप्ट पर भेजा जाता है, जो VM निर्माण की घटनाओं के लिए vCenter लॉग को देखेगा, जो आपको VM और इच्छित निर्माता के निर्माण के अनुमानित समय को निर्दिष्ट करने की अनुमति देगा। यह मामला तब है जब कोई भी कबूल नहीं करता कि किसकी कार है। यह स्क्रिप्ट तेजी से काम नहीं करती है, खासकर अगर बहुत सारे लॉग होते हैं, इसलिए हम केवल पिछले 2 हफ्तों में देखते हैं, और हम वर्कफ़्लो का भी उपयोग करते हैं, जो आपको एक ही समय में कई वीएम पर जानकारी खोजने की अनुमति देता है। उदाहरण स्क्रिप्ट में, इस तंत्र पर विस्तृत टिप्पणियां हैं। परिणाम सीएसवी में जोड़ा जाता है, जिसे फिर से आर में लोड किया जाता है।
हम एक सुंदर स्वरूपित xlsx दस्तावेज़ बनाते हैं जिसमें गलत तरीके से भरे हुए खेतों को लाल रंग में हाइलाइट किया जाएगा, कुछ स्तंभों पर फ़िल्टर लागू किए जाएंगे, और कथित रचनाकारों वाले अतिरिक्त कॉलम और VM निर्माण के समय को इंगित किया जाएगा।
हम एक ईमेल बनाते हैं, जहाँ हम मान्य फ़ील्ड मानों के साथ-साथ गलत तरीके से भरी गई तालिका का वर्णन करते हुए एक दस्तावेज़ रखते हैं। पाठ में हम गलत तरीके से बनाए गए वीएम की कुल संख्या, एक साझा संसाधन का लिंक और एक प्रेरक छवि दर्शाते हैं। यदि कोई गलत तरीके से पॉप्युलेटेड वीएम नहीं हैं, तो हम एक और पत्र भेजते हैं, जिसमें एक अधिक हर्षित प्रेरक चित्र होता है।
हम SQL सर्वर डेटाबेस में सभी वीएम पर डेटा रिकॉर्ड करते हैं, ऐतिहासिक तालिकाओं के कार्यान्वित तंत्र को ध्यान में रखते हुए (एक बहुत ही रोचक तंत्र - जिसके बारे में और अधिक विस्तार से)

वास्तव में स्क्रिप्ट

आर के लिए कोड के साथ मुख्य फ़ाइल

#     (       ) setwd("C:\\Scripts\\getVm") ####    #### 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.ru\\VM\\', 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.ru\\VM\\', 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")

PowerShell पर vm सूची प्राप्त करने के लिए स्क्रिप्ट

 #       $vCenterNames = @( "vcenter01", "vcenter02", "vcenter03" ) $vCenterUsername = "myusername" $vCenterPassword = "mypassword" $filename = "C:\Scripts\getVm\data\allvm\all-vm-$(get-date -f yyyy-MM-dd).csv" $destinationSMB = "\\server.ru\myfolder$\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 स्क्रिप्ट वर्चुअल मशीन के रचनाकारों के लॉग और उनके निर्माण की तारीखों को खींचती है

 #   ,      VM $VMfilePath = "C:\Scripts\getVm\creators_VM\creators_VM_$(get-date -f yyyy-MM-dd).csv" #   ,      $filePath = "C:\Scripts\getVm\data\creators\creators-$(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 लाइब्रेरी विशेष ध्यान देने योग्य है, जिसने पत्र के लिए अनुलग्नक को स्पष्ट रूप से स्वरूपित करना संभव बना दिया (जैसा कि मैनुअल पसंद है), और न केवल एक सीएसवी तालिका।

गलत तरीके से भरी मशीनों की सूची के साथ एक सुंदर 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)

आउटपुट कुछ इस तरह है:

विंडोज शेड्यूलर की स्थापना में एक दिलचस्प बारीकियां भी थीं। यह सही अधिकारों और सेटिंग्स मापदंडों को लेने के लिए काम नहीं करता था ताकि सब कुछ उसी तरह शुरू हो जाए जैसा कि यह होना चाहिए। नतीजतन, आर लाइब्रेरी पाया गया, जो स्वयं आर स्क्रिप्ट को चलाने के लिए एक कार्य बनाता है और लॉग फ़ाइल के बारे में भी नहीं भूलता है। तब आप कार्य को पेन से ठीक कर सकते हैं।

दो उदाहरणों के साथ आर कोड का एक टुकड़ा जो विंडोज शेड्यूलर में एक कार्य बनाता है

 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 में लॉग पहले से ही पहने हुए थे। चूंकि स्क्रिप्ट हर दिन फ़ाइलों को फ़ोल्डर में डालती है और इसे साफ नहीं करती है (हम याद रखने पर इसे अपने हाथों से साफ करते हैं), आप पुरानी फाइलों को देख सकते हैं और पहली फाइल ढूंढ सकते हैं जिसमें यह वीएम मौजूद नहीं है। लेकिन वह शांत नहीं है।

मैं एक ऐतिहासिक डेटाबेस बनाना चाहता था।

MS SQL SERVER कार्यक्षमता सहायता के लिए आई - एक सिस्टम-वर्जन टेम्पोरल टेबल। इसे आमतौर पर अस्थायी (गैर-अस्थायी) तालिकाओं के रूप में अनुवादित किया जाता है।

आप आधिकारिक Microsoft प्रलेखन में विस्तार से पढ़ सकते हैं।

संक्षेप में - हम एक तालिका बनाते हैं, हम कहते हैं कि हमारे पास यह एक संस्करण के साथ होगा और SQL सर्वर इस तालिका में 2 अतिरिक्त डेटाटाइम कॉलम बनाता है (जिस तारीख को रिकॉर्ड बनाया गया था और रिकॉर्ड की समाप्ति तिथि) और एक अतिरिक्त तालिका जिसमें परिवर्तन लिखा जाएगा। नतीजतन, हम प्रासंगिक जानकारी प्राप्त करते हैं और, सरल प्रश्नों के माध्यम से, जिनमें से उदाहरण दस्तावेज़ीकरण में दिए गए हैं, हम किसी विशेष वर्चुअल मशीन के जीवन चक्र या किसी निश्चित समय में सभी वीएम की स्थिति देख सकते हैं।

प्रदर्शन के संदर्भ में, मुख्य तालिका में लिखने का लेनदेन तब तक पूरा नहीं होगा जब तक कि अस्थायी लेन-देन के लिए लिखित लेनदेन पूरा नहीं हो जाता। यानी बड़ी संख्या में लेखन कार्यों के साथ तालिकाओं पर, इस कार्यक्षमता को सावधानी के साथ लागू किया जाना चाहिए, लेकिन हमारे मामले में यह एक बहुत अच्छी बात है।

तंत्र के सही ढंग से काम करने के लिए, आर पर कोड का एक छोटा सा टुकड़ा जोड़ना आवश्यक था जो डेटाबेस में संग्रहीत एक के लिए सभी वीएम के लिए डेटा के साथ नई तालिका की तुलना करेगा और केवल परिवर्तित पंक्तियों को लिख देगा। कोड बहुत मुश्किल नहीं है, यह तुलना डीएफ लाइब्रेरी का उपयोग करता है, लेकिन मैं इसे नीचे भी दूंगा।

डेटाबेस में डेटा लिखने के लिए आर कोड

 #   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)

कुल मिलाकर

स्क्रिप्ट की शुरूआत के परिणामस्वरूप, कई महीनों तक आदेश बनाए रखा गया था और बनाए रखा गया था। कभी-कभी गलत तरीके से आबाद वीएम दिखाई देते हैं, लेकिन स्क्रिप्ट एक अच्छे अनुस्मारक के रूप में कार्य करती है और एक दुर्लभ वीएम लगातार 2 दिनों के लिए सूची में शामिल हो जाती है।

ऐतिहासिक डेटा के विश्लेषण के लिए एक रिजर्व भी बनाया गया था।

यह स्पष्ट है कि इसमें से अधिकांश को "घुटने पर" महसूस नहीं किया जा सकता है, लेकिन विशेष सॉफ्टवेयर के साथ, लेकिन कार्य दिलचस्प था और, कोई भी वैकल्पिक रूप से कह सकता है।

आर एक बार फिर एक अद्भुत सार्वभौमिक भाषा साबित हुई, जो न केवल सांख्यिकीय समस्याओं को हल करने के लिए एकदम सही है, बल्कि अन्य डेटा स्रोतों के बीच एक उत्कृष्ट "बिछाने" के रूप में भी कार्य करती है।