Uncategorized – Page 32 – ControllingTheInter.net

Alessandro Scarlatti – La Folia in D Minor Harmonic

So this was a piece that looked waaaayy more complicated then it is. So at first glance, it’s like Yikes! A lot of notes. So, Let’s take a look. First thing’s fist. “Moderato”, Play at Moderate speed, It seems this speed should feel pretty natural -The Wiki here seems to explain it to be at …

Continue reading “Alessandro Scarlatti – La Folia in D Minor Harmonic”

LANDesk and remote computer memory measured in Bytes.

So here in my environment, we use Intel’s LANDesk software to keep tabs of our asset management. One of the interesting things to find is that LANDesk at the DB level when running reports tend to report the amount of memory it has in bytes instead of Gigabytes, and doing a easy bytes / 1024 …

Continue reading “LANDesk and remote computer memory measured in Bytes.”

Integrating CommVault with VB.NET

Today I knocked out some Comvault code to integrate with our other automation here in our environment, I coded this out in VB.net to match it’s surrounding integrations.

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Xml
Public Module CommVault
    Private service As String = "http://FQDNofCommVault.Domain.Com:81/SearchSvc/CVWebService.svc/"
    Public Function CommVaultLogin() As String
        Dim user As String = "UserName"
        Dim pwd As String = "PasswordGoeshere"
        Dim token As String = GetSessionToken(user, pwd)
        If String.IsNullOrEmpty(token) Then
            Debug.WriteLine("Login Failed")
        Else
            Debug.WriteLine("Login Successful")
        End If
        CVRESTAPIGetClientSample(token)
    End Function
    Private Function GetSessionToken(ByVal userName As String, ByVal password As String) As String
        Dim token As String = String.Empty
        Dim loginService As String = service &amp; "Login"
        Dim pwd As Byte() = System.Text.Encoding.UTF8.GetBytes(password)
        Dim encodedPassword As String = Convert.ToBase64String(pwd, 0, pwd.Length, Base64FormattingOptions.None)
        Dim loginReq As String = String.Format("&lt;DM2ContentIndexing_CheckCredentialReq username=""{0}"" password=""{1}"" /&gt;", userName, encodedPassword)
        Dim resp As HttpWebResponse = SendRequest(loginService, "POST", Nothing, loginReq)
        If resp.StatusCode = HttpStatusCode.OK Then
            Dim xmlDoc As XmlDocument = New XmlDocument()
            xmlDoc.Load(resp.GetResponseStream())
            token = xmlDoc.SelectSingleNode("/DM2ContentIndexing_CheckCredentialResp/@token").Value
        Else
            Debug.WriteLine(String.Format("Login Failed. Status Code: {0}, Status Description: {1}", resp.StatusCode, resp.StatusDescription))
        End If
        Return token
    End Function
    Private Function SendRequest(ByVal serviceURL As String, ByVal httpMethod As String, ByVal token As String, ByVal requestBody As String) As HttpWebResponse
        Dim req As WebRequest = WebRequest.Create(serviceURL)
        req.Method = httpMethod
        req.ContentType = "application/xml; charset=utf-8"
        If Not String.IsNullOrEmpty(token) Then req.Headers.Add("Authtoken", token)
        If Not String.IsNullOrEmpty(requestBody) Then WriteRequest(req, requestBody)
        Return TryCast(req.GetResponse(), HttpWebResponse)
    End Function
    Public Sub CVRESTAPIGetClientSample(token As String)
        Dim clientPropService As String = service &amp; "client/" + CStr("1005") 'Some Random ID'
        Dim ClientResp As HttpWebResponse = SendRequest(clientPropService, "GET", token, Nothing)
        If ClientResp.StatusCode = HttpStatusCode.OK Then
            Dim xmlDoc As XmlDocument = New XmlDocument()
            xmlDoc.Load(ClientResp.GetResponseStream())
            Debug.WriteLine(String.Format("Client properties response: ", xmlDoc.InnerXml))
            Dim clientName As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/clientEntity/@clientName").Value
            Dim clientHostName As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/clientEntity/@hostName").Value
            Dim clientDescription As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/@clientDescription").Value
        Else
            Debug.WriteLine(String.Format("Get Client properties request Failed. Status Code: {0}, Status Description: {1}", ClientResp.StatusCode, ClientResp.StatusDescription))
        End If
    End Sub
    Private Sub WriteRequest(ByVal req As WebRequest, ByVal input As String)
        req.ContentLength = Encoding.UTF8.GetByteCount(input)
        Using stream As Stream = req.GetRequestStream()
            stream.Write(Encoding.UTF8.GetBytes(input), 0, Encoding.UTF8.GetByteCount(input))
        End Using
    End Sub
    Public Function CommvaultLoginDoesNotWork() As String
        Dim objHTTP = CreateObject("MSXML2.serverXMLHTTP")
        Dim strEnvelope = "{ ""domain"":"""", ""username"":""svc_User"", ""password"":""MyPassw0rdgoesHere"", ""commserver"":"""" }"
        Dim InfobloxUsername As String = Environment.GetEnvironmentVariable("CommVaultusername")
        If InfobloxUsername = "" Then
            Console.WriteLine("You do not have a username set, enter it now. If not Control+C, in the future use set CommVaultusername=[username]")
            Environment.SetEnvironmentVariable("CommVaultusername", Console.ReadLine.Trim)
            InfobloxUsername = Environment.GetEnvironmentVariable("CommVaultusername")
        End If
        Dim InfobloxPassword As String = Environment.GetEnvironmentVariable("CommVaultpassword")
        If InfobloxPassword = "" Then
            Console.WriteLine("You do not have a username set, enter it now. If not Control+C, in the future use set CommVaultpassword=[password]")
            Environment.SetEnvironmentVariable("CommVaultpassword", Console.ReadLine.Trim)
            InfobloxPassword = Environment.GetEnvironmentVariable("CommVaultpassword")
        End If
        objHTTP.SetOption(2, 13056)
        objHTTP.Open("POST", (service &amp; "Login"), False, InfobloxUsername, InfobloxPassword)
        objHTTP.setRequestHeader("Content-Type", "application/json; charset=utf-8")
        objHTTP.send(strEnvelope)
        Dim response As String = objHTTP.responseText
        Debug.WriteLine(response)
        If response.Contains("""Error"":") Then
            Console.WriteLine(response)
            Environment.Exit(-1)
        Else
            Return response
        End If
    End Function
End Module

Imports System.IO

Imports System.Net

Imports System.Text

Imports System.Xml

Public Module CommVault

Private service As String = "http://FQDNofCommVault.Domain.Com:81/SearchSvc/CVWebService.svc/"

Public Function CommVaultLogin() As String

Dim user As String = "UserName"

Dim pwd As String = "PasswordGoeshere"

Dim token As String = GetSessionToken(user, pwd)

If String.IsNullOrEmpty(token) Then

Debug.WriteLine("Login Failed")

Else

Debug.WriteLine("Login Successful")

End If

CVRESTAPIGetClientSample(token)

End Function

Private Function GetSessionToken(ByVal userName As String, ByVal password As String) As String

Dim token As String = String.Empty

Dim loginService As String = service & "Login"

Dim pwd As Byte() = System.Text.Encoding.UTF8.GetBytes(password)

Dim encodedPassword As String = Convert.ToBase64String(pwd, 0, pwd.Length, Base64FormattingOptions.None)

Dim loginReq As String = String.Format("<DM2ContentIndexing_CheckCredentialReq username=""{0}"" password=""{1}"" />", userName, encodedPassword)

Dim resp As HttpWebResponse = SendRequest(loginService, "POST", Nothing, loginReq)

If resp.StatusCode = HttpStatusCode.OK Then

Dim xmlDoc As XmlDocument = New XmlDocument()

xmlDoc.Load(resp.GetResponseStream())

token = xmlDoc.SelectSingleNode("/DM2ContentIndexing_CheckCredentialResp/@token").Value

Else

Debug.WriteLine(String.Format("Login Failed. Status Code: {0}, Status Description: {1}", resp.StatusCode, resp.StatusDescription))

End If

Return token

End Function

Private Function SendRequest(ByVal serviceURL As String, ByVal httpMethod As String, ByVal token As String, ByVal requestBody As String) As HttpWebResponse

Dim req As WebRequest = WebRequest.Create(serviceURL)

req.Method = httpMethod

req.ContentType = "application/xml; charset=utf-8"

If Not String.IsNullOrEmpty(token) Then req.Headers.Add("Authtoken", token)

If Not String.IsNullOrEmpty(requestBody) Then WriteRequest(req, requestBody)

Return TryCast(req.GetResponse(), HttpWebResponse)

End Function

Public Sub CVRESTAPIGetClientSample(token As String)

Dim clientPropService As String = service & "client/" + CStr("1005") 'Some Random ID'

Dim ClientResp As HttpWebResponse = SendRequest(clientPropService, "GET", token, Nothing)

If ClientResp.StatusCode = HttpStatusCode.OK Then

Dim xmlDoc As XmlDocument = New XmlDocument()

xmlDoc.Load(ClientResp.GetResponseStream())

Debug.WriteLine(String.Format("Client properties response: ", xmlDoc.InnerXml))

Dim clientName As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/clientEntity/@clientName").Value

Dim clientHostName As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/clientEntity/@hostName").Value

Dim clientDescription As String = xmlDoc.SelectSingleNode("/App_GetClientPropertiesResponse/clientProperties/client/@clientDescription").Value

Else

Debug.WriteLine(String.Format("Get Client properties request Failed. Status Code: {0}, Status Description: {1}", ClientResp.StatusCode, ClientResp.StatusDescription))

End If

End Sub

Private Sub WriteRequest(ByVal req As WebRequest, ByVal input As String)

req.ContentLength = Encoding.UTF8.GetByteCount(input)

Using stream As Stream = req.GetRequestStream()

stream.Write(Encoding.UTF8.GetBytes(input), 0, Encoding.UTF8.GetByteCount(input))

End Using

End Sub

Public Function CommvaultLoginDoesNotWork() As String

Dim objHTTP = CreateObject("MSXML2.serverXMLHTTP")

Dim strEnvelope = "{ ""domain"":"""", ""username"":""svc_User"", ""password"":""MyPassw0rdgoesHere"", ""commserver"":"""" }"

Dim InfobloxUsername As String = Environment.GetEnvironmentVariable("CommVaultusername")

If InfobloxUsername = "" Then

Console.WriteLine("You do not have a username set, enter it now. If not Control+C, in the future use set CommVaultusername=[username]")

Environment.SetEnvironmentVariable("CommVaultusername", Console.ReadLine.Trim)

InfobloxUsername = Environment.GetEnvironmentVariable("CommVaultusername")

End If

Dim InfobloxPassword As String = Environment.GetEnvironmentVariable("CommVaultpassword")

If InfobloxPassword = "" Then

Console.WriteLine("You do not have a username set, enter it now. If not Control+C, in the future use set CommVaultpassword=[password]")

Environment.SetEnvironmentVariable("CommVaultpassword", Console.ReadLine.Trim)

InfobloxPassword = Environment.GetEnvironmentVariable("CommVaultpassword")

End If

objHTTP.SetOption(2, 13056)

objHTTP.Open("POST", (service & "Login"), False, InfobloxUsername, InfobloxPassword)

objHTTP.setRequestHeader("Content-Type", "application/json; charset=utf-8")

objHTTP.send(strEnvelope)

Dim response As String = objHTTP.responseText

Debug.WriteLine(response)

If response.Contains("""Error"":") Then

Console.WriteLine(response)

Environment.Exit(-1)

Else

Return response

End If

End Function

End Module

Hearing on Appeal set on 09/15/2017

Well, this is good news. Sadly it took them 8 months to get it on the calendar! From talking with the clerk at the beginning it seems it’s pretty normal to take a full 12 months to have your appeal heard so maybe this was swift? If I get it overturned I wonder how that …

Continue reading “Hearing on Appeal set on 09/15/2017”

Group Policy and Computer's OU in DOTNET

So recent change in my environment. As some of you may be aware, Group Policy does not get applied to the Computer / Use OU natively built into ActiveDirectory. So I normally use this little GEM here to move computer’s into a low end testing OU until they are ready to move into prod.

    Private Function ServerCompliance() As Boolean
    Console.WriteLine(Now.ToString &amp; " " &amp; System.Reflection.MethodInfo.GetCurrentMethod().ToString)
    Try
        If IsNothing(ServersInActiveDirectory) Then
            Debug.WriteLine("Did not find any user accounts in AD")
            Return Nothing
        End If
        ChangeList &amp;= vbCrLf &amp; "--Server Admin Exceptions / Objects out of Place (NT,LX,VM)--" &amp; vbCrLf
        Dim DOM As New DirectoryEntry("WinNT://MyDomain.Com")
        For Each Result As SearchResult In ServersInActiveDirectory
            Dim Hostname As String = Result.Properties("samAccountName")(0).ToString.Replace("$", "")
            Try
                Dim DOMUSR As DirectoryEntry
                DOMUSR = DOM.Children.Find("admin_" &amp; Hostname, "group")
            Catch ex As FileNotFoundException
                Dim Secentry = New DirectoryEntry("LDAP://MyDomain.Com/OU=Server Admin Exceptions,OU=Security Groups,OU=IT Administration,DC=info,DC=sys")
                Secentry = Secentry.Children.Add("cn=admin_" &amp; Hostname.ToLower, "Group")
                Secentry.Properties("sAMAccountName").Value = "admin_" &amp; Hostname.ToLower
                Secentry.Properties("description").Value = "Special Admin group for this server."
                Secentry.CommitChanges()
            Catch ex As Exception
                ChangeList &amp;= ex.Message &amp; vbCrLf
            End Try
            If DoesServiceExist("EMSRC", Hostname) Then
                ChangeList &amp;= "EMSRC: FOUND" &amp; vbCrLf
            End If
            Try
                'Debug.WriteLine(Result.Path)
                'For Each MyKey In Result.Properties.PropertyNames
                'Debug.WriteLine(vbTab &amp; MyKey)
                'For Each MyKeyer In Result.Properties(MyKey)
                'Debug.WriteLine(vbTab &amp; vbTab &amp; MyKeyer.ToString)
                'Next
                'Next
                'Check for CN=Computers,DC=info,DC=sys
                If Result.Path.EndsWith("CN=Computers,DC=info,DC=sys") Then
                    ChangeList &amp;= Result.Properties("samAccountName")(0) &amp; vbCrLf
                    'Result.GetDirectoryEntry.MoveTo(New DirectoryEntry("LDAP://MyDomain.Com/OU=NoHBOCAdmin,OU=Tier 3,OU=Servers - WSUS Policy,DC=info,DC=sys"))
                    Result.GetDirectoryEntry.MoveTo(New DirectoryEntry("LDAP://MyDomain.Com/OU=Tier 3,OU=Servers,OU=Datacenter,DC=info,DC=sys"))
                End If
                If Result.Path.Contains("OU=Tier 1") Then
                    If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 1) Then
                        ChangeList &amp;= Result.Properties("samAccountName")(0) &amp; " Updated to Tier 1 in Datacenter Portal" &amp; vbCrLf
                    Else
                    End If
                End If
                If Result.Path.Contains("OU=Tier 2") Then
                    If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 2) Then
                        ChangeList &amp;= Result.Properties("samAccountName")(0) &amp; " Updated to Tier 1 in Datacenter Portal" &amp; vbCrLf
                    Else
                    End If
                End If
                If Result.Path.Contains("OU=Tier 3") Then
                    If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 3) Then
                        ChangeList &amp;= Result.Properties("samAccountName")(0) &amp; " Updated to Tier 1 in Datacenter Portal" &amp; vbCrLf
                    Else
                    End If
                End If
            Catch ex As Exception
                ChangeList &amp;= vbCrLf &amp; ex.Message &amp; vbCrLf
            End Try
            Try
                Select Case DetectOS(Hostname)
                    Case OS.Windows
                        If CheckIfAdminGroup(Hostname, "Administrators", "admin_" &amp; Hostname) = False Then
                            If AddADGroupToLocalServerGroup(Hostname, "admin_" &amp; Hostname) Then
                                ChangeList &amp;= "admin_" &amp; Hostname &amp; " added to " &amp; Hostname &amp; vbCrLf
                            Else
                                ChangeList &amp;= "FAILED: admin_" &amp; Hostname &amp; " added to " &amp; Hostname &amp; vbCrLf
                            End If
                        End If
                    Case Else
                        Continue For
                End Select
            Catch ex As Exception
                ChangeList &amp;= vbCrLf &amp; ex.Message &amp; vbCrLf
            End Try
            'For Each MyProp As PropertyValueCollection In Result.Properties
            'Debug.WriteLine(MyProp.PropertyName.ToString &amp; " - " &amp; MyProp.Value.ToString)
            'Next
        Next
        ChangeList &amp;= vbCrLf &amp; "--Servers with DHCP turned on--" &amp; vbCrLf
        For Each Result As SearchResult In ServersInActiveDirectory
            Dim Servername As String = Result.Properties("samAccountName")(0).ToString.Replace("$", "")
            If DetectOS(Servername) = OS.Windows Then
                GetDHCPNetworkFromServer(Servername)
            End If
        Next
    Catch ex As Exception
        EisenhowerErrorHandler.ErrorHandlerFunction(ex, False, True, False, {"LoadActiveDirectoryAccounts"})
        Return False
    End Try
    Return True
    'For Each MyProp As PropertyValueCollection In ThisUserObject.Properties
    'Debug.WriteLine(MyProp.PropertyName.ToString &amp; " - " &amp; MyProp.Value.ToString)
    'Next
End Function

Private Function ServerCompliance() As Boolean

Console.WriteLine(Now.ToString & " " & System.Reflection.MethodInfo.GetCurrentMethod().ToString)

Try

If IsNothing(ServersInActiveDirectory) Then

Debug.WriteLine("Did not find any user accounts in AD")

Return Nothing

End If

ChangeList &= vbCrLf & "--Server Admin Exceptions / Objects out of Place (NT,LX,VM)--" & vbCrLf

Dim DOM As New DirectoryEntry("WinNT://MyDomain.Com")

For Each Result As SearchResult In ServersInActiveDirectory

Dim Hostname As String = Result.Properties("samAccountName")(0).ToString.Replace("$", "")

Try

Dim DOMUSR As DirectoryEntry

DOMUSR = DOM.Children.Find("admin_" & Hostname, "group")

Catch ex As FileNotFoundException

Dim Secentry = New DirectoryEntry("LDAP://MyDomain.Com/OU=Server Admin Exceptions,OU=Security Groups,OU=IT Administration,DC=info,DC=sys")

Secentry = Secentry.Children.Add("cn=admin_" & Hostname.ToLower, "Group")

Secentry.Properties("sAMAccountName").Value = "admin_" & Hostname.ToLower

Secentry.Properties("description").Value = "Special Admin group for this server."

