ICO wiki - User contributions [en]

Talk:PowerShell: Andres Kahk, Kasutaja-Sessioon.ps1

2012-01-30T14:43:46Z

Akahk:

Cool, päriselt. Kui sisendi-väljundi failist/faili ette saaks anda, siis oleks super.

Tegin väikse muudatuse, nüüd saab ka serverite nimekirja faili kaudu etteanda.

PowerShell: Andres Kahk, Kasutaja-Sessioon.ps1

2012-01-30T14:42:41Z

Akahk:

<source lang="powershell">
<#
.SYNOPSIS
Kasutaja-Sessioon.ps1
Annab kasutaja loetelu, valitud serverites
.DESCRIPTION
Otsib ette antud serveritest kõik kasutajad või etteantud kasutaja
ning lubab teostada valitud kasutajaga terminalsessiooni manipulatsiooni
(eeldusel et kasutaja on administraatori õigustega)
.PARAMETER UserName
Otsib nime või nimeosa järgi sobiva kasutaja
.PARAMETER AinultOtsi
Teostan ainult otsingu valitud kasutajaga, sessiooni tegevusi ei tehta
.PARAMETER ServerList
Serverite nimekiri kust kasutajat või kasutajaid otsida, vaikeväärtusena on skripti jooksutav arvuti.
.NOTES
File Name : Kasutaja-Sessioon.ps1
Author : Andres Kahk - akahk@itcollege.ee
Requires : PowerShell V2
Version : 0.4
.EXAMPLE
Psh> .\Kasutaja-Sessioon.ps1 -Username kasutaja -ServerList server1,server2
Psh> .\Kasutaja-Sessioon.ps1 -Username kasutaja -ServerList server1,server2 -AinultOtsi
Psh> .\Kasutaja-Sessioon.ps1 -Username kasutaja -ServerFile C:\serverlist.txt

#>

# Deklareerime parameetrid
param(
[string][parameter(Mandatory=$false,ValueFromPipelineByPropertyName=$true)]$UserName,
[switch]$AinultOtsi,
[string[]][parameter(Mandatory=$false,ValueFromPipelineByPropertyName=$true)]$ServerList=$ENV:COMPUTERNAME,
[string[]][parameter(Mandatory=$false,ValueFromPipelineByPropertyName=$true)]$ServerFile
)

# Puhastame akna muudetst teadetest
cls

#Kui antakse serverite list failina, siis ei kasuta parameetrit ServerList
if ($ServerFile)
{
$Servers = Get-Content $ServerFile
}
else
{
$Servers = $ServerList
}

# Algväärtustame mõned muutujad.
$Result = @()
$Errors = ""
$Users = @()
$Session = @()

# Loeme ServerListist ette antud parameetreid ning kogume kokku vajaliku kasutaja info edasiseks toimetuseks
foreach ($Server in $Servers)
{
Write-Host "Loen kasutajaid serverist $server..." -foregroundcolor red -BackgroundColor yellow
$Sessions = quser /server:$server
if ($Sessions -eq $null){$Errors += "Serveriga " + $Server + " ei saanud ühendust või seal polnud ühtegi kasutajat!`r`n"}
else
{
$i = 1
while ($i -le ($Sessions.count -1))
{
$TempResult = "" | Select Nr,Username,Computer,SessionId,State,IdleTime,LogonTime
$TempResult.Nr = $i
$TempResult.Username = $Sessions[$i].Substring(1,22).Trim()
$TempResult.Computer = $Server
$TempResult.SessionId = $Sessions[$i].Substring(42,4).Trim()
$TempResult.State = $Sessions[$i].Substring(46,12).Trim()
$TempResult.IdleTime = $Sessions[$i].Substring(58,7).Trim()
$TempResult.LogonTime = $Sessions[$i].Substring(65).Trim()
$Result += $TempResult
$i++
}
}
}

cls

