New-Object | Scripting and security

Recuperar el password (SecureString) de los credenciales que se han importado de un fichero JSON con PowerShell

(4 votes, average: 5.00 out of 5)

$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json
$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)
Start-Process notepad -Credential $cred

#Extraer password de tipo SecureString
$BSTR = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($cred.Password)
$PlainPassword = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)
$PlainPassword

$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json

$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)

Start-Process notepad -Credential $cred

#Extraer password de tipo SecureString

$BSTR = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($cred.Password)

$PlainPassword = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)

$PlainPassword

Leer las noticias de un medio de comunicación mediante la voz del Sistema Operativo

(2 votes, average: 5.00 out of 5)

$sam = New-Object -comObject SAPI.SpVoice
[xml]$doc=Invoke-WebRequest 'https://rss.elconfidencial.com/espana/'
$doc.feed.entry.summary.'#cdata-section' | %{$sam.Speak($_)}

$sam = New-Object -comObject SAPI.SpVoice

[xml]$doc=Invoke-WebRequest 'https://rss.elconfidencial.com/espana/'

$doc.feed.entry.summary.'#cdata-section' | %{$sam.Speak($_)}

Utilizar credenciales en formato JSON que han sido exportados con Get-Credential y arrancar el programa Notepad en PowerShell

(1 votes, average: 5.00 out of 5)

$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json
$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)
Start-Process notepad -Credential $cred

$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json

$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)

Start-Process notepad -Credential $cred

Dibujar una recta en una imagen dentro de un formulario de PowerShell

(4 votes, average: 5.00 out of 5)

# Crear en Pen
$mypen = new-object Drawing.Pen red
$mypen.width = 5

# Crear el formulario
$form = New-Object Windows.Forms.Form
$form.Width = 580
$form.Height = 235
$formGraphics = $form.createGraphics()

# Añadir una imagen al formulario
$Image = [system.drawing.image]::FromFile("C:\Users\Desktop\bank.jpg")
$Form.BackgroundImage = $Image

# Dibujar una línea en la imagen del formulario
$form.add_paint({$formGraphics.DrawLine($mypen, 550, 170, 420, 185)})

$form.ShowDialog()

# Crear en Pen

$mypen = new-object Drawing.Pen red

$mypen.width = 5

# Crear el formulario

$form = New-Object Windows.Forms.Form

$form.Width = 580

$form.Height = 235

$formGraphics = $form.createGraphics()

# Añadir una imagen al formulario

$Image = [system.drawing.image]::FromFile("C:\Users\Desktop\bank.jpg")

$Form.BackgroundImage = $Image

# Dibujar una línea en la imagen del formulario

$form.add_paint({$formGraphics.DrawLine($mypen, 550, 170, 420, 185)})

$form.ShowDialog()

Crear un array (ArrayList) en PowerShell y añadir objetos

(6 votes, average: 5.00 out of 5)

# Crear una clase con dos propiedades: modelo y precio
class ClaseCoche
{ 
    [String]$modelo
    [Int]$precio
}

# Crear un ArrayList para añadir los objetos de la clase Coche
$coches = New-Object System.Collections.ArrayList

# Añadir 2 coches al ArrayList
for($i=0;$i -lt 2;$i=$i+1)
{
    # Crear objeto coche de la clase Coche
    $coche = New-Object -TypeName ClaseCoche
    
    $coche.modelo = Read-Host "Modelo del coche"
    $coche.precio = Read-Host "Precio del coche"
    [void]$coches.Add($coche)
}

# Mostrar el resultado del ArrayList con los objetos coches
$coches

# Crear una clase con dos propiedades: modelo y precio

class ClaseCoche

{

[String]$modelo

[Int]$precio

}

# Crear un ArrayList para añadir los objetos de la clase Coche

$coches = New-Object System.Collections.ArrayList

# Añadir 2 coches al ArrayList

for($i=0;$i -lt 2;$i=$i+1)

{

# Crear objeto coche de la clase Coche

$coche = New-Object -TypeName ClaseCoche

$coche.modelo = Read-Host "Modelo del coche"

$coche.precio = Read-Host "Precio del coche"

[void]$coches.Add($coche)

}

# Mostrar el resultado del ArrayList con los objetos coches

$coches

Ejecutar un script de PowerShell creando un Acceso directo

(1 votes, average: 5.00 out of 5)

# specify the path to your PowerShell script
$ScriptPath = "C:\test\test.ps1"

# create a lnk file
$shortcutPath = [System.IO.Path]::ChangeExtension($ScriptPath, "lnk")
$filename = [System.IO.Path]::GetFileName($ScriptPath)

# create a new shortcut
$shell = New-Object -ComObject WScript.Shell
$scut = $shell.CreateShortcut($shortcutPath)
# launch the script with powershell.exe:
$scut.TargetPath = "powershell.exe"
# skip profile scripts and enable execution policy for this one call
# IMPORTANT: specify only the script file name, not the complete path
$scut.Arguments = "-noprofile -executionpolicy bypass -file ""$filename"""
# IMPORTANT: leave the working directory empty. This way, the 
# shortcut uses relative paths 
$scut.WorkingDirectory = ""
# optinally specify a nice icon
$scut.IconLocation = "$env:windir\system32\shell32.dll,162"
# save shortcut file
$scut.Save()

# open shortcut file in File Explorer
explorer.exe "/select,$shortcutPath"

# specify the path to your PowerShell script

$ScriptPath = "C:\test\test.ps1"

# create a lnk file

$shortcutPath = [System.IO.Path]::ChangeExtension($ScriptPath, "lnk")

$filename = [System.IO.Path]::GetFileName($ScriptPath)

