Virtual machine re-registration, disconnected virtual machine/ read-only VM virtual machine- VMWARE - PowerShell

 Import-Module VMware.VimAutomation.Core

#Run this by opening VMware PowerCLI tool and connect using connect-VIserver

$pscrd = Get-Credential

Connect-VIServer -Server 10.106.202.151 -Credential $pscrd

Write-Host "Current script directory is $ScriptDir"

$CurrDate = Get-Date -Format "yyyyMMdd_HHmmss"

$SubCurrDate = Get-Date -Format "yyyy-MM-dd HH:mm:ss"

$agree= "N"

Write-Host "Before you run the code. Makesure, to have required back-up of VMs for any recovery" -BackgroundColor DarkRed

$agree = Read-Host "You want to proceed: Y/N"

If( $agree -eq "Y" -or $agree -eq "y" )

{

#Flag to validate the ZERO Byte VMs

$flag=0

# This will get us the complete list of VMs in the inventory

#$vms = Get-VM

$vms = Get-VM #-Name TESTVM_KDC_03

$status_coll = @()

$vm_coll = @()

# Loop-in throught the Vm with various validation and checks

foreach($vm in $vms)

{

$regvm = "" | Select-Object VMName,PowerState,UsedSpaceGB,vmPathName,Remarks

$vm_state = "" | Select-Object VMName,PowerState,UsedSpaceGB,vmPathName,Remarks

  If($vm.UsedSpaceGB -eq 0 -And $vm.PowerState -eq "PoweredOn")

    {

         # If a VM is found to be a Zero byte space

         # execute the registration process

         $flag=1

         $vmname = $vm.Name

         #Write-Host "This is a Zero Byte VM and is in PowerON state: $vm.Name"

         #code to re-register the VM from the Inventory

         $resourcePool = Get-ResourcePool -VM $vm

         $vmPathName = $vm.ExtensionData.Config.Files.VmPathName

        #VM resource details

        $vm_state.VMName = $vmname

         $vm_pstate = $vm.PowerState

         $vm_state.PowerState = $vm_pstate

         $vm_usedspaceGB = $vm.UsedSpaceGB

         $vm_state.UsedSpaceGB = $vm_usedspaceGB

        $vm_state.vmPathName = $vmPathName

         $vm_state.Remarks = "DataCollection"

         get-vm $vmname | Stop-VM -confirm:$false

         $vm_stp_status = get-vm $vmname

         #Validate VM status condition block to remove from Inventory and re-registration

         If($vm_stp_status.PowerState -eq "PoweredOff") 

         {

          

             # Knock off the VMs from the Inventory without deleting the vmx file from the pool

           # Which is made as false and never make it true or remove the below Switch else Data loss will happen

            #Cautious note touch the below line only when you are aware what you are doing.

             Remove-VM -VM $vm -DeletePermanently:$false -Confirm:$false

             New-VM -VMFilePath $vmPathName -ResourcePool $resourcePool -Confirm:$false

            $vm_new_status = get-vm $vmname

             start-vm $vm_new_status -confirm:$false

                  $vm_strt_status = get-vm $vmname

                  #If the start of VM is successfull on the return

                    If($vm_strt_status.PowerState -eq "PoweredOn" -and $vm_strt_status.UsedSpaceGB -ne 0)

                      {

                       # Collect the server saying sucessfull registration

                       $regvm.VMName = $vmname

                       $vm_strt_pstate = $vm_strt_status.PowerState

                       $regvm.PowerState = $vm_strt_pstate

                       $vm_strt_usedspaceGB = $vm_strt_status.UsedSpaceGB

                       $regvm.UsedSpaceGB = $vm_strt_usedspaceGB

                       $regvm.vmPathName = $vmPathName

                       $regvm.Remarks = "Registered successfully"

                      }

                    Else

                      {

                       $regvm.VMName = $vmname

                       $vm_strt_pstate = $vm_strt_status.PowerState

                       $regvm.PowerState = $vm_strt_pstate

                       $vm_strt_usedspaceGB = $vm_strt_status.UsedSpaceGB

                       $regvm.UsedSpaceGB = $vm_strt_usedspaceGB

                       $regvm.vmPathName = $vmPathName

                       $regvm.Remarks = "Couldn't register, Please check Manually"

                      }            

           }

           Else

           {

            #Couldn't stop VM for re-registration process

            $regvm.VMName = $vmname

            $vm_stp_pstate = $vm_stp_status.PowerState

            $regvm.PowerState = $vm_stp_pstate

            $vm_strt_usedspaceGB =  $vm_stp_status.UsedSpaceGB

            $regvm.UsedSpaceGB = $vm_strt_usedspaceGB

            $regvm.vmPathName = $vmPathName

            $regvm.Remarks = "Couldn't stop VM for re-registration process"

           }

         }

         

        $status_coll = $status_coll +  $regvm

        $vm_coll = $vm_coll + $vm_state

        

}

}