Secentry.CommitChanges()

Catch ex As Exception

ChangeList &= ex.Message & vbCrLf

End Try

If DoesServiceExist("EMSRC", Hostname) Then

ChangeList &= "EMSRC: FOUND" & vbCrLf

End If

Try

'Debug.WriteLine(Result.Path)

'For Each MyKey In Result.Properties.PropertyNames

'Debug.WriteLine(vbTab & MyKey)

'For Each MyKeyer In Result.Properties(MyKey)

'Debug.WriteLine(vbTab & vbTab & MyKeyer.ToString)

'Next

'Check for CN=Computers,DC=info,DC=sys

If Result.Path.EndsWith("CN=Computers,DC=info,DC=sys") Then

ChangeList &= Result.Properties("samAccountName")(0) & vbCrLf

'Result.GetDirectoryEntry.MoveTo(New DirectoryEntry("LDAP://MyDomain.Com/OU=NoHBOCAdmin,OU=Tier 3,OU=Servers - WSUS Policy,DC=info,DC=sys"))

Result.GetDirectoryEntry.MoveTo(New DirectoryEntry("LDAP://MyDomain.Com/OU=Tier 3,OU=Servers,OU=Datacenter,DC=info,DC=sys"))

End If

If Result.Path.Contains("OU=Tier 1") Then

