Question

我有一个名为script1.ps1的PowerShell脚本，可以完美运行。这是脚本：

Write-Host Script to display members of the local -ForegroundColor Green
Write-Host Administators group of a remote server. -ForegroundColor Green
Write-Host "`n"

$strComputer = Read-Host "Please enter the computer name"

$computer = [ADSI]("WinNT://" + $strComputer + ",computer")
$group = $computer.PSBase.Children.Find("administrators")

Write-Host ""
Write-Host "Computer Name : "$computer.Name
Write-Host "_____________________________________"
Write-Host ""
Write-Host "Group Name : "$Group.Name
Write-Host "_____________________________________"

$domain = $group.Path.Split("/")[2]
$string1 = "WinNT://" + $domain + "/" + $strComputer + "/"
$string2 = $strComputer + "/"
$string3 = "WinNT://"

$members  = ($group.PSBase.Invoke("Members") | Foreach-Object {$_.GetType().InvokeMember("Adspath", 'GetProperty', $null, $_, $null)}) -replace ($string1,$string2) -replace ($string3,"") 

Write-Host ""
Write-Host "Members : "
Write-Host ""
$members

但是正如你所看到的，每次我想要的电脑名称时我都不得不写。我问自己是否有一个函数或其他东西自动从文本或CSV文件中获取计算机名称？在剧本开头就像这样，它自动取出所有的计算机名称和给我当地“管理员”组的成员，然后将其导出到一个文本文件或CSV文件中？

编辑：根据给出的答案更新了脚本。

我有一个名为script1.ps1的PowerShell脚本无法正常工作。这是脚本：

Write-Host Script to display members of the local -ForegroundColor Green
Write-Host Administators group of a remote server. -ForegroundColor Green
Write-Host "`n"

Get-Content 'C:\Users\herbautr\Desktop\List1.txt' | ForEach-Object {
  Write-Host "-$_-"
  $computer = [ADSI]("WinNT://" + $_ + ",computer")
  $group = $computer.PSBase.Children.Find("administrators")

  Write-Host ""
  Write-Host "Computer Name : "$computer.Name
  Write-Host "_____________________________________"
  Write-Host ""
  Write-Host "Group Name : "$Group.Name
  Write-Host "_____________________________________"

  $domain = $group.Path.Split("/")[2]
  $string1 = "WinNT://" + $domain + "/" + $_ + "/"
  $string2 = $_ + "/"
  $string3 = "WinNT://"

  $members  = ($group.PSBase.Invoke("Members") | Foreach-Object {$_.GetType().InvokeMember("Adspath", 'GetProperty', $null, $_, $null)}) -replace ($string1,$string2) -replace ($string3,"") 

  Write-Host ""
  Write-Host "Members : "
  Write-Host ""
  $members
} | Set-Content 'C:\Users\herbautr\Desktop\administrators.txt'

我在List1.txt中添加了1个计算机名称：

01SPEAI-TEST1
01SPEAI-TEST2
02SPHPV-TEST1
01SLCPTAAP-PROD

它完美无效（不可读的布局）

01SPEAI-PROD1/Administrator
VNF-PRINCIPAL/Admins du domaine
VNF-PRINCIPAL/svceri
01SPEAI-PROD2/Administrator
VNF-PRINCIPAL/Admins du domaine
VNF-PRINCIPAL/svceri
02SPHPV-PROD1/Administrator
VNF-PRINCIPAL/Admins du domaine
01SLCPTAAP-PROD/Administrator
VNF-PRINCIPAL/Admins du domaine
01SLCPTAAP-PROD/maint
VNF-PRINCIPAL/svcoraas
VNF-PRINCIPAL/svcvisionit
VNF-PRINCIPAL/GopOAS
VNF-PRINCIPAL/svcdigora

注意（下午15:18）：我尝试了5个名字，它继续工作..

为什么只添加1个名称“有效”？ OO'

Answer 1

您正在寻找Get-Content和Set-Content。

Get-Content 'C:\path\to\computers.txt' | ForEach-Object {
  $computer = [ADSI]("WinNT://" + $_ + ",computer")
  ...
} | Set-Content 'C:\path\to\administrators.txt'

请注意，您需要使用当前对象automatic variable（$strComputer）替换ForEach-Object循环中出现的所有$_。

如果您想使用CSV进行输入和输出，请使用Import-Csv和Export-Csv cmdlet。

Import-Csv 'C:\path\to\computers.csv' | ForEach-Object {
  $computer = [ADSI]("WinNT://" + $_.ComputerName + ",computer")
  ...
  $members | ForEach-Object {
    New-Object -Type PSObject -Property @{
      Member = $_
    }
  }
} | Export-Csv 'C:\path\to\administrators.csv' -NoType

请注意，当您需要处理具有多个属性的项目时，CSV具有一些优势，但它们需要比简单字符串更精细的处理（正如您在上面的示例中所见）。

自动搜索本地“管理员”组的成员

1 个答案: