This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#one time setup. Run the folowing as admin answering Yes to the prompt | |
#Install-Module PSWindowsUpdate | |
$dt = [DateTime]::Now | |
$dt | |
$fl="C:\logs\patchserver-{0:M-d-yyyy}.log"-f $dt | |
$fl | |
get-service W3SVC| Stop-Service 4>&1 |Out-File $fl -Append | |
if ((Get-Service W3SVC).Status -eq "Running"){ | |
Write-Error "IIS still running. Run script again once stopped."4>&1 |Out-File $fl -Append |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Main | |
Dim input = {"12", "-643", "12.58", "12.5485758797457348957437", "$34,566,776", "C345a55t", "Cat"} | |
Dim results = input.Select(Function(i) New With { | |
.Input = i, | |
.Integer = GetInteger(i), | |
.Long = getlong(i), | |
.Single = GetSingle(i), | |
.Double = GetDouble(i), | |
.Decimal = GetDecimal(i), |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<Query Kind="VBProgram"> | |
<Reference><RuntimeDirectory>\Microsoft.VisualBasic.dll</Reference> | |
<Reference><RuntimeDirectory>\System.Net.Http.dll</Reference> | |
<Namespace>Microsoft.VisualBasic</Namespace> | |
<Namespace>System.Net.Http</Namespace> | |
<Namespace>System.Threading.Tasks</Namespace> | |
</Query> | |
Async Sub Main | |
Dim client As New HttpClient |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<Query Kind="Program"> | |
<Reference><ProgramFilesX86>\Reference Assemblies\Microsoft\WindowsPowerShell\3.0\System.Management.Automation.dll</Reference> | |
<Namespace>Microsoft.VisualBasic</Namespace> | |
<Namespace>System.Threading.Tasks</Namespace> | |
<Namespace>System.Management.Automation.Runspaces</Namespace> | |
<Namespace>System.Collections.ObjectModel</Namespace> | |
<Namespace>System.Management.Automation</Namespace> | |
</Query> | |
void Main() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<Query Kind="VBProgram"> | |
<NuGetReference>RestSharp</NuGetReference> | |
<Namespace>RestSharp</Namespace> | |
</Query> | |
Async Sub Main | |
Dim client As New RestClient("https://jsonplaceholder.typicode.com") | |
Dim req As New RestRequest("/todos/", method.GET) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<Query Kind="VBProgram"> | |
<Namespace>System.Security.Cryptography</Namespace> | |
</Query> | |
Sub Main | |
Dim numRange As Integer = Integer.Parse(Util.ReadLine("Enter how many random numbers you want", "1000000")) | |
Dim min As Integer = Integer.Parse(Util.ReadLine("Enter smallest number you want", "0")) | |
Dim max As Integer = Integer.Parse(Util.ReadLine("Enter largest number you want", "900")) | |
Dim msg As String = $"creating {numRange:n0} random numbers" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
City|State short|State full|County|City alias | |
Holtsville|NY|New York|SUFFOLK|Internal Revenue Service | |
Holtsville|NY|New York|SUFFOLK|Holtsville | |
Adjuntas|PR|Puerto Rico|ADJUNTAS|URB San Joaquin | |
Adjuntas|PR|Puerto Rico|ADJUNTAS|Jard De Adjuntas | |
Adjuntas|PR|Puerto Rico|ADJUNTAS|Colinas Del Gigante | |
Adjuntas|PR|Puerto Rico|ADJUNTAS|Adjuntas | |
Aguada|PR|Puerto Rico|AGUADA|Comunidad Las Flores | |
Aguada|PR|Puerto Rico|AGUADA|URB Isabel La Catolica | |
Aguada|PR|Puerto Rico|AGUADA|Alts De Aguada |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Imports EqCheck | |
Module Module1 | |
Sub Main() | |
Dim items As Tester() = { | |
New A, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Imports System.Runtime.CompilerServices | |
Module Extensions | |
<Extension> | |
Iterator Function Randomize(Of T)(items As IEnumerable(Of T)) As IEnumerable(Of T) | |
Dim indexes As List(Of Integer) = Enumerable.Range(0, items.Count).ToList | |
Dim rand As New Random | |
While indexes.Count > 0 | |
Dim tmp As Integer = rand.Next(0, indexes.Count) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'See http://mrbigglesworth79.blogspot.com/2011/05/oh-no-not-another-way-to-write-csv-file_02.html To where I got the code from | |
' and then I modified it | |
Imports System.Runtime.CompilerServices | |
Imports System.IO | |
Imports System.Text | |
Imports System.Linq.Expressions | |
Namespace Exporting | |
Module CSV |
NewerOlder