Write-Host "Vmware Registration Status" -BackgroundColor DarkCyan

$status_coll

Write-Host "Vmware Info details" -BackgroundColor DarkMagenta

$vm_coll

$reg_path = $ScriptDir + "\InventoryRegistration.csv"

$status_coll | Export-Csv -Path $reg_path -NoTypeInformation

$vmstatuspath = $ScriptDir + "\Vms_status.csv"

$vm_coll | Export-Csv -Path $vmstatuspath -NoTypeInformation

If( $flag -eq 0)

{

Write-Host "No VMs with Zero Byte found with PoweredON state"

}

Progressive Log file parsing for Windows servers- Powershell

 Clear-Host

######################################################

########File Configurations or Initialization#########

######################################################

#Update the path of the Log file. Not including the file name

#$logFilePath = "C:\Users\bobr\Desktop\LogFileParsing"

$logFilePath = "E:\APP_SERVERS\glassfish-4.1\glassfish4\glassfish\domains\walgreenmonet\logs"

#\\server1\glassfish-4.1\glassfish4\glassfish\domains\walgreenmonet\logs

#Update the Log File name with extension like server.log

$logFileName = "server.log"

$ParserFile = $logFilePath + "\" + $logFileName

$ScriptDir = Split-Path $script:MyInvocation.MyCommand.Path

#Create a pattern.txt file in the location where you have placed the script and

#add all the required unique pattern to line-by-line. It does simple match.

$patternFile = $ScriptDir + "\" + "pattern.txt"

# This file will be created automatically in the initial run and

# never modify this file content which is a numerical value to track file 

# line last read

$counterFile = $ScriptDir + "\" + "counterFile.log"

#File which you want to parse once it get archieved from the original source

#make sure you have a right pattern in place as it identified lastWriteTime to pick

$archivedFileNamePattern = "server.log_*"

# SMTP Relay server name

$smtp = "smtp.domain.com"

# E-mail to be sent to when the pattern matches with subject and body details

$from = "xyz@domain.com"

$to = "xyz@domain.com","abc@domain.com"

$subject = "Test Ignore: Walgreen: database connectivity issue server.log"

$body = "<B>This file contains the match found in accordance with pattern.txt file</B><BR>"

######################################################

###############End of Initialization###################

######################################################

$bodyContent = @()

$bodyContent = $bodyContent + $body 

$pattern = Get-Content $patternFile

#$pattern = @("SQLException","SQL")

If ( Test-Path $counterFile )

{

$lastLine = Get-Content -Path $counterFile

}

else

{

New-Item -Path $logFilePath -Name "counterFile.log" -ItemType File

New-Item -Path $logFilePath -Name "pattern.txt" -ItemType File

$count = Get-content $ParserFile | Measure-Object

$lastLine = $count.count

$lastLine|Out-File $counterFile

}

$newCount = Get-content $ParserFile | Measure-Object

$newLine = $newCount.Count

If ( $newLine -gt $lastLine )

{

$diff_Line = $newLine - $lastLine

#Write-Host "FromLineNum:$lastLine to ToLineNum:$newLine"

$matchedContent = Get-Content $ParserFile -Tail $diff_Line | Select-String -Pattern $pattern #-SimpleMatch

#Write-Host $matchedContent

$bodyContent = $bodyContent + $matchedContent

    $bodyAsString = $bodyContent | & {$ofs='<BR>';"$input"}

If ( $matchedContent )

{

#send e-mail

Send-MailMessage -From $from -To $to -Subject $subject -Body $bodyAsString -BodyAsHtml -SmtpServer $smtp

}

$lastLine = $newLine

$lastLine|Out-File $counterFile

}

ElseIF ( $newLine -lt $lastLine ) #check if a new file has been created and archiving older one with timestamp

{

#Read from the newly created file

$diff_Line = -1

#Write-Host "FromLineNum:0 to ToLineNum:$newLine"

$matchedContent = Get-Content $ParserFile -Tail $diff_Line | Select-String -Pattern $pattern #-SimpleMatch

#Write-Host $matchedContent

$bodyContent = $bodyContent + $matchedContent

# Get archived file lastline before overriding with newfile lastline

$archivedFileLastLine = $lastLine

$lastLine = $newLine

$lastLine|Out-File $counterFile

#Read the archived file to make sure we have read everything till the end of the file

#Get the archieved file name from recently modified date with a filename_*.log

$recentArchiveFileName = (Get-ChildItem -Path $logFilePath -Filter $archivedFileNamePattern |Sort-Object LastWriteTime | Select-Object -Last 1).FullName

$archievednewCount = Get-content $recentArchiveFileName | Measure-Object

$archievedNewLine = $archievednewCount.Count

if ( $archievedNewLine -gt $archivedFileLastLine )

{

$diff_Line = $archievedNewLine - $archivedFileLastLine

Write-Host "FromLineNum:$archivedFileLastLine to ToLineNum:$archievedNewLine"

$archievedMatchedContent = Get-Content $recentArchiveFileName -Tail $diff_Line | Select-String -Pattern $pattern #-SimpleMatch

#Write-Host $archievedMatchedContent

$bodyContent = $bodyContent + $archievedMatchedContent

$bodyAsString = $bodyContent | & {$ofs='<BR>';"$input"}

if ( $archievedMatchedContent )

{

#send e-mail

Send-MailMessage -From $from -To $to -Subject $subject -Body $bodyAsString -BodyAsHtml -SmtpServer $smtp

}

}

}

NRPE agent installation script for Linux

#!/bin/bash

OUTPUTFILE="/usr/local/nagios/libexec/tools/linux/nrpe-agent-installation.txt"

for server in `cat /usr/local/nagios/libexec/tools/serverlist.txt`

do

FLAG=0

for password in `cat /usr/local/nagios/libexec/tools/linux/password.txt`

do

/usr/local/nagios/libexec/tools/sftp_put.pl -h $server -u root -p $password -s "file" -f "/usr/local/nagios/libexec/tools/linux/test.txt" -t "/tmp/test.txt"

TEST=`echo $?`

if [ "$TEST" -eq "0" ];then

echo -e "$server \t $password" >> $OUTPUTFILE

#create nagios user

/usr/local/nagios/libexec/check_openssh.pl -H $server -u root -p $password -s command -C "useradd -m -d /var/spool/nagios -p "naZaxHcLCJwT2" nagios"

#Install NRPE Agent#

/usr/local/nagios/libexec/check_openssh.pl -H $server -u root -p $password -s command -C "yum -y install nagios-common-3.5.1-1.el6.x86_64 nagios-plugins-all-2.0.3-3.el6.x86_64 nagios-plugins-nrpe-2.15-7.el6.x86_64 nagios-nrpe-2.14-1.el6.rf.x86_64"

#Upload nrpe.cfg golden copy#

/usr/local/nagios/libexec/tools/sftp_put.pl -h $server -u root -p $password -s "file" -f "/usr/local/nagios/libexec/tools/linux/nrpe_cfg/nrpe.cfg" -t "/etc/nagios/nrpe.cfg"

#Upload nagios sudoers file#

/usr/local/nagios/libexec/tools/sftp_put.pl -h $server -u root -p $password -s "file" -f "/usr/local/nagios/libexec/tools/linux/nagios-sudo/nagios" -t "/etc/sudoers.d/nagios"

#Change the permissions of the nagios directories#

/usr/local/nagios/libexec/check_openssh.pl -H $server -u root -p $password -s command -C "chown -R nagios:nagios /etc/nagios/;chown -R nagios:nagios /usr/lib64/nagios/"

FLAG=1

break

fi

done

if [ "$FLAG" -eq "0" ];then

echo -e "$server \t No Password" >> $OUTPUTFILE

fi

done

#######################################

#Dependencies : 

check_openssh.pl Plugin for Nagios, Net::SFTP::Foreign - FTP protocol to put files from folder or file to remote server.

and Net::SFTP::Foreign - FTP protocol to get files from folder or file from remote server.

#######################################

check_openssh.pl Plugin for Nagios

#!/usr/bin/perl
use Net::OpenSSH;
use Getopt::Long;
use Switch;
Getopt::Long::Configure('bundling');
$status=GetOptions
    (

     "H=s"   => \$dname, "DeviceName=s"     => \$dname,
     "u=s"   => \$uname, "UserName=s"    => \$uname,
     "p=s"   => \$password, "Password=s" => \$password,
     "w=s"   => \$warn,  "Warning=i" => \$warn,
     "c=s"   => \$crit, "Critical=i" => \$crit,
     "m=s"   => \$mount, "Mount=s"  => \$mount,
     "s=s"   => \$switch, "Switch=s" => \$switch,
     "C=s"   => \$command, "Command=s" => \$command
    );
        if ( $status == 0 ) {
        print_usage();
        }

#-- set up a new connection
# my $ssh = Net::OpenSSH->new('$uname:$password@$dname');
my $ssh = Net::OpenSSH->new($dname,user => $uname,password => $password);
$ssh->error and die "Connection error" . $ssh->error;

switch($switch)
{
case "command" {
                $ssh->system("$command");
                $ret = $ssh->error;
                $ret =~ s/\D//g;
                exit $ret;
                }
}
sub print_usage {
        print <
    Version:1.0

    Usage: check_openssh.pl -H host -u username -p password -w warn -c crit -m mode

 -H STRING or IPADDRESS
        Check interface on the indicated host.

 -u STRING VALUE
        Logon name of the remote UNIX server

 -p STRING VALUE
        Password to access the remote UNIX server

 -w INTEGER VALUE
        Warning condition depending on the Plug-in's used at remote server or Switch mode used

 -c INTEGER VALUE
        Critical condition depending on the Plug-in's used at remote server or Switch mode used
 -s STRING VALUE
        Switch mode is a string used to run the remote command or script
        memory  : memory usage
        check_load: Server Load
        check_disk: Disk Utilization on Server(provide mount point). e.g. -s check_disk -m /
        db_status : Check the health of Oracle DB server
        command : For running command at remote host. E.g. -s command -C "ls"
EOU

        exit 3;
}

Net::SFTP::Foreign - FTP protocol to put files from folder or file to remote server.

#!/usr/bin/perl
use Switch;
use Getopt::Long;
use Net::SFTP::Foreign;

#./sftp_put.pl -h hello.domainname.com -u root -p root123 -s "folder" -f "/usr/local/nagios/libexec/tools/linux/" -t "/usr/local/nagios/libexec/tools/linux/"

# ./sftp_put.pl -h hello.domainname.com -u root -p root123 -s "file" -f "/usr/local/nagios/etc/nrpe.cfg" -t "/usr/local/nagios/libexec/tools/linux/nrpe.cfg"

my $status = GetOptions(
        "host|h=s" => \$host,
        "username|u=s"  => \$username,
        "password|p=s"   => \$password,
        "from_dir|f=s"  => \$FROM_DIR,
        "to_dir|t=s"    => \$TO_DIR,
        "switch|s=s"    => \$fcopy,
);

if ( $status == 0 ) {
        print_usage();
        exit(3);
}

my $sftp;
$sftp = Net::SFTP::Foreign->new (
    $host,
    timeout         => 240,
    user            => $username,
    password        => $password,
    autodie         => 1,

);
switch ($fcopy)
{
case "folder"
{
$sftp->die_on_error("Unable to establish SFTP connection");
my $directory = $FROM_DIR;
opendir (DIR, $directory) or die $!;
while (my $file = readdir(DIR))
{
next unless ($file =~ m/^[^\.]/);
my $TO_FILE = $TO_DIR.$file;
my $FROM_FILE = $FROM_DIR.$file;
#printf "To files:$TO_FILE\n";
#printf "From files:$FROM_FILE\n";
$sftp->rput($FROM_FILE ,$TO_FILE );
}
if($sftp->status)
{
print "Unsuccessfull filecopy copy to destination\n";
}
#$sftp->get("/usr/local/nagios/etc/nrpe.cfg","/usr/local/nagios/libexec/tools/linux/nrpe.cfg");
if($sftp->status)
{
print "Unsuccessfull filecopy from destination\n";
}

}
case "file"
{
my $TO_FILE = $TO_DIR.$file;
my $FROM_FILE = $FROM_DIR.$file;
$sftp->put($FROM_FILE ,$TO_FILE);
if($sftp->status)
{
print "Unsuccessfull filecopy to destination\n";
}
}

else {printf "check the option properly\n"}

}
$sftp->disconnect;
closedir(DIR);

sub print_usage {
        print <
Usage: sftp_put.pl -H host -u username -p password -s "file|folder" -f "from path" -t "to path"
Options:

    -H --host IPADDRESS
        Check interface on the indicated host.
    -u --username
        Provided the user name for the remote SFTP server, which has a privilage to read/write files
    -p --password
        Password for the remote SFTP server
    -f --from
       copy file/files from the location depending on the switch used
    -t --to
        put the file/files in this location depending on the switch used
    -s --switch
        it can be either one of file ot folder
EOU
}

Net::SFTP::Foreign - FTP protocol to get files from folder or file from remote server.

#!/usr/bin/perl
use Switch;
use Getopt::Long;
use Net::SFTP::Foreign;

#./sftp_get.pl -h hello.domainname.com -u root -p root123 -s "folder" -f "/usr/local/nagios/libexec/tools/linux/" -t "/usr/local/nagios/libexec/tools/linux/"
#./sftp_get.pl -h hello.domainname.com -u root -p root123 -s "file" -f "/usr/local/nagios/libexec/tools/linux/ran.txt" -t "/usr/local/nagios/libexec/tools/linux/ran.txt"

my $status = GetOptions(
        "host|h=s" => \$host,
        "username|u=s"  => \$username,
        "password|p=s"   => \$password,
        "from_dir|f=s"  => \$FROM_DIR,
        "to_dir|t=s"    => \$TO_DIR,
        "switch|s=s"    => \$fcopy,
);

if ( $status == 0 ) {
        print_usage();
        exit(3);
}

my $sftp;
$sftp = Net::SFTP::Foreign->new (
    $host,
    timeout         => 240,
    user            => $username,
    password        => $password,
    autodie         => 1,

);
switch ($fcopy)
{
case "folder"
{

$sftp->die_on_error("Unable to establish SFTP connection");
my $rlist = $sftp->ls("$TO_DIR",no_wanted => qr/^\./);
for (@$rlist)
{
#print "$_->{filename}\n";
my $FROM_FILE=$FROM_DIR.$_->{filename};
my $TO_FILE=$TO_DIR.$_->{filename};
#printf "From Files:$FROM_FILE \n";
#printf "To Files:$TO_FILE\n";
$sftp->get("$FROM_FILE","$TO_FILE");
}
if($sftp->status)
{
print "Unsuccessfull filecopy copy to destination\n";
}
}

case "file"
{
$sftp->get("$FROM_DIR","$TO_DIR");
}

else {printf "check the option properly\n"}

}

$sftp->disconnect;
closedir(DIR);



sub print_usage {
        print <Usage: sftp_get.pl -H host -u username -p password -s "file|folder" -f "from path" -t "to path"
Options:

    -H --host IPADDRESS
        Check interface on the indicated host.
    -u --username
        Provided the user name for the remote SFTP server, which has a privilage to read/write files
    -p --password
        Password for the remote SFTP server
    -f --from
       copy file/files from the location depending on the switch used
    -t --to
        put the file/files in this location depending on the switch used
    -s --switch
        it can be either one of file ot folder
EOU
}

MSSQL connection using ADODB connection and Recordset

'declare the variables
Dim Connection
Dim ConnString
Dim Recordset
Dim SQL
'define the connection string, specify database driver
ConnString="DRIVER={SQL Server};SERVER=server01.domian.com;UID=service_account;" & _
PWD=P@ssw0rd;DATABASE=Database_name
'declare the SQL statement that will query the database
SQL = "Select * from table"

'create an instance of the ADO connection and recordset objects
Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")
'Open the connection to the database
Connection.Open ConnString
'Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection
Wscript.Echo "User" &VbTab& "AppName" &VbTab& "nDays"
'first of all determine whether there are any records
If Recordset.EOF Then
Wscript.Echo ("No records returned.")
Else
'if there are records then loop through the fields
Do While NOT Recordset.Eof  
Wscript.Echo Recordset.Fields(0) &VbTab& Recordset.Fields(1) &VbTab& Recordset.Fields(2)
'Wscript.Echo VbNewline   
Recordset.MoveNext
Loop
End If
'close the connection and recordset objects to free up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing