User:Metamm - Revision history

Metamm: /* POWERSHELL - kodutöö */

2011-05-30T08:10:48Z

POWERSHELL - kodutöö

← Older revision		Revision as of 11:10, 30 May 2011
Line 125:		Line 125:

	# Ekraani resolutsiooni andmete muutujatesse korjamine (Virtuaalmasinas ei tööta)		# Ekraani resolutsiooni andmete muutujatesse korjamine (Virtuaalmasinas ei tööta)
	#Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Width=$_.ScreenWidth}		Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Width=$_.ScreenWidth}
	#Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Height=$_.ScreenHeight}		Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Height=$_.ScreenHeight}

	# Loome uue bitmapi, viimased kaks nr määravad reso (Virtuaalmasina puhul)		# Loome uue bitmapi, viimased kaks nr määravad reso (Virtuaalmasina puhul)
	$bmp = new-object System.Drawing.Bitmap 1024,780		#$bmp = new-object System.Drawing.Bitmap 1024,780

	# Loome uue bitmapi, viimased kaks nr määravad reso		# Loome uue bitmapi, viimased kaks nr määravad reso
	#$bmp = new-object System.Drawing.Bitmap $Width,$Height		$bmp = new-object System.Drawing.Bitmap $Width,$Height

	# Valime kirjastiili, millega teks kirjutatakse		# Valime kirjastiili, millega teks kirjutatakse

Metamm: /* POWERSHELL - kodutöö */

2011-05-30T08:09:14Z

POWERSHELL - kodutöö

← Older revision		Revision as of 11:09, 30 May 2011
Line 92:		Line 92:
	#Koostaja: Meelis Tamm, A21, metamm@itcollege.ee		#Koostaja: Meelis Tamm, A21, metamm@itcollege.ee
	#Skript loob taustapildi, millele on kirjutatud arvuti nimi, kasutaja, kes on sisse logitud ja aruvti IP aadress		#Skript loob taustapildi, millele on kirjutatud arvuti nimi, kasutaja, kes on sisse logitud ja aruvti IP aadress

	#faili asukoht, kuhu loodav pilt salvestatakse		#faili asukoht, kuhu loodav pilt salvestatakse
	$filename = $ENV:USERPROFILE + "\taust.~~png~~"		$filename = $ENV:USERPROFILE + "\taust.bmp"

			#Eemaldame eelmise pildi, kui see on olemas
			if (test-path $filename) {Remove-Item "$filename"}

	#Funktsioon, mis määrab sisselogitud kasutaja desktopi registrivõtmes taustapildi asukohaks skripti loodud pildi		#Funktsioon, mis määrab sisselogitud kasutaja desktopi registrivõtmes taustapildi asukohaks skripti loodud pildi
	Function Set-WallPaper($Value)		Function Set-WallPaper($Value)
Line 102:		Line 105:
	rundll32.exe user32.dll, UpdatePerUserSystemParameters		rundll32.exe user32.dll, UpdatePerUserSystemParameters
	}		}

	# Arvuti nimi		# Arvuti nimi
	$PC=Get-Content Env:\COMPUTERNAME		$PC=Get-Content Env:\COMPUTERNAME

	# Kasutajanimi		# Kasutajanimi
	$USER=Get-Content Env:\USERNAME		$USER=Get-Content Env:\USERNAME

	# IP Aadress		# IP Aadress
	$IP=((ipconfig \| findstr [0-9].\.)[0]).Split()[-1]		$IP=((ipconfig \| findstr [0-9].\.)[0]).Split()[-1]

	Add-Type -AssemblyName System.Drawing		Add-Type -AssemblyName System.Drawing

	# Tekst, mida kirjutatakse pildile (mitu rida)		# Tekst, mida kirjutatakse pildile (mitu rida)
	$tekst = @"		$tekst = @"
Line 121:		Line 124:
	"@		"@

	# Loome uue bitmapi, viimased kaks nr määravad reso		# Ekraani resolutsiooni andmete muutujatesse korjamine (Virtuaalmasinas ei tööta)
			#Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Width=$_.ScreenWidth}
			#Get-WmiObject -Query "select * from Win32_DesktopMonitor" \| % {$Height=$_.ScreenHeight}

			# Loome uue bitmapi, viimased kaks nr määravad reso (Virtuaalmasina puhul)
	$bmp = new-object System.Drawing.Bitmap 1024,780		$bmp = new-object System.Drawing.Bitmap 1024,780

			# Loome uue bitmapi, viimased kaks nr määravad reso
			#$bmp = new-object System.Drawing.Bitmap $Width,$Height

	# Valime kirjastiili, millega teks kirjutatakse		# Valime kirjastiili, millega teks kirjutatakse
	$font = new-object System.Drawing.Font Consolas,24		$font = new-object System.Drawing.Font Consolas,24

	# Määrame taustapintsli värvi		# Määrame taustapintsli värvi
	$brushBg = [System.Drawing.Brushes]::Red		$brushBg = [System.Drawing.Brushes]::Red

	# Määrame kirjutamis pintsli värvi		# Määrame kirjutamis pintsli värvi
	$brushFg = [System.Drawing.Brushes]::White		$brushFg = [System.Drawing.Brushes]::White

	$graphics = [System.Drawing.Graphics]::FromImage($bmp)		$graphics = [System.Drawing.Graphics]::FromImage($bmp)
	$graphics.FillRectangle($brushBg,0,0,$bmp.Width,$bmp.Height)		$graphics.FillRectangle($brushBg,0,0,$bmp.Width,$bmp.Height)

	# Kirjutame teksti pildile		# Kirjutame teksti pildile
	$graphics.DrawString($tekst,$font,$brushFg,500,360)		$graphics.DrawString($tekst,$font,$brushFg,500,360)

	$graphics.Dispose()		$graphics.Dispose()

	# Salvestame pildi		# Salvestame pildi
	$bmp.Save($filename)		$bmp.Save($filename)

	# Uue tausta määramine		# Uue tausta määramine
	Set-WallPaper -value $filename		Set-WallPaper -value $filename

Metamm: /* POWERSHELL - kodutöö */

2011-05-29T11:26:01Z

POWERSHELL - kodutöö

← Older revision		Revision as of 14:26, 29 May 2011
Line 94:		Line 94:

	#faili asukoht, kuhu loodav pilt salvestatakse		#faili asukoht, kuhu loodav pilt salvestatakse
	$filename = $ENV:USERPROFILE + "taust.png"		$filename = $ENV:USERPROFILE + "\taust.png"

	#Funktsioon, mis määrab sisselogitud kasutaja desktopi registrivõtmes taustapildi asukohaks skripti loodud pildi		#Funktsioon, mis määrab sisselogitud kasutaja desktopi registrivõtmes taustapildi asukohaks skripti loodud pildi

Metamm: /* PYTHON - kodutöö */

2011-05-28T19:06:50Z

PYTHON - kodutöö

← Older revision		Revision as of 22:06, 28 May 2011
Line 153:		Line 153:
	#!/usr/bin/python		#!/usr/bin/python
	#-- coding: utf-8-		#-- coding: utf-8-
			#Autor: Meelis Tamm, A21
			#Skript kogub kasutaja kodukaustast kokku kõik .html lõpuga failid ühte html faili linkide näol

	import os		import os
	from os.path import join		from os.path import join

			#Avame html faili, kuhu linke koguma hakkame

	fh = open ('htmlkogu.html', 'w')		fh = open ('htmlkogu.html', 'w')