If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 1) Then

ChangeList &= Result.Properties("samAccountName")(0) & " Updated to Tier 1 in Datacenter Portal" & vbCrLf

Else

End If

If Result.Path.Contains("OU=Tier 2") Then

If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 2) Then

ChangeList &= Result.Properties("samAccountName")(0) & " Updated to Tier 1 in Datacenter Portal" & vbCrLf

Else

End If

If Result.Path.Contains("OU=Tier 3") Then

If UpdateTierInDataCenter(Result.Properties("samAccountName")(0).ToString.Replace("$", ""), 3) Then

ChangeList &= Result.Properties("samAccountName")(0) & " Updated to Tier 1 in Datacenter Portal" & vbCrLf

Else

End If

Catch ex As Exception

ChangeList &= vbCrLf & ex.Message & vbCrLf

End Try

Try

Select Case DetectOS(Hostname)

Case OS.Windows

If CheckIfAdminGroup(Hostname, "Administrators", "admin_" & Hostname) = False Then

If AddADGroupToLocalServerGroup(Hostname, "admin_" & Hostname) Then

ChangeList &= "admin_" & Hostname & " added to " & Hostname & vbCrLf

Else

ChangeList &= "FAILED: admin_" & Hostname & " added to " & Hostname & vbCrLf

End If

Case Else

Continue For

End Select

Catch ex As Exception

ChangeList &= vbCrLf & ex.Message & vbCrLf

End Try

'For Each MyProp As PropertyValueCollection In Result.Properties

'Debug.WriteLine(MyProp.PropertyName.ToString & " - " & MyProp.Value.ToString)

'Next

ChangeList &= vbCrLf & "--Servers with DHCP turned on--" & vbCrLf

For Each Result As SearchResult In ServersInActiveDirectory

Dim Servername As String = Result.Properties("samAccountName")(0).ToString.Replace("$", "")

If DetectOS(Servername) = OS.Windows Then

GetDHCPNetworkFromServer(Servername)

End If

Catch ex As Exception

EisenhowerErrorHandler.ErrorHandlerFunction(ex, False, True, False, {"LoadActiveDirectoryAccounts"})

Return False

End Try

Return True

'For Each MyProp As PropertyValueCollection In ThisUserObject.Properties

'Debug.WriteLine(MyProp.PropertyName.ToString & " - " & MyProp.Value.ToString)

'Next

End Function