IT博客-nick's IT blog-随笔分类-Powershell

Powershell Function:Get-SavVer

nicktang — Wed, 15 Apr 2009 08:18:00 GMT

Function Get-SavVerWmi{

trap{
break
}

$computer = $args[0]
$namespace = "root\DEFAULT"
$HKLM = 2147483650
$oreg = get-wmiobject -list -namespace $namespace -ComputerName $computer | where-object { $_.name -eq "StdRegProv" }
If($Error){$Error.Clear();break}
$strKeyPath = "SOFTWARE\Symantec\SharedDefs"
$strValueName = "DEFWATCH_10"
$strvalue = ($oreg.GetStringValue($HKLM,$strKeyPath,$strValueName)).svalue

$SavYear = $strvalue
$SavYear = $SavYear.SubString($SavYear.Length - 12,12)
$SavYear = $SavYear.SubString(0,4)
$SavMonth = $strvalue
$SavMonth = $SavMonth.SubString($SavMonth.Length - 12,12)
$SavMonth = $SavMonth.SubString(4,2)
$SavDay = $strvalue
$SavDay = $SavDay.SubString($SavDay.Length - 12,12)
$SavDay = $SavDay.SubString(6,2)

$SavRevision = $strvalue.SubString($strvalue.Length - 3,3)

$SavDate = $SavYear + "-" + $SavMonth + "-" + $SavDay

$DefVer = $SavDate + " rev. " + $SavRevision

$DefVer

$strKeyPath = "SOFTWARE\Intel\DLLUsage\VP6"
$strValueName = "C:\Program Files\Symantec AntiVirus\Rtvscan.exe"
$strvalue = ($oreg.GetStringValue($HKLM,$strKeyPath,$strValueName)).svalue
$RtvscanVer = $strValue
$RtvscanVer

}

更新另外一个的版本：

Function Get-SavVerNet{

trap{
break
}

$computer = $args[0]
$hkey = [Microsoft.Win32.RegistryHive]::LocalMachine
$key = "SOFTWARE\Symantec\SharedDefs"
$value = "DEFWATCH_10"
$reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey($hkey, $Computer)
$regKey = $reg.OpenSubKey($key)
$strvalue = $regKey.GetValue($value)

$SavYear = $strvalue
$SavYear = $SavYear.SubString($SavYear.Length - 12,12)
$SavYear = $SavYear.SubString(0,4)
$SavMonth = $strvalue
$SavMonth = $SavMonth.SubString($SavMonth.Length - 12,12)
$SavMonth = $SavMonth.SubString(4,2)
$SavDay = $strvalue
$SavDay = $SavDay.SubString($SavDay.Length - 12,12)
$SavDay = $SavDay.SubString(6,2)

$SavRevision = $strvalue.SubString($strvalue.Length - 3,3)

$SavDate = $SavYear + "-" + $SavMonth + "-" + $SavDay

$DefVer = $SavDate + " rev. " + $SavRevision

$DefVer

$key = "SOFTWARE\Intel\DLLUsage\VP6"
$value = "C:\Program Files\Symantec AntiVirus\Rtvscan.exe"
$regKey = $reg.OpenSubKey($key)
$strvalue = $regKey.GetValue($value)
$RtvscanVer = $strValue
$RtvscanVer

}

使用方法：Get-SavVerWmi 10.100.1.111

目前脚本并不完善，还需逐步进行修改！

两个版本的速度比较：

PS C:\> measure-command {get-savvernet 10.100.1.1}

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 0
Milliseconds      : 7
Ticks             : 79867
TotalDays         : 9.24386574074074E-08
TotalHours        : 2.21852777777778E-06
TotalMinutes      : 0.000133111666666667
TotalSeconds      : 0.0079867
TotalMilliseconds : 7.9867

PS C:\> measure-command {get-savverwmi 10.100.1.1}

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 4
Milliseconds      : 824
Ticks             : 48240262
TotalDays         : 5.58336365740741E-05
TotalHours        : 0.00134000727777778
TotalMinutes      : 0.0804004366666667
TotalSeconds      : 4.8240262
TotalMilliseconds : 4824.0262

诶，以后能不用wmi，就尽量不用了吧：（

nicktang 2009-04-15 16:18 发表评论

Powershell Tips：捕获错误

nicktang — Wed, 15 Apr 2009 05:56:00 GMT

trap {
  write-host "Error connecting to $computer" -fore red "$computer" | out-file c:\demo\errors.txt -append
  continue
}

$computer = "localhost"
get-wmiobject win32_operatingsystem -comp $computer -ErrorAction stop

$computer = "server2"
get-wmiobject win32_operatingsystem  -comp $computer -ErrorAction stop

$computer = "localhost"
get-wmiobject win32_operatingsystem  -comp $computer -ErrorAction stop

nicktang 2009-04-15 13:56 发表评论

Powershell Tips：避免不必要的输出

nicktang — Wed, 15 Apr 2009 05:20:00 GMT

3个方法：

1.[void]

2.out-null

3.> $null

例如：

PS C:\> $a="hello world!"
PS C:\> $a
hello world!
PS C:\> [void]$a
PS C:\> $a|out-null
PS C:\> $a > $null

nicktang 2009-04-15 13:20 发表评论

Powershell using StdRegProv, error 80070005

nicktang — Wed, 15 Apr 2009 02:28:00 GMT

$cred = Get-Credential test\test
$computer = "."
$namespace = "root\DEFAULT"
$HKLM = 2147483650
$oreg = get-wmiobject -list -namespace $namespace -ComputerName $computer -Credential $cred| where-object { $_.name -eq "StdRegProv" }
$strKeyPath = "SOFTWARE\Symantec\SharedDefs"
$strValueName = "DEFWATCH_10"
($oreg.GetStringValue($HKLM,$strKeyPath,$strValueName)).svalue

使用上面代码连接远程计算机，将收到返回：

检索成员“GetStringValue”时发生异常:“拒绝访问。 (异常来自 HRESULT:0x80070005 (E_ACCESSDENIED))”
所在位置行:1 字符: 57
+ ($oreg.GetStringValue($HKLM,$strKeyPath,$strValueName)).s <<<< value

而其他一些class均正常；若不使用凭据，在域环境中运行正常；若不使用凭据，工作组中运行正常（当然本机具有同样密码的相应账户）；使用凭据，在本机建立同样密码的相应账户，同样正常。

不清楚是powershell对wmi支持不够好，还是某些新的补丁引起？目前是怀疑微软某个安全补丁引起，可能会在后续补丁中修复。

nicktang 2009-04-15 10:28 发表评论

Powershell with Registry

nicktang — Tue, 14 Apr 2009 14:07:00 GMT

$path = "HKLM:\SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$psv = get-itemproperty -path $path

$psv.RunTimeVersion

$path = "HKLM\SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$WshShell = New-Object -ComObject Wscript.Shell

$WshShell.RegRead("$path\RunTimeVersion")

$computer = “."

$hklm = 2147483650

$key = "SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$value = "RunTimeVersion"

$wmi = [WMIClass] ("\\" + $computer + "\root\default:StdRegProv")

($wmi.GetStringValue($hklm,$key,$value)).svalue

$computer = “."

$hklm = 2147483650

$oreg = get-wmiobject -list -namespace root\default -ComputerName $computer | where-object { $_.name -eq "StdRegProv" }

$key = "SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$value = "RunTimeVersion"

($oreg.GetStringValue($hklm,$key,$value)).svalue

$hklm = "HKEY_LOCAL_MACHINE"

$key = "SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$value = "RunTimeVersion"

[Microsoft.Win32.Registry]::GetValue("$hklm\$key",$value,$null)

$Computer = “.”

$hkey = [Microsoft.Win32.RegistryHive]::LocalMachine

$key = "SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine"

$value = "RunTimeVersion"

$reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey($hkey, $Computer)

$regKey = $reg.OpenSubKey($key)

$regKey.GetValue($value)

nicktang 2009-04-14 22:07 发表评论

Reading an Excel sheet using PowerShell and ADO.Net

nicktang — Tue, 14 Apr 2009 02:38:00 GMT

#Lets instantiate the objects we need:
$OleDbConn = New-Object "System.Data.OleDb.OleDbConnection"
$OleDbCmd = New-Object "System.Data.OleDb.OleDbCommand"
$OleDbAdapter = New-Object "System.Data.OleDb.OleDbDataAdapter"
$DataTable = New-Object "System.Data.DataTable"



