4

ユーザーのマシンでexeを実行し、詳細をメールで返信するように求めるスクリプトを作成しています。

問題のコードは次のとおりです。

$ResultsOutput = "DHCPUtil Results at $(Get-Date)
Computer Name : $([System.Environment]::MachineName)
IP Address : 
User Name : $([System.Environment]::UserDomainName)\$([System.Environment]::UserName)
Results:"

$Details -split "`r`n" | % { $ResultsOutput += ([System.Environment]::NewLine + $_.Trim()) }

$Outlook = New-Object -ComObject Outlook.Application
if ($Outlook -ne $null)
{
    $Mail = $Outlook.CreateItem(0)
    $Mail.Subject = "DHCPUtil Results"
    $Mail.Body = $ResultsOutput
    $Mail.Display()
}
else
{
    $Desktop = (Get-Item "~\desktop").FullName
    Write-Host "Outlook not found - saving results to $($Desktop)\DHCPResults.txt"
    $ResultsOutput | Out-File "$($Desktop)\Desktop\DHCPResults.txt"
}

問題は、メール オブジェクトの属性に$ResultsOutput追加されていることです。最初の行だけに切り詰められているように見えます。内容は次のとおりです。$Mail.Body$ResultsOutput

DHCPUtil Results at 08/26/2016 13:36:02
Computer Name : COMPNAME
User Name : DOM\user
Results:
Starting Discovery ... 
Sending Packet (Size: 284, Network Adapter: 0.0.0.0, Attempt Type: Broadcast + Unicast)
--Begin Packet--
DHCP: INFORM                (xid=0)
(more below..)

そして、次$Mail.Bodyのように設定されます。

DHCPUtil Results at 08/26/2016 13:36:02 
Computer Name : COMPNAME
User Name : DOM\user 
Results: 
Starting Discovery ...

その下にそれ以上の情報はありません。

$ResultsOutput | Out-File .\ResultsOutput.txtNotepad ++で実行して開くと、出力がCRLF分離されていることが確認されます。

また、フォーマットに関する奇妙なことを除外するために、以下を試しました。

$ResultsOutput = "DHCPUtil Results at $(Get-Date)
Computer Name : $([System.Environment]::MachineName)
User Name : $([System.Environment]::UserDomainName)\$([System.Environment]::UserName)
Results:"

$Details -split "`r`n" | % { $ResultsOutput += ([System.Environment]::NewLine + $_.Trim()) }

通常、最後の行は次のとおりです。

$ResultsOutput = "DHCPUtil Results at $(Get-Date)
Computer Name : $([System.Environment]::MachineName)
User Name : $([System.Environment]::UserDomainName)\$([System.Environment]::UserName)
Results:
$($Details)"

この奇妙な問題を解決するための助けをいただければ幸いです。

編集 -

$Details以下のコードを介して取得されます。

$ProcInfo = [System.Diagnostics.ProcessStartInfo]::new() #Create 'info' object for Process
$ProcInfo.Arguments = "-EmulateClient" #Add the argument required
$ProcInfo.FileName = $TempFileName #Point to temp copy of DHCPUtil
$ProcInfo.UseShellExecute = $False #Required for getting the output
$ProcInfo.CreateNoWindow = $True #Hide the popup
$ProcInfo.RedirectStandardOutput = $True #So we can retrieve it as a string
$Results = [System.Diagnostics.Process]::Start($ProcInfo) #Launch the process
Write-Host "Waiting for DHCP Discovery (This can take some time!)" -ForegroundColor Green
$Results.WaitForExit() #Wait for DHCPUtil to complete
$Details = $Results.StandardOutput.ReadToEnd() #Get all of the results after it has completed
4

2 に答える 2