#Ühenduse puudumise korral näitame viga, edasi küsime kasutaja nime, kui see pole antud, vajadusel filtreerime välja või näitame kõiki serveri kasutaja sessioone.
Write-Host $Errors -foregroundcolor red -BackgroundColor yellow
Write-Host "Sisestage otsitav kasutajanimi (tühjal väljal enterit vajutades kuvatakse kõik)" -foregroundcolor black -BackgroundColor green
if (!$UserName)
{
$UserName = read-host "Kasutajanimi"
}
elseif(!$UserName)
{
cls
$Users = @($Result)
$Users | where{$_.UserName -ne ""} | Sort-Object UserName | Format-Table -AutoSize
"Kokku " + $Result.Count + " sessiooni"
}

$Users = @($Result | where{$_.UserName -match $UserName})
if ($Users -eq $null)
{
cls
Write-Host "Kasutajanime, mis sisaldaks $UserName ei leitud!" -foregroundcolor red -BackgroundColor yellow
exit
}
else
{
cls
$Users | Sort-Object UserName | Format-Table -AutoSize

if ($AinultOtsi)
{
exit
}

#Küsime kasutaja infot kellega sessiooni manipulatsioone edasi teha
Write-Host $Errors -foregroundcolor red -BackgroundColor yellow
Write-Host "Sisestage kasutaja Nr kellega soovite toiminguid teostada!" -foregroundcolor black -BackgroundColor green
$SessionNr = Read-Host "Valik"
$Session = $Users[$SessionNr - 1]
if (!$Session)
{
Write-Host "Sellist kasutajat pole, katkestan" -foregroundcolor red -BackgroundColor yellow
exit
}

cls
$Session | Format-Table

write-host "Teha valitud kasutajale: Logoff (l), Disconnect (d), Sessiooni reset (r) või ära tee midagi (enter)" -foregroundcolor black -BackgroundColor green

$Task = Read-Host "Valik"
if ($Task -like "l"){$Param = "/server:`"" + $Session.Computer + "`"";logoff $Session.SessionId $Param /v}
elseif ($Task -like "d"){$Param = "/server:`"" + $Session.Computer + "`"";tsdiscon $Session.SessionId $Param /v}
elseif ($Task -like "r"){$Param = "/server:`"" + $Session.Computer + "`"";reset session $Session.SessionId $Param /v}
else {cls;"Tegevuse valik ei sobinud"}
}
</source>

Skriptimiskeeled: powershelli kodutööd 2011, sügis, kaugõpe

2012-01-19T10:00:56Z

Akahk:

==Jaan Igamees==
Lühike jutt, mida skript teeb... bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla.

[[PowerShell: Jaan Igamees, kavalskript]]

==Dmitri Šlõkov==
Skript otsib arvutist meediafailid. Käivitades skripti võtmega -stage x, otsitakse keelatud failid. Kõik tulemused kirjutakse tekstifaili.

[[PowerShell: Dmitri Šlõkov, kodutööskript]]

==Pavel Kodotšigov==
Skript loob AD kasutajaid antud csv-failist, lisab ettemääratud gruppi (kui vastavaid gruppe ei ole siis script loob neid)

[[PowerShell: Pavel Kodotšigov, CreateFromCSV.ps1]]

[[naidis.csv]]

==Margus Nairis==
Skript otsib Active Directory masinatest installitud programme ja 'vilistab' kui leiab parameetriga kaasa antud või torrenti nimelise.

[[PowerShell: Margus Nairis, AD-FindInstalledPrograms.ps1 ]]

==Karmen Kattai==
Skript võrdleb kohalikus arvutis installeeritud programmide nimekirja tekstifailis toodud programmide kontrollnimekirjaga.

[[PowerShell: Karmen Kattai, VõrdleNimekirju.ps1]]

==Andres Kõrvemaa==
Skript kontrollib kas etteantud hostidel on pordid lahti või suletud. Hostide ja portide nimekiri antakse tekstifailina ette.

[[PowerShell: Andres Kõrvemaa, testports.ps1]]

==Andres Kahk==
Skript otsib etteantud serveritest kasutaja sessioone ning lubab valitud kasutajaga
sessiooni lõpetada või luku panna.

[[PowerShell: Andres Kahk, Kasutaja-Sessioon.ps1 ]]

PowerShell: Andres Kahk, Kasutaja-Sessioon.ps1

2012-01-19T09:57:36Z

Akahk: Created page with '<source lang="powershell"> <# .SYNOPSIS Kasutaja-Sessioon.ps1 Annab kasutaja loetelu, valitud serverites .DESCRIPTION Otsib ette antud serveritest kõik kasutajad või etteant…'

<source lang="powershell">
<#
.SYNOPSIS
Kasutaja-Sessioon.ps1
Annab kasutaja loetelu, valitud serverites
.DESCRIPTION
Otsib ette antud serveritest kõik kasutajad või etteantud kasutaja
ning lubab teostada valitud kasutajaga terminalsessiooni manipulatsiooni
(eeldusel et kasutaja on administraatori õigustega)
.PARAMETER UserName
Otsib nime või nimeosa järgi sobiva kasutaja
.PARAMETER AinultOtsi
Teostan ainult otsingu valitud kasutajaga, sessiooni tegevusi ei tehta
.PARAMETER ServerList
Serverite nimekiri kust kasutajat või kasutajaid otsida, vaikeväärtusena on skripti jooksutav arvuti.
.NOTES
File Name : Kasutaja-Sessioon.ps1
Author : Andres Kahk - akahk@itcollege.ee
Requires : PowerShell V2
Version : 0.3
.EXAMPLE
Psh> .\Kasutaja-Sessioon.ps1 -Username kasutaja -ServerList server1,server2
Psh> .\Kasutaja-Sessioon.ps1 -Username kasutaja -ServerList server1,server2 -AinultOtsi

#>

# Deklareerime parameetrid
param(
[string][parameter(Mandatory=$false,ValueFromPipelineByPropertyName=$true)]$UserName,
[switch]$AinultOtsi,
[string[]][parameter(Mandatory=$false,ValueFromPipelineByPropertyName=$true)]$ServerList=$ENV:COMPUTERNAME
)

# Puhastame akna muudetst teadetest
cls

# Algväärtustame mõned muutujad.
$Result = @()
$Errors = ""
$Users = @()
$Session = @()

# Loeme ServerListist ette antud parameetreid ning kogume kokku vajaliku kasutaja info edasiseks toimetuseks
foreach ($Server in $ServerList)
{
Write-Host "Loen kasutajaid serverist $server..." -foregroundcolor red -BackgroundColor yellow
$Sessions = quser /server:$server
if ($Sessions -eq $null){$Errors += "Serveriga " + $Server + " ei saanud ühendust või seal polnud ühtegi kasutajat!`r`n"}
else
{
$i = 1
while ($i -le ($Sessions.count -1))
{
$TempResult = "" | Select Nr,Username,Computer,SessionId,State,IdleTime,LogonTime
$TempResult.Nr = $i
$TempResult.Username = $Sessions[$i].Substring(1,22).Trim()
$TempResult.Computer = $Server
$TempResult.SessionId = $Sessions[$i].Substring(42,4).Trim()
$TempResult.State = $Sessions[$i].Substring(46,12).Trim()
$TempResult.IdleTime = $Sessions[$i].Substring(58,7).Trim()
$TempResult.LogonTime = $Sessions[$i].Substring(65).Trim()
$Result += $TempResult
$i++
}
}
}

cls

#Ühenduse puudumise korral näitame viga, edasi küsime kasutaja nime, kui see pole antud, vajadusel filtreerime välja või näitame kõiki serveri kasutaja sessioone.
Write-Host $Errors -foregroundcolor red -BackgroundColor yellow
Write-Host "Sisestage otsitav kasutajanimi (tühjal väljal enterit vajutades kuvatakse kõik)" -foregroundcolor black -BackgroundColor green
if (!$UserName)
{
$UserName = read-host "Kasutajanimi"
}
elseif(!$UserName)
{
cls
$Users = @($Result)
$Users | where{$_.UserName -ne ""} | Sort-Object UserName | Format-Table -AutoSize
"Kokku " + $Result.Count + " sessiooni"
}

$Users = @($Result | where{$_.UserName -match $UserName})
if ($Users -eq $null)
{
cls
Write-Host "Kasutajanime, mis sisaldaks $UserName ei leitud!" -foregroundcolor red -BackgroundColor yellow
exit
}
else
{
cls
$Users | Sort-Object UserName | Format-Table -AutoSize

if ($AinultOtsi)
{
exit
}

#Küsime kasutaja infot kellega sessiooni manipulatsioone edasi teha
Write-Host $Errors -foregroundcolor red -BackgroundColor yellow
Write-Host "Sisestage kasutaja Nr kellega soovite toiminguid teostada!" -foregroundcolor black -BackgroundColor green
$SessionNr = Read-Host "Valik"
$Session = $Users[$SessionNr - 1]
if (!$Session)
{
Write-Host "Sellist kasutajat pole, katkestan" -foregroundcolor red -BackgroundColor yellow
exit
}

cls
$Session | Format-Table

write-host "Teha valitud kasutajale: Logoff (l), Disconnect (d), Sessiooni reset (r) või ära tee midagi (enter)" -foregroundcolor black -BackgroundColor green

$Task = Read-Host "Valik"
if ($Task -like "l"){$Param = "/server:`"" + $Session.Computer + "`"";logoff $Session.SessionId $Param /v}
elseif ($Task -like "d"){$Param = "/server:`"" + $Session.Computer + "`"";tsdiscon $Session.SessionId $Param /v}
elseif ($Task -like "r"){$Param = "/server:`"" + $Session.Computer + "`"";reset session $Session.SessionId $Param /v}
else {cls;"Tegevuse valik ei sobinud"}
}
</source>

Bash quests 2011

2011-10-16T13:16:39Z

Akahk: /* Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB */

=Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ning kui on siis väljastab teate ning seejärel failid mis on suuremad kui 50MB=

Lahendus : [[User:Akahk|Andres Kahk]]

Bash quests 2011

2011-10-16T13:13:08Z

Akahk:

=Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB=

Lahendus : [[User:Akahk|Andres Kahk]]

Bash quests 2011

2011-10-16T13:10:57Z

Akahk:

Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB

Lahendus : [[User:Akahk|Andres Kahk]]

Bash quests 2011

2011-10-16T13:10:13Z

Akahk:

=Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB

Lahendus : [[User:Akahk|Andres Kahk]]

Bash quests 2011

2011-10-16T13:09:42Z

Akahk:

Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB

Lahendus : [[User:Akahk|Andres Kahk]]

Bash quests 2011

2011-10-16T13:09:37Z

Akahk:

Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB

Lahendus : [[User:Akahk|Andres Kahk]]

User:Akahk

2011-10-16T13:08:54Z

Akahk:

<source lang="bash">

#!/bin/bash

FILE="$HOME/check_disk_$RANDOM"

check_file=$(echo "1" > $FILE)

if [ "$?" != "0" ]
then
echo "Ketas T2is"
find $HOME -size +50M
rm -f $FILE
fi
</source>

User:Akahk

2011-10-16T13:06:20Z

Akahk: Created page with '#!/bin/bash FILE="$HOME/check_disk_$RANDOM" check_file=$(echo "1" > $FILE) if [ "$?" != "0" ] then echo "Ketas T2is" find $HOME -size +50M rm -f $FILE fi'

#!/bin/bash

FILE="$HOME/check_disk_$RANDOM"

check_file=$(echo "1" > $FILE)

if [ "$?" != "0" ]
then
echo "Ketas T2is"
find $HOME -size +50M
rm -f $FILE
fi

Bash quests 2011

2011-10-16T13:05:11Z

Akahk:

Quest 1 - Luua skript mis kontrollib kas kasutaja ketas on täis ja väljastab teate ning seejärel failid mis on suuremad kui 50MB

Bash quests 2011

2011-10-16T13:03:36Z

Akahk: Created page with 'Quest 1'

Quest 1