#Set the connection string and connect. Please pay attention to the syntax, otherwise, you’ll get cryptic errors such as “Could not find installable ISAM”. Also, the file should not be locked exclusively
$OleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lognoulm\Desktop\servercfg.xls;Extended Properties=""Excel 8.0;HDR=YES"""
$OleDbConn.Open()



#Optionally, to check that the connection is open, display the “State” property:
$OleDbConn.State



#Now let’s construct a SQL query. Syntax for Excel is a little special, look at the end of this post for external references.
$OleDbCmd.Connection = $OleDbConn
$OleDbCmd.CommandText = "SELECT * FROM [Sheet1$]"



#Then set the Adapter object
$OleDbAdapter.SelectCommand = $OleDbCmd



#And then fill the DataTable object with the results
$OleDbAdapter.Fill($DataTable)



#If everything went fine, the command above will return the number of row present is the DataTable object. To display the “raw” contents, just enter
$DataTable



#To show the first line (aka Row), use this $DataTable.Rows[0]
And how to display a given field in that row? Just use the field header. In my XLS, one header is for example “Name”
$DataTable.Rows[0].Name

摘自：http://www.marc-antho-etc.net/blog/post/Repost-Reading-an-Excel-sheet-using-PowerShell-and-ADONet.aspx

nicktang 2009-04-14 10:38 发表评论

Using ADO to get data from Excel to Dataset in Monad

nicktang — Tue, 14 Apr 2009 02:32:00 GMT

$excel = "$pwd\桌面\book1.xls"

# Make the Connection : s
$ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=$excel;Extended Properties=Excel 8.0;"
$Conn = new-object System.Data.OleDb.OleDbConnection($connString)

# Open the Connection
$conn.open()

# Get the available Tables
$Tables = $Conn.GetOleDbSchemaTable([System.Data.OleDb.OleDbSchemaGuid]::tables,$null)

# make a Command to get all data of the first table (Sheet)
$cmd = new-object System.Data.OleDb.OleDbCommand("Select * from [$($tables.rows[0].TABLE_NAME)]",$Conn)

# Load a DataAdapter with the Select Command.
$da = new-object System.Data.OleDb.OleDbDataAdapter($cmd)

# Fill a DataSet from the Data Adapter
$ds = new-object System.Data.dataset
$da.fill($ds)

# get the Tables
$ds.tables | out-null

# get all Row's where User is Mow1
$ds.tables[0].select("user = 'Mow1'")

# Save this Dataset as XML Document:
$sw = new-object system.io.streamwriter("$pwd\桌面\Puters.xml")
$ds.WriteXml($sw)
$sw.close()

# Load XML document into new dataset :
$sr = new-object system.io.streamreader("$pwd\桌面\Puters.xml")
$ds.ReadXml($sr)
$sr.close()

$ds.tables

摘自：mow001的blog

nicktang 2009-04-14 10:32 发表评论

Powershell with Database

nicktang — Mon, 13 Apr 2009 06:13:00 GMT

通过ADO查询Access

$adOpenStatic = 3
$adLockOptimistic = 3

$objConnection = New-Object -comobject ADODB.Connection
$objRecordset = New-Object -comobject ADODB.Recordset

$objConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = $pwd\checksav.mdb")
$strQuery="Select * from CheckSAV"
$objRecordset.Open($strQuery, $objConnection,$adOpenStatic,$adLockOptimistic)

#$objRecordSet=$objConnection.Execute($strQuery)

$objRecordset.MoveFirst()

do {$objRecordset.Fields.Item("ComputerName").Value; $objRecordset.MoveNext()} until
($objRecordset.EOF -eq $True)

$objRecordset.Close()
$objConnection.Close()

通过ADO更新Access

$adOpenStatic = 3
$adLockOptimistic = 3

$objConnection = New-Object -com "ADODB.Connection"
$objRecordSet = New-Object -com "ADODB.Recordset"

$objConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = $pwd\checksav.mdb")
$strQuery="Select * from CheckSAV"
$objRecordset.Open($strQuery, $objConnection,$adOpenStatic,$adLockOptimistic)

$objRecordSet.AddNew()
$objRecordSet.Fields.Item("ComputerName").Value = "atl-ws-001"
$objRecordSet.Update()

$objRecordSet.Close()
$objConnection.Close()

通过ADO删除Access

$objConnection = New-Object -com "ADODB.Connection"
$objRecordSet = New-Object -com "ADODB.Recordset"

$objConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = $pwd\checksav.mdb")
$strQuery="delete from checksav where computername='atl-ws-001'"
$objRecordSet=$objConnection.Execute($strQuery)

$objConnection.Close()

通过ADO查询Excel

$objConnection= New-Object -com "ADODB.Connection"
$file="c:\ATT1741595.xls"
$strQuery="Select * from [Sheet1$]"
$users=@()
$objConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;`
Data Source=$file;Extended Properties=Excel 8.0;")
$objRecordSet=$objConnection.Execute($strQuery)
do {
$users+=$objRecordSet.Fields.Item(9).Value
$objRecordSet.MoveNext()
} Until ($objRecordSet.EOF)
$objConnection.Close()

查询SqlServer

$conn = new-object system.data.oledb.oledbconnection
$connstring = "provider=sqloledb;data source=corp-alt-66;initial catalog=tracer2_dev_dfm;integrated security=SSPI"
$conn.connectionstring = $connstring
$conn.open()



$sqlquery = "select ServerId, ServerName from Servers"
$cmd = New-Object system.data.oledb.oledbcommand
$cmd.connection = $conn
$cmd.commandtext = $sqlquery
$reader = $cmd.executereader()#将 CommandText 发送到 Connection 并生成一个 OleDbDataReader。OleDbCommand.ExecuteScalar 方法，执行查询，并返回查询所返回的结果集中第一行的第一列，忽略其他列或行。
while($reader.read())
  {
    $servId = $reader.getvalue(0)
    $computer = $reader.getvalue(1)
  }

$reader.close()
$conn.close()

更新Sqlserver

$conn = new-object System.Data.SqlClient.SqlConnection
$connstring = "provider=sqloledb;data source=corp-alt-66;initial catalog=tracer2_dev_dfm;integrated security=SSPI"
$conn.connectionstring = $connstring
$conn.open()

$query = "Insert into TestTable (ServerId, OSVersion) values ('$servId','$version')"
$cmd = New-Object system.data.oledb.oledbcommand
$cmd.connection = $conn
$cmd.commandtext = $query
$cmd.executenonquery()#针对 Connection 执行 SQL 语句并返回受影响的行数。
$conn.close()

$conn = new-object System.Data.SqlClient.SqlConnection

$conn.ConnectionString = "server=localhost;database=Northwind;integrated security=SSPI"

$cmd = new-object System.Data.SqlClient.SqlCommand

$cmd.CommandText = "SELECT CategoryID, CategoryName, Description,Picture FROm Categories"

$cmd.Connection = $conn

$adapter = new-object System.Data.SqlClient.SqlDataAdapter

$adapter.SelectCommand = $cmd

$ds = new-object System.Data.DataSet

$adapter.Fill($ds)

$conn.close()

$ds.Tables[0]

##############################################################################
##
## Invoke-SqlCommand.ps1
##
## From Windows PowerShell Cookbook (O'Reilly)
## by Lee Holmes (http://www.leeholmes.com/guide)
##
## Return the results of a SQL query or operation
##
## ie:
##
## ## Use Windows authentication
## Invoke-SqlCommand.ps1 -Sql "SELECT TOP 10 * FROM Orders"
##
## ## Use SQL Authentication
## $cred = Get-Credential
## Invoke-SqlCommand.ps1 -Sql "SELECT TOP 10 * FROM Orders" -Cred $cred
##
## ## Perform an update
## $server = "MYSERVER"
## $database = "Master"
## $sql = "UPDATE Orders SET EmployeeID = 6 WHERE OrderID = 10248"
## Invoke-SqlCommand $server $database $sql
##
## $sql = "EXEC SalesByCategory 'Beverages'"
## Invoke-SqlCommand -Sql $sql
##
## ## Access an access database
## Invoke-SqlCommand (Resolve-Path access_test.mdb) -Sql "SELECT * FROM Users"
##
## ## Access an excel file
## Invoke-SqlCommand (Resolve-Path xls_test.xls) -Sql 'SELECT * FROM [Sheet1$]'
##
##############################################################################
param(
[string] $dataSource = ".\SQLEXPRESS",
[string] $database = "Northwind",
[string] $sqlCommand = $(throw "Please specify a query."),
[System.Management.Automation.PsCredential] $credential
)
## Prepare the authentication information. By default, we pick
## Windows authentication
$authentication = "Integrated Security=SSPI;"
## If the user supplies a credential, then they want SQL
## authentication
if($credential)
{
$plainCred = $credential.GetNetworkCredential()
$authentication =
("uid={0};pwd={1};" -f $plainCred.Username,$plainCred.Password)
}
## Prepare the connection string out of the information they
## provide
$connectionString = "Provider=sqloledb; " +
"Data Source=$dataSource; " +
"Initial Catalog=$database; " +
"$authentication; "
## If they specify an Access database or Excel file as the connection
## source, modify the connection string to connect to that data source
if($dataSource -match '\.xls$|\.mdb$')
{
$connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=$dataSource; "
if($dataSource -match '\.xls$')
{
$connectionString += 'Extended Properties="Excel 8.0;"; '
## Generate an error if they didn't specify the sheet name properly
if($sqlCommand -notmatch '\[.+\$\]')
{
$error = 'Sheet names should be surrounded by square brackets, and ' +
'have a dollar sign at the end: [Sheet1$]'
Write-Error $error
return
}
}
}
## Connect to the data source and open it
$connection = New-Object System.Data.OleDb.OleDbConnection $connectionString
$command = New-Object System.Data.OleDb.OleDbCommand $sqlCommand,$connection
$connection.Open()
## Fetch the results, and close the connection
$adapter = New-Object System.Data.OleDb.OleDbDataAdapter $command
$dataset = New-Object System.Data.DataSet
[void] $adapter.Fill($dataSet)
$connection.Close()
## Return all of the rows from their query
$dataSet.Tables | Select-Object -Expand Rows

nicktang 2009-04-13 14:13 发表评论

Win32_PingStatus vs [System.Net.NetworkInformation.Ping] vs Ping.exe

nicktang — Fri, 10 Apr 2009 14:38:00 GMT

$g = @("127.0.0.1")*50

Function Ping-Wmi {

PROCESS {

$wmi = get-wmiobject -query "SELECT * FROM Win32_PingStatus WHERE Address = '$_'"

if ($wmi.StatusCode -eq 0) { $_ }

}

}

Function Ping-Net {

Begin { $ping = new-object System.Net.NetworkInformation.Ping }

Process {

if ($ping.Send($_)) {

$_

}

}

}

Function Ping-Exe {

Process {

        if ((Ping -n 1 $_|out-string) –match “Reply”) {

            $_

        }

    }

}

PS C:\> measure-command { $g | Ping-Wmi }

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 0
Milliseconds      : 802
Ticks             : 8023905
TotalDays         : 9.28692708333333E-06
TotalHours        : 0.00022288625
TotalMinutes      : 0.013373175
TotalSeconds      : 0.8023905
TotalMilliseconds : 802.3905



PS C:\> measure-command { $g | Ping-Net }

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 0
Milliseconds      : 25
Ticks             : 255965
TotalDays         : 2.96255787037037E-07
TotalHours        : 7.11013888888889E-06
TotalMinutes      : 0.000426608333333333
TotalSeconds      : 0.0255965
TotalMilliseconds : 25.5965



PS C:\> measure-command { $g | Ping-Exe }

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 2
Milliseconds      : 375
Ticks             : 23757357
TotalDays         : 2.74969409722222E-05
TotalHours        : 0.000659926583333333
TotalMinutes      : 0.039595595
TotalSeconds      : 2.3757357
TotalMilliseconds : 2375.7357

从这个结果来看，Ping-Exe=2375.7357 > Ping-Wmi=802.3905 > Ping-Net=25.5965，该选择哪个就不用说了:)

nicktang 2009-04-10 22:38 发表评论

Ping Function

nicktang — Fri, 10 Apr 2009 05:59:00 GMT

Function Ping-Net
{
  $timeout=1000;#毫秒
  trap { continue; }
  $ping = new-object System.Net.NetworkInformation.Ping
  $reply = new-object System.Net.NetworkInformation.PingReply

  $reply = $ping.Send($args, $timeout);
  if( $reply.Status -eq "Success"  )
  {
     return $true;
  }
  return $false;

}

function Ping-Wmi {
   Param([string]$computer)
   $pingresult = Get-WmiObject win32_pingstatus -f "address='$computer'"
   #$pingresult = gwmi -query "SELECT * FROM Win32_PingStatus WHERE Address = '$computer'"
   if($pingresult.statuscode -eq 0) {$true} else {$false}
}

Function Ping-Exe{
$reply = Ping -n 1 -w 1000 $args;
Return $?;
}

Function Ping-Exe{
(Ping -n 1 -w 1000 $args|out-string) –match “Reply”;

}

nicktang 2009-04-10 13:59 发表评论

Searching the Active Directory with PowerShell

nicktang — Fri, 10 Apr 2009 01:59:00 GMT

function get-dn ($SAMName)

{

$root = [ADSI]''

$searcher = new-object System.DirectoryServices.DirectorySearcher($root)

$searcher.filter = "(&(objectClass=user)(sAMAccountName= $SAMName))"

$user = $searcher.findall()

if ($user.count -gt 1)

{

$count = 0

foreach($i in $user)

{

write-host $count ": " $i.path

$count = $count + 1

}

$selection = Read-Host "Please select item: "

return $user[$selection].path

}

else

{

return $user[0].path

}

}

$Name = $args[0]

$path = get-dn $Name

"'" + $path + "'"

举例：

PS C:\store\ps scripts> .\get-dn.ps1 administrator

'LDAP://CN=Administrator,CN=Users,DC=umpadom,DC=com'

摘自：http://blogs.technet.com/benp/archive/2007/03/26/searching-the-active-directory-with-powershell.aspx

nicktang 2009-04-10 09:59 发表评论

System.Net.Mail with SSL to authenticate against port 465

nicktang — Thu, 09 Apr 2009 13:34:00 GMT

Sending mail using System.Net.Mail with SSL will fail:

System.Net.NetworkCredential aCred = new System.Net.NetworkCredential("myacct", "mypassword");

SmtpClient smtp = new SmtpClient("smtp.mail.myserver.com", 465);

smtp.EnableSsl = true;

smtp.UseDefaultCredentials = false;

smtp.Credentials = aCred;

System.Net.Mail only supports “Explicit SSL”.

Explicit SSL

System.Net.Mail only supports “Explicit SSL”. Explicit SSL starts as unencrypted on port 25, then issues a STARTDLS and switches to an Encrypted connection. See RFC 2228.

Explicit SLL would go something like: Connect on 25 -> StartTLS (starts to encrypt) -> authenticate -> send data

If the SMTP server expects SSL/TLS connection right from the start then this will not work.

Implicit SSL

There is no way to use Implicit SSL (SMTPS) with System.Net.Mail. Implicit SSL would have the entire connection is wrapped in an SSL layer. A specific port would be used (port 465 is common). There is no formal RFC covering Implicit SSL.

Implicit SLL would go something like: Start SSL (start encryption) -> Connect -> Authenticate -> send data

This is not considered a bug, it’s a feature request. There are two types of SSL authentication for SMTP, and we only support one (by design) – Explicit SSL.

转自Dan's WebDAV 101

nicktang 2009-04-09 21:34 发表评论

Sendmail Function

nicktang — Thu, 09 Apr 2009 13:24:00 GMT

Powershell:System.Net.Mail.MailMessage

#mail server configuration
$smtpServer = "smtpServer"
$smtpUser = "smtpUser"
$smtpPassword = "smtpPassword "

#create the mail message
$mail = New-Object System.Net.Mail.MailMessage

#set the addresses
$MailAddress="MailAddress"
$MailtoAddress="MailtoAddress"
$mail.From = New-Object System.Net.Mail.MailAddress($MailAddress)
$mail.To.Add($MailtoAddress)

#set the content
$mail.Subject = "Hello PowerShell";
$mail.Priority = "High"
$mail.Body = "Sending mail is easy!"
$filename="file"
$attachment = new-Object System.Net.Mail.Attachment($filename)
$mail.Attachments.Add($attachment)

#send the message
$smtp = New-Object System.Net.Mail.SmtpClient -argumentList $smtpServer
$smtp.Credentials = New-Object System.Net.NetworkCredential -argumentList $smtpUser,$smtpPassword
$smtp.Send($mail)

为了防止密码以明文形式出现在脚本中，可以使用Get-Credential cmdlet

$cred = (Get-Credential domain\user).GetNetworkCredential()

$smtp.Credentials = $cred

支持SSL

$smtp.EnableSsl = $True

Powershell:CDO.Message

$objMessage = new-object -com CDO.Message
$objMessage.From = "`"Krzysztof Pietrzak`" "
$objMessage.To = "pkrzysz@nospam.pjwstk.edu.pl"
$objMessage.Subject = " Message Subject"
$objMessage.TextBody = "Body of message"

# Send using SMTP
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
#SMTP Server
$objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.org"
#SMTP Server Port
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
#Authenticaztion 1-Baasic, 2-NTLM
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
#Use ssl
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 0
#Timeout
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
$objMessage.Configuration.Fields.Update()
$objMessage.Send()

Powershell:CDO.Message带有身份验证和SSL/TLS

# Send using SMTP
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
#SMTP Server
$objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "dfs2"
#SMTP Server Port
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
#Authenticaztion 1-Baasic, 2-NTLM
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
#UserID
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourUser"
#Password
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
#Use ssl
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
#Timeout
$objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
$objMessage.Configuration.Fields.Update()
$objMessage.Send()

VBScript:CDO.Message

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text."
objMessage.Send

VBScript:CDO.Message带有附件和邮件的HTML

'The line below shows how to send using HTML included directly in your script
objMessage.HTMLBody = "

This is some sample message html.

"
'The line below shows how to send a webpage from a remote site
objMessage.CreateMHTMLBody "http://www.paulsadowski.com/wsh/"
'The line below shows how to send a webpage from a file on your machine
objMessage.CreateMHTMLBody "file://c|/temp/test.htm"
objMessage.Bcc = "you@your.com"
objMessage.Cc = “you2@your.com”

VBScript:CDO.MessageNTLM

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Temat"
objMessage.From = """nadawca"" nadawca@domena.com"
objMessage.To = "odbiorca1@domena1.com"
objMessage.TextBody = "Serwer "

