The Systems Guy's blog... High Tech Articles

'--------------------------------------------------
'
' Sends email from the local SMTP service using CDONTS objects
'
' Usage:
' sendmail [-smtp <server>] [-port <port>] [-auth <0=None, 1=Basic, 2=NTLM>] [-user <user>] [-pass <password>]
' -t <to> -f <from> -s "<subject>" -b "<message>" -a "<attachment1>,<attachment2>,..,<attachmentN>"
' sendmail [-help|-?]
'
'--------------------------------------------------

Option Explicit
On Error Resume Next

Dim oArgs, ArgNum
Dim strServer, intPort, intAuth, strUser, strPass, strTo, strFrom, strSubject, strBody, strAttachments
Dim arrAttachments, strAttachment
Dim strSch, objConfig, objMessage

Set oArgs = WScript.Arguments
ArgNum = 0
strServer = "localhost"
intPort = 25
intAuth = 0

While ArgNum < oArgs.Count
    Select Case LCase(oArgs(ArgNum))
        Case "-smtp"
            ArgNum = ArgNum + 1
            strServer = oArgs(ArgNum)
        Case "-port"
            ArgNum = ArgNum + 1
            intPort = oArgs(ArgNum)
        Case "-auth"
            ArgNum = ArgNum + 1
            intAuth = oArgs(ArgNum)
        Case "-user"
            ArgNum = ArgNum + 1
            strUser = oArgs(ArgNum)
        Case "-pass"
            ArgNum = ArgNum + 1
            strPass = oArgs(ArgNum)
        Case "-to","-t":
            ArgNum = ArgNum + 1
            strTo = oArgs(ArgNum)
        Case "-from","-f":
            ArgNum = ArgNum + 1
            strFrom = oArgs(ArgNum)
        Case "-subject","-s":
            ArgNum = ArgNum + 1
            strSubject = oArgs(ArgNum)
        Case "-body","-b":
            ArgNum = ArgNum + 1
            strBody = oArgs(ArgNum)
        Case "-attachment","-a":
            ArgNum = ArgNum + 1
            strAttachments = oArgs(ArgNum)
        Case "-help","-?":
            Call DisplayUsage
        Case Else:
            Call DisplayUsage
    End Select
    ArgNum = ArgNum + 1
Wend

WScript.Echo strAttachments

If oArgs.Count=0 Or strTo="" Or strFrom="" Or _
            strSubject="" Or strBody="" Then
        Call DisplayUsage
Else
    strSch = "http://schemas.microsoft.com/cdo/configuration/"

    Set objConfig = CreateObject("CDO.Configuration")

    With objConfig.Fields
    .Item(strSch & "sendusing") = 2 ' cdoSendUsingPort
    .Item(strSch & "smtpauthenticate") = intAuth
    .Item(strSch & "smtpserver") = strServer
    .Item(strSch & "smtpserverport") = intPort

    If intAut = 1 Then
        .Item(strSch & "sendusername") = strUser
        .Item(strSch & "sendpassword") = strPass
    End If
    .update
End With


Set objMessage = CreateObject("CDO.Message")

With objMessage
    Set .Configuration = objConfig
    .From = strFrom
    .To = strTo
    .Subject = strSubject
    .TextBody = strBody

    IF strAttachments <> "" Then
        arrAttachments = Split(strAttachments, ",", -1, 1)
        For Each strAttachment in arrAttachments
            .AddAttachment(strAttachment)
        Next
        Set arrAttachments = Nothing
    End If
    .Send
End With

    Set objMessage = Nothing
    Set objConfig = Nothing
End If

' Display the usage for this script
Sub DisplayUsage
    WScript.Echo "Usage:" & _
        Chr(13) & Chr(13) & _
        "sendmail [-smtp <server>] [-port <port>] [-auth <0=None, 1=Basic, 2=NTLM>] [-user <user>] [-pass <password>]" & _
        Chr(13) & _
        " -t <to address> -f <from address>" & _
        Chr(13) & _
        " -s " & Chr(34) & "<subject>" & Chr(34) & " -b " & Chr(34) & "<message>" & Chr(34) & _
        Chr(13) & _
        " -a " & Chr(34) & "<attachment1>,<attachment2>,..,<attachmentN>" & Chr(34) & _
        Chr(13) & Chr(13) & _
        "sendmail [-help|-?]"
    WSCript.Quit
End Sub

Retrouvez ici un listing des commandes PowerShell de Exchange 2007 pour réaliser les tâches courantes (qui étaient accessibles facilement sous Exchange 2003 et antérieurs...).
Cet article sera enrichi de nouvelles commandes au cour du temps... revenez régulièrement...


- Lister les boites de taille supérieure à 10MB, triées par taille
Get-MailboxStatistics |where {$_.TotalItemSize -gt 10MB} | sort $_.TotalItemSize |FT DisplayName,ItemCount,TotalItemSize

- Lister les boites de taille supérieure à 10MB, triées par taille (Export CSV)
Get-MailboxStatistics |where {$_.TotalItemSize -gt 10MB} | sort $_.TotalItemSize |select-object  DisplayName,ItemCount,TotalItemSize |export-csv c:extract.csv

- Lister les boites de taille supérieure à 10MB, triées par taille (export HTML)
Get-MailboxStatistics |where {$_.TotalItemSize -gt 10MB} | sort $_.TotalItemSize |select-object DisplayName,ItemCount,TotalItemSize |convertto-html | out-file c:extract.html

- Effacer définitivement les boites supprimées ( = Agent de nettoyage 2000/2003)
Get-MailboxStatistics -database "<ServerName>Mailbox database" | where {$_.disconnectdate -ne $null} | foreach {Remove-mailbox -database $_.database -storemailboxidentity $_.mailboxguid}

Si vous obtenez des erreurs 404 dans Outlook Web Access (owa) 2007 (en cliquant sur "deconnecter", "Supprimer un message", etc...), essayez de recréer le répertoire virtuel owa de IIS sur le serveur Exchange 2007 :

- Recréer le répertoire virtuel de owa :

Remove-OwaVirtualDirectory -identity <ServerName>owa (default web site)

New-OWAVirtualDirectory -OwaVersion:Exchange2007 -Name "OWA"

iisreset

- Puis reconfigurer dans la console Exchange (Mode d'authentification, URLs interne et externe...)

Comment installer Reporting Services 2005 SP2 ?

Un petit Script pour configurer le démarrage automatique d'une VM lors du démarrage du serveur physique :


Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("<VM Name>")
objVM.RunAsDefinedAccount = True
result = objVM.SetAccountNameAndPassword("DOMAINAccount","Password")
objVM.AutoStartAtLaunch = 1