Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2019
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.79 KB | None | 0 0
  1. $ping_response = 0
  2.  
  3. # testime ühendust TLNCM01-ga, et skript ei üritaks csv-d exportida ühenduse puudumisel
  4. while ($ping_response -eq 0) {
  5. # kui TLNCM01 ei pingi, proovime 5 sekundi pärast uuesti
  6. if ((Test-Connection tlncm01.energia.sise -quiet) -ne $True) {
  7. Write-Output "TLNCM01 ei ole hetkel k2ttesaadav"
  8. Start-Sleep -Seconds 5
  9. } else {
  10. # välistame kasutajad, mida me ei taha
  11. $users = Get-ChildItem c:\users | Where-Object -FilterScript {$_.Name -notlike "*default*" -And $_.Name -ne "Public" -And $_.Name -notlike "*admin*"}
  12. # loobime kõik kasutajad läbi, välistame W7 peal olevad mingid naljakad default favorited
  13. $csv = foreach ($user in $users) {
  14. if (Test-Path "C:\users\$user\favorites") {
  15. $favs = Get-ChildItem c:\users\$user\favorites -Recurse | Where-Object -FilterScript {$_.Name -ne "Links" `
  16. -And $_.Name -ne "Bing.url" -And $_.Name -ne "Web Slice Gallery.url" -And $_.Name -ne "Suggested Sites.url" -And $_.Name -ne "ITABI.url" `
  17. -And $_.Name -notlike "*MSN*" -And $_.Name -notlike "*Windows*" -And $_.Name -notlike "*Microsoft*" -And $_.Name -notlike "*IE Add-on*"}
  18. "string" | Select-Object @{N='PC';E={$env:computername}}, @{N='User';E={$user}}, @{N='URL count';E={($favs | measure-object).count}}
  19. } else {
  20.  
  21. }
  22. }
  23. # ekspordime kogutud info csv-na välja
  24. if ($csv -ne $null) {
  25. $csv | export-csv "\\tlncm01\Inventuur$\favorites\$env:computername.csv" -UseCulture -NoTypeInformation
  26. Write-Output "CSV eksporditud"
  27. } else {
  28. Write-Output "Kasutajate favorites kaustad puuduvad v6i on tyhjad"
  29. }
  30. $ping_response = 1
  31.  
  32. }
  33. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement