Calculate Network Address

Posted on by

Here is a little console application I created that can take an ip and subnet mask and give you the network address.  

Module Module1

    Sub Main()
        Console.WriteLine("Enter the IP address")
        Dim sIP As String = Console.ReadLine()
        Console.WriteLine("Enter Subnet Mask")
        Dim sSubnetMask As String = Console.ReadLine()
        Dim ip() As String = sIP.Split(".")
        Dim subnetmask() As String = sSubnetMask.Split(".")
        Console.WriteLine("The network address is:")
        For i As Integer = 0 To 3
            If i > 0 Then
                Console.Write(".")
            End If
            Console.Write(ip(i) and subnetmask(i))
        Next
        Console.WriteLine("")
        Console.ReadLine()
    End Sub

End Module

EDIT: I was really not thinking clearly when I wrote the original.  Thanks to TheMoof for pointing this out.

Copy Group Membership From One User To Another

Posted on by

I couldn’t find an easy quick way to do this so I took an old powershell script I found and modified it to work in Windows 2008 R2 and later environments.

   1: import-module ActiveDirectory
   2: cls 
   3: write-output "This script adds the destination user to all the Groups which the source user is memberof." 
   4: write-output " " 
   5: write-output " " 
   6: $SName = Read-Host "Please Enter the alias name of the source user " 
   7: $DName = Read-Host "Please Enter the alias name of the Destination user " 
   8:  
   9: $K = Get-ADUser -Identity $SName -Properties memberOf
  10: foreach($group in $K.memberof)  
  11: {  
  12: Add-ADGroupMember -Identity $group -Member $DName 
  13: write-output $group 
  14: }  
  15: 

List of years in SQL Server

Posted on by

Here is a CTE from my friend Phil that returns a list of years in an efficient manner. Good reference.

/*Return a list of years since 2009*/

WITH    yearlist
      AS ( SELECT   2009 AS year
           UNION ALL
           SELECT   yl.year + 1 AS year
           FROM     yearlist yl
           WHERE    yl.year + 1 <= YEAR(GETDATE())
         )
SELECT  year
FROM    yearlist
ORDER BY year DESC;

Universe Sandbox

Posted on by

I bought this “game” on Steam for like 3 bucks. It’s called Universe Sandbox. Basically it’s a simulator. Aside from allowing you to watch all the orbits, zoom in/out etc, you can mess around with stuff. Here I added a ton of extra Jupiters to the vicinity of Earth’s orbit

clip_image001

They soon throw earth out of its orbit

clip_image002

What if all the small planets orbited earth

clip_image003

Screw up Saturn’s rings by adding Earth as a moon

clip_image004

clip_image005

clip_image006

Crash some galaxies together

clip_image007

clip_image008

Simulation to show how close Apophis will pass to the Earth

clip_image009

The La Grange points:

clip_image010

A very large star compared to our star:

clip_image011

Very cool.