PatrickMcDonald

psexec \\servername shutdown -t 0 -r -f

PatrickMcDonald

## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons.

# User-specific files
*.suo
*.user
*.sln.docstates

# Build results

PatrickMcDonald

' Enable
sublime.log_commands(True)

' Disable
sublime.log_commands(False)

PatrickMcDonald

WebRequest.DefaultWebProxy.Credentials = CredentialCache.DefaultNetworkCredentials;

PatrickMcDonald

ifconfig | grep "inet " | grep -v 127.0.0.1

PatrickMcDonald

(ns week1.core
  (:gen-class))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "Hello, World!"))

(defn sum-x
	"desc"

PatrickMcDonald

  <PropertyGroup>
    <_EnableCleanOnBuildForMvcViews Condition=" '$(_EnableCleanOnBuildForMvcViews)'=='' ">true</_EnableCleanOnBuildForMvcViews>
  </PropertyGroup>
  <Target Name="CleanupForBuildMvcViews" Condition=" '$(_EnableCleanOnBuildForMvcViews)'=='true' and '$(MVCBuildViews)'=='true' " BeforeTargets="MvcBuildViews">
    <ItemGroup>
      <_TempWebConfigToDelete Include="$(BaseIntermediateOutputPath)**\Package\**\*" />
      <_TempWebConfigToDelete Include="$(BaseIntermediateOutputPath)**\TransformWebConfig\**\*" />
      <_TempWebConfigToDelete Include="$(BaseIntermediateOutputPath)**\CSAutoParameterize\**\*" />
      <_TempWebConfigToDelete Include="$(BaseIntermediateOutputPath)**\TempPE\**\*" />
    </ItemGroup>

PatrickMcDonald

Import-Module ActiveDirectory

# List members of a group
Get-ADGroupMember "Domain Admins" -recursive | Select-Object name

# list group memberships for user
Get-ADPrincipalGroupMembership "username" | Select-Object name

PatrickMcDonald

let date year month day = new System.DateTime(year, month, day)

type DayOfWeek = | Monday | Tuesday | Wednesday | Thursday | Friday | Saturday | Sunday

exception DayOfWeekError

let dayOfWeek (date: System.DateTime) = 
    match date.DayOfWeek with
    | System.DayOfWeek.Monday -> Monday
    | System.DayOfWeek.Tuesday -> Tuesday

PatrickMcDonald

let combine ys xs =
    let zipi x = ys |> List.map (fun y -> (x, y))
    xs |> List.collect zipi