'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpServer"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoNTLM
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==
objMessage.Send

VBScript:CDO.Message基本身份验证和SSL

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = """Me"" "
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = TRUE
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==

objMessage.Send

VBScript:CDONTS，在2000下使用，XP和2003需注册相应dll，并安装SMTP服务，在Windows Server 2008上同样被支持，但是找不出不升级程序的理由，谁都不希望再去多装服务，麻烦不说，无形中还增加了一点安全风险，而且这种方法也不会被微软支持！http://www.jppinto.com/index.php/2009/03/install-cdonts-mail-component-and-smtp-on-windows-server-2008/

http://weblogs.asp.net/steveschofield/archive/2008/08/18/getting-cdonts-to-work-on-windows-server-2008-x64.aspx

Dim strComputer, objNetwork
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objMessage = CreateObject("CDONTS.NewMail")
set fs = CreateObject("Scripting.FileSystemObject")
set drive = fs.GetDrive("C:\")
strComputer = objNetwork.ComputerName
objMessage.Subject = "Daily report of C drive available space on " & strComputer
objMessage.From = "icil_sup@icil.net"
objMessage.To = "allenzhang@icil.net,havingchan@icil.net"
strSpace = "Available Space on C:\:" & FormatNumber(drive.AvailableSpace/1024^2) & "MB"
objMessage.Body = Now & vbtab & strComputer & vbtab & strSpace
objMessage.Send

补充：Powershell:System.Web.Mail.MailMessage （利用CDOSYS消息组件发送电子邮件，.net 1.0和.net 1.1）

[System.Reflection.Assembly]::LoadWithPartialName("System.Web")

$WebMailMessage = New-Object System.Web.Mail.MailMessage

$WebMailMessage.From = 'powershell@powershell.com'

$WebMailMessage.Subject = 'TEST'

$WebMailMessage.To = 'someone@email.com'

$WebMailMessage.Body = 'This is a test of System.Web.Mail.SMTPMail'

$file="C:\test.txt"

$attach=new-object system.web.mail.mailattachment($file)

$webmailmessage.attachments.add($attach)

[System.Web.Mail.SmtpMail]::smtpServer = 'smtp.server.com'

[System.Web.Mail.SmtpMail]::send($WebMailMessage)

nicktang 2009-04-09 21:24 发表评论