0

現時点では、コードはドライブCに対してのみ実行されます。以下のコードを既存のすべてのシステム ドライブのサブフォルダーの内容、つまりC:\ D:\ E:\ などに実行/適用したいと思います。これを達成するには？私の質問を明確にする必要がある場合は、お尋ねください。(** $dirをすべてのシステム ドライブのルートに置き換えたい)。

$dir = "c:\"
#this is main client-side file scanning code for use on client computers
$count = @{}
$size = @{}
$hostname = @{}
gci $dir -recurse |%{
[int]$count[$_.extension] += 1
[int64]$size[$_.extension] += $_.length
}
$results = @()
$count.keys | sort |% {
$result = ""|select extension,count,size,hostname
$result.extension = $_
$result.count = $count[$_]
$result.size = [math]::round($size[$_] /1Gb, 3)
$result.hostname = $(get-content env:computername)
$results += $result
}
$results | ft -auto

$dirName = "C:\inetpub\wwwroot\${Env:ComputerName}"
if (!(Test-Path $dirName)) { mkdir $dirName }

$results | sort-object -property size -Descending | select-object -first 30| export-csv c:\"$env:computername-$(get-date -f dd-MM-yyyy-HH-mm)".csv

$a = "<style>"
$a = $a + "BODY{background-color:#A987CC;}"
$a = $a + "TABLE{border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;.center { margin:auto; width:70%; };}"
$a = $a + "TH{border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color:#99CCFF}"
$a = $a + "TD{border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color:PaleGoldenrod}"
$a = $a + "</style>"


$results | sort-object -property size -Descending | select-object -first 30 | ConvertTo-Html extension,count,size, hostname "$a" -title "JUST" -body "TOP 30 FILES" | 
Set-Content C:\inetpub\wwwroot\${Env:ComputerName}\"$env:computername-$(get-date -f dd-MM-yyyy-hh-mm)".htm
4

2 に答える 2

2

おおむね理解できました。実際に必要だったのは、コンピューター上のすべての物理ドライブの一覧を取得し、それをループ処理することだけでした。

その他の注意事項:

  • 削除しまし$results |ft -autoた。おそらくデバッグ出力としてそこにあったでしょう。
  • これを 2 回行います$results | sort-object -property size -Descending | select-object -first 30。私は一度それを行い、出力を に戻しました$results。同じパイプライン ステップを通る同じデータの複数回のトリップは非効率的です。
  • here-stringを作成$aしました。文字列を連結するよりも読みやすく、操作が簡単です。
  • ファイル名を日付でソートできるように、出力ファイルの日付文字列を再フォーマットしました。
  • にファイルを入れないでくださいc:\。ずさんなだけです。より適切な場所を見つけてください。

  • これにより、すべてのフォルダーがキャプチャされます (フィルターで除外していません)。それは望ましいことですか？

    $drives = Get-WmiObject win32_logicaldisk -Filter "Drivetype=3"|select -expandproperty deviceid;

#this is main client-side file scanning code for use on client computers
$results = @()
foreach ($drive in $drives){
$count = @{}
$size = @{}
$hostname = @{}
gci $drive -recurse |%{
    [int]$count[$_.extension] += 1
    [int64]$size[$_.extension] += $_.length
}   
$count.keys | sort |% {
    $result = ""|select extension,count,size,hostname;
    $result.extension = $_;
    $result.count = $count[$_];
    $result.size = [math]::round($size[$_] /1Gb, 3);
    $result.hostname = $(get-content env:computername);
    $results += $result;
}
}

$dirName = "C:\inetpub\wwwroot\${Env:ComputerName}"
if (!(Test-Path $dirName)) { New-Item -ItemType directory $dirName }
$results = $results|Sort-Object -property size -Descending|Select-Object -First 30;

$results | export-csv c:\"$env:computername-$(get-date -f yyyy-MM-dd-HH-mm)".csv

$a = @"
<style>
BODY{background-color:#A987CC;}
TABLE{border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;.center { margin:auto; width:70%; };}
TH{border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color:#99CCFF}
TD{border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color:PaleGoldenrod}
</style>
"@

$results | ConvertTo-Html extension,count,size, hostname "$a" -title "JUST" -body "TOP 30 FILES" | Set-Content C:\inetpub\wwwroot\${Env:ComputerName}\"$env:computername-$(get-date -f yyyy-MM-dd-HH-mm)".htm
于 2013-07-11T13:44:39.457 に答える