kmondesir

$allSystemSoftware = Get-ItemProperty HKLM:\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*

kmondesir

$allSystemSoftware = Get-ItemProperty HKLM:\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*

kmondesir

Sub HitHighLighter3()
    'Modified to include a count of all words found in the document.
    'Modified 24 May 2014 by Kino Mondesir
    Dim words() As Array, list As String, wholeDocument As Range, list as Dictionary, report As String, _
source As String, destination As String
    words = Split(InputBox("Word HitHighLighter", "Please enter each word separated by a comma") , ",")
    list = New Dictionary
     source =  Environ("UserProfile")  & "\" & "Documents" & "\" & "Input"
     destination = Environ("UserProfile")  & "\" & "Documents" & "\" & "Output"


kmondesir

{
	"Adds logic for logging": {
		"prefix": "log",
		"body": [
			"import logging as log",
			"severity = {",
			"\t\t\t\t\t\t'CRITICAL': 50,",
			"\t\t\t\t\t\t'ERROR': 40,",
			"\t\t\t\t\t\t'WARNING': 30,",
			"\t\t\t\t\t\t'INFO': 20,",

kmondesir

Set-ItemProperty -Path 'HKLM:\System\CurrentControlSet\Control\Terminal Server' -name "fDenyTSConnections" -value 0

kmondesir

[Environment]::SetEnvironmentVariable("Title","Value","Type")

# Type can be one of three values: User, Machine, Process

kmondesir

[bool](([System.Security.Principal.WindowsIdentity]::GetCurrent()).groups -match "S-1-5-32-544")

kmondesir

# Make sure to run the shell with administrator credentials

Set-ItemProperty -Path 'HKLM:\System\CurrentControlSet\Control\Terminal Server' -name "fDenyTSConnections" -value 0
Enable-NetFirewallRule -DisplayGroup "Remote Desktop"

kmondesir

# Run shell with admin credentials

Set-ItemProperty -Path 'HKLM:\System\CurrentControlSet\Control\Terminal Server' -name "fDenyTSConnections" -value 1
Disable-NetFirewallRule -DisplayGroup "Remote Desktop"

kmondesir

#Run shell with admin credentials

Enable-PSRemoting -Force -SkipNetworkProfileCheck