# create a new shortcut

$shell = New-Object -ComObject WScript.Shell

$scut = $shell.CreateShortcut($shortcutPath)

# launch the script with powershell.exe:

$scut.TargetPath = "powershell.exe"

# skip profile scripts and enable execution policy for this one call

# IMPORTANT: specify only the script file name, not the complete path

$scut.Arguments = "-noprofile -executionpolicy bypass -file ""$filename"""

# IMPORTANT: leave the working directory empty. This way, the

# shortcut uses relative paths

$scut.WorkingDirectory = ""

# optinally specify a nice icon

$scut.IconLocation = "$env:windir\system32\shell32.dll,162"

# save shortcut file

$scut.Save()

# open shortcut file in File Explorer

explorer.exe "/select,$shortcutPath"

FUENTE: https://community.idera.com/database-tools/powershell/powertips/b/tips/posts/launching-powershell-scripts-for-dummies

Abrir las categorías de una página web en WordPress que se listan mediante botones en un formulario de PowerShell

(1 votes, average: 5.00 out of 5)

$buttons_functionslist=@(
    $json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON
    $json.name
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
            if($json.name.indexof($this.Text))
            {
                start chrome $json.link[$json.name.indexof($this.Text)]
            }
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

$json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON

$json.name

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

$Form = New-Object System.Windows.Forms.Form

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

$thisbutton = New-Object System.Windows.Forms.Button

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

if($json.name.indexof($this.Text))

{

start chrome $json.link[$json.name.indexof($this.Text)]

}

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Ver mediante una lista de botones en un formulario de PowerShell las categorías de una página en WordPress

(2 votes, average: 5.00 out of 5)

$buttons_functionslist=@(
    $json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON
    $json.name
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
	        Write-Host $this.Text
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

$json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON

$json.name

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

$Form = New-Object System.Windows.Forms.Form

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

$thisbutton = New-Object System.Windows.Forms.Button

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

Write-Host $this.Text

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Insertar en una base de datos las noticias de una página web (crear la base de datos y la tabla)

(4 votes, average: 5.00 out of 5)

Crear la base de datos

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")
$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection
$ConnectionString = "server=" + "localhost" + ";port=3306;uid=" + "root" + ";pwd=" + "root"
$Connection.ConnectionString = $ConnectionString
$Connection.Open()

$Query = 'create database bbc'
$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)
$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)
$DataSet = New-Object System.Data.DataSet
$RecordCount = $dataAdapter.Fill($dataSet, "data")
$DataSet.Tables[0]

$Connection.Close()

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")

$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection

$ConnectionString = "server=" + "localhost" + ";port=3306;uid=" + "root" + ";pwd=" + "root"

$Connection.ConnectionString = $ConnectionString

$Connection.Open()

$Query = 'create database bbc'

$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)

$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)

$DataSet = New-Object System.Data.DataSet

$RecordCount = $dataAdapter.Fill($dataSet, "data")

$DataSet.Tables[0]

$Connection.Close()

Crear e insertar cada noticia en una tabla de la base de datos

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")
$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection
$ConnectionString = "server=" + "localhost" + ";port=3306;uid=" + "root" + ";pwd=" + "root" +  ";database="+"bbc"
$Connection.ConnectionString = $ConnectionString
$Connection.Open()

$Query = 'create table titulo(titulo varchar(500) primary key)'
$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)
$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)
$DataSet = New-Object System.Data.DataSet
$RecordCount = $dataAdapter.Fill($dataSet, "data")
$DataSet.Tables[0]

$url='https://www.bbc.com/news/'
$result = Invoke-WebRequest $url
$result.AllElements | Where Class -eq 'gs-c-promo-heading__title gel-pica-bold nw-o-link-split__text' | %{$_.innerText} | %{
$Query = "INSERT INTO titulo (titulo) values (""$_"")"
$Query
$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)
$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)
$DataSet = New-Object System.Data.DataSet
$RecordCount = $dataAdapter.Fill($dataSet, "data")
$DataSet.Tables[0]
}

$Connection.Close()

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")

$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection

$ConnectionString = "server=" + "localhost" + ";port=3306;uid=" + "root" + ";pwd=" + "root" + ";database="+"bbc"

$Connection.ConnectionString = $ConnectionString

$Connection.Open()

$Query = 'create table titulo(titulo varchar(500) primary key)'

$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)

$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)

$DataSet = New-Object System.Data.DataSet

$RecordCount = $dataAdapter.Fill($dataSet, "data")

$DataSet.Tables[0]

$url='https://www.bbc.com/news/'

$result = Invoke-WebRequest $url

$result.AllElements | Where Class -eq 'gs-c-promo-heading__title gel-pica-bold nw-o-link-split__text' | %{$_.innerText} | %{

$Query = "INSERT INTO titulo (titulo) values (""$_"")"

$Query

$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)

$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)

$DataSet = New-Object System.Data.DataSet

$RecordCount = $dataAdapter.Fill($dataSet, "data")

$DataSet.Tables[0]

}

$Connection.Close()

Realizado por Ignacio Barranquero

Añadir botones a un formulario en PowerShell de forma automática

(4 votes, average: 5.00 out of 5)

$buttons_functionslist=@(
	"Botón1",
	"Botón2",
	"Botón3"
	"Botón4"
	"Botón5"
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
	        Write-Host $this.Text
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

"Botón1",

"Botón2",

"Botón3"

"Botón4"

"Botón5"

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

$Form = New-Object System.Windows.Forms.Form

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

$thisbutton = New-Object System.Windows.Forms.Button

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

Write-Host $this.Text

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Older Posts