Line 168:		Line 172:
	fh.write("</head>\n")		fh.write("</head>\n")
	fh.write("<body>\n")		fh.write("<body>\n")

			#Käime läbi kõik kodukataloogis (ja alamates kaustades) olevad failid

	for root, dirs, files in os.walk('/home/'):		for root, dirs, files in os.walk('/home/'):
	for name in files:		for name in files:
	filename = os.path.join(root, name)		filename = os.path.join(root, name)
			#Kui leiame html faili, siis avame selle
	if filename.endswith('.html'):		if filename.endswith('.html'):
	fail = open (filename)		fail = open (filename)
	for rida in fail.readlines():		for rida in fail.readlines():
			#Võtame avatud html failist tiitli ja lisame selle lingina meie kogumik html faili
	if "<title>" in rida:		if "<title>" in rida:
	tiitel=rida.split('title')[1].split('>')[1].split('<')[0]		tiitel=rida.split('title')[1].split('>')[1].split('<')[0]
	fh.write('<a href="%s">%s</a><br />\n' %(filename, tiitel))		fh.write('<a href="%s">%s</a><br />\n' %(filename, tiitel))

			#Sulgeme avatud failid ja tag-id
	fail.close()		fail.close()
	fh.write("</body>\n")		fh.write("</body>\n")

Metamm at 18:59, 28 May 2011

2011-05-28T18:59:36Z

@@ Line 146: / Line 146: @@
 # Uue tausta määramine
 Set-WallPaper -value $filename
 </source>

Metamm: /* POWERSHELL - kodutöö */

2011-05-27T07:03:57Z

POWERSHELL - kodutöö

← Older revision		Revision as of 10:03, 27 May 2011
Line 90:		Line 90:

	<source lang="powershell">		<source lang="powershell">
	#~~Autor~~: Meelis Tamm, A21, metamm@itcollege.ee		#Koostaja: Meelis Tamm, A21, metamm@itcollege.ee
	#Skript loob taustapildi, millele on kirjutatud arvuti nimi, kasutaja, kes on sisse logitud ja aruvti IP aadress		#Skript loob taustapildi, millele on kirjutatud arvuti nimi, kasutaja, kes on sisse logitud ja aruvti IP aadress

Metamm at 20:15, 24 May 2011

2011-05-24T20:15:05Z

← Older revision		Revision as of 23:15, 24 May 2011
Line 90:		Line 90:

	<source lang="powershell">		<source lang="powershell">
			#Autor: Meelis Tamm, A21, metamm@itcollege.ee
			#Skript loob taustapildi, millele on kirjutatud arvuti nimi, kasutaja, kes on sisse logitud ja aruvti IP aadress

	#faili asukoht, kuhu loodav pilt salvestatakse		#faili asukoht, kuhu loodav pilt salvestatakse
	$filename = $ENV:USERPROFILE + "~~\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper~~.~~jpg~~"		$filename = $ENV:USERPROFILE + "taust.png"

			#Funktsioon, mis määrab sisselogitud kasutaja desktopi registrivõtmes taustapildi asukohaks skripti loodud pildi
	Function Set-WallPaper($Value)		Function Set-WallPaper($Value)
	{		{
Line 100:		Line 104:

	# Arvuti nimi		# Arvuti nimi

	$PC=Get-Content Env:\COMPUTERNAME		$PC=Get-Content Env:\COMPUTERNAME

Line 117:		Line 120:
	IP: $IP		IP: $IP
	"@		"@


	# Loome uue bitmapi, viimased kaks nr määravad reso		# Loome uue bitmapi, viimased kaks nr määravad reso
Line 139:		Line 141:
	$graphics.Dispose()		$graphics.Dispose()

	# Salvestame ~~vana~~ pildi ~~üle~~		# Salvestame pildi
	$bmp.Save($filename)		$bmp.Save($filename)

	~~#Invoke-Item $filename~~

	# Uue tausta määramine		# Uue tausta määramine
	Set-WallPaper -value $filename		Set-WallPaper -value $filename
	</source>		</source>

Metamm: /* Quest 3 - Op.Sys aine */

2011-05-24T20:09:34Z

Quest 3 - Op.Sys aine

@@ Line 1: / Line 1: @@
-=Quest 3 - Op.Sys aine=
+=BASH - Quest 3=
 <source lang="bash">
@@ Line 85: / Line 85: @@
 </source>

Metamm at 11:23, 16 May 2011

2011-05-16T11:23:32Z

← Older revision		Revision as of 14:23, 16 May 2011
Line 43:		Line 43:

	for i in $( echo "$RPM_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do		for i in $( echo "$RPM_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do
	~~echo "~~rpm -e $i"		rpm -e $i
	done		done

Line 70:		Line 70:

	for i in $( echo "$DPKG_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do		for i in $( echo "$DPKG_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do
	~~echo "~~apt-get remove linux-image-$i-generic -y"		apt-get remove linux-image-$i-generic -y
	done		done
	fi		fi

Metamm at 11:20, 16 May 2011

2011-05-16T11:20:29Z

← Older revision		Revision as of 14:20, 16 May 2011
Line 30:		Line 30:
	command -V rpm > /dev/null 2>&1		command -V rpm > /dev/null 2>&1
	if [ $? -eq 1 ]; then		if [ $? -eq 1 ]; then
	echo "rpm käsk ei ole shellile teada. Väljun"		echo "rpm käsk ei ole shellile teada, proovige dpkg-ga. Väljun"
	exit 1		exit 1
	#Kontrollime, kas kerneleid on juba 2 või vähem		#Kontrollime, kas kerneleid on juba 2 või vähem
	elif [ ~~$(echo "~~$(rpm -q kernel \| wc ~~-l) - 2" \| bc~~ -l) -le 2 ]; then		elif [ $(rpm -q kernel \| wc -l) -le 2 ]; then
	echo "Olemasolevaid kerneli versioone on juba 2 või vähem"		echo "Olemasolevaid kerneli versioone on juba 2 või vähem"
	exit 1		exit 1
Line 56:		Line 56:
	command -V dpkg > /dev/null 2>&1		command -V dpkg > /dev/null 2>&1
	if [ $? -eq 1 ]; then		if [ $? -eq 1 ]; then
	echo "dpkg käsk ei ole shellile teada. Väljun"		echo "dpkg käsk ei ole shellile teada, proovige rpm-iga. Väljun"
	exit 1		exit 1

	#Kontrollime, kas kerneleid on juba 2 või vähem		#Kontrollime, kas kerneleid on juba 2 või vähem
	~~DPKG_KERNEL_LIST=~~$(dpkg --list \| grep linux-image \| awk '{print $3}' \| cut -d"." -f4 --complement)		elif [ $(dpkg --list \| grep linux-image \| awk '{print $3}' \| cut -d"." -f4 --complement \| wc -l) -le 2 ]; then
	~~NR_TO_REMOVE=$(echo "$(echo "$DPKG_KERNEL_LIST"~~ \| wc ~~-l) - 2" \| bc -l)~~

	~~elif [ $(echo "$(echo "$DPKG_KERNEL_LIST" \| wc -l) - 2" \| bc~~ -l) -le 2 ]; then
	echo "Olemasolevaid kerneli versioone on juba 2 või vähem"		echo "Olemasolevaid kerneli versioone on juba 2 või vähem"
	exit 1		exit 1
Line 69:		Line 66:
	else		else
	echo "Kasutan dpkg eemaldust"		echo "Kasutan dpkg eemaldust"
			DPKG_KERNEL_LIST=$(dpkg --list \| grep linux-image \| awk '{print $3}' \| cut -d"." -f4 --complement)
			NR_TO_REMOVE=$(echo "$(echo "$DPKG_KERNEL_LIST" \| wc -l) - 2" \| bc -l)

	for i in $( echo "$DPKG_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do		for i in $( echo "$DPKG_KERNEL_LIST" \| head -$(echo $NR_TO_REMOVE) ); do