Category Archives: Uncategorized

Powershell mail all files from directory and move them

Posted on by
Reply

Get-ChildItem “C:\FilePorts\ValidationPDFs\*” -include *.pdf | foreach { Send-MailMessage -from “from@mail.com” -to “to@mail.com” -subject $_.name -attachments $_.fullname -smtpServer mail.server }
Get-ChildItem “C:\FilePorts\ValidationPDFs\*” -include *.pdf | move-item -destination “C:\FilePorts\ValidationPDFs\printet”

Powershell delete Paused – Spooling print jobs

Posted on by
3

Deletes Paused – Spooling print jobs that are older than 12 hours

 

$PrintJobs = get-wmiobject -class "Win32_PrintJob" -namespace “root\CIMV2” -computername . | Where-Object { $_.JobStatus -eq "Paused | Spooling" -and [System.Management.ManagementDateTimeConverter]::ToDateTime($_.TimeSubmitted) -lt $($(Get-Date).addHours(-12))}

foreach ($job in $PrintJobs)
{
Write-Host “Canceling job $($job.JobId)”
Write-Host “Document: $($job.Document)”
Write-Host “Owner: $($job.Owner)”
$job.Delete() }

Powershell script, get locked account from multiple Windows 2008 servers

Posted on by
Reply

Param(
[Parameter(Mandatory=$True)]
[string]$Username,

[Parameter(Mandatory=$False)]
[array]$Computers=@(“ad-server1”, “ad-server2”)
)

$Date = [DateTime]::Now.AddDays(-2)
Get-EventLog “Security” -after $Date -computer $Computers | Where-Object { $_.InstanceID -eq 4740 -or $_.InstanceID -eq 4625} | ? { $_.message -match $Username} | fl TimeGenerated, Message

Send mail via VB Script and Telnet

Posted on by
Reply

VB Script:

Option explicit
Dim oShell
set oShell= Wscript.CreateObject(“WScript.Shell”)
oShell.Run “telnet”
WScript.Sleep 1000
oShell.Sendkeys “open mail.server 25~”
WScript.Sleep 1000
oShell.Sendkeys “helo test~”
WScript.Sleep 500
oShell.Sendkeys “mail from:from@domain.com~”
WScript.Sleep 500
oShell.Sendkeys “rcpt to:to@domain.com~”
WScript.Sleep 500
oShell.Sendkeys “Data~”
WScript.Sleep 500
oShell.Sendkeys “Subject: Subject for the mail~”
oShell.Sendkeys “From: Sender~”
oShell.Sendkeys “TO: Reciver~”
oShell.Sendkeys “.~”
WScript.Sleep 5000
oShell.Sendkeys “quit~”
Wscript.Quit