Visual Basic

Public Class Form1

    Dim listLocked As New List(Of Integer) 'Locked columns

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Add some columns
        ListView1.Columns.Add("Col 1")
        ListView1.Columns.Add("Col 2")
        ListView1.Columns.Add("Col 3")
        ListView1.Columns.Add("Col 4")

        'Add some test data
        Dim x As New ListViewItem
        x.Text = "1"
        x.SubItems.Add("2")
        x.SubItems.Add("3")
        x.SubItems.Add("4")
        ListView1.Items.Add(x)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim colIndex As Integer = 2
        ListView1.Columns(colIndex).Width = 0
        If Not listLocked.Contains(colIndex) Then listLocked.Add(colIndex)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim colIndex As Integer = 2
        ListView1.Columns(colIndex).Width = 25
        If listLocked.Contains(colIndex) Then listLocked.Remove(colIndex)
    End Sub


    Private Sub ListView1_ColumnWidthChanging(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnWidthChangingEventArgs) Handles ListView1.ColumnWidthChanging
        'Check column is not hidden
        If listLocked.Contains(e.ColumnIndex) Then
            e.Cancel = True
            e.NewWidth = 0
        End If

    End Sub
End Class

Imports System.Runtime.InteropServices
Namespace Controls
  Public Class ListView_FixColumns
    Inherits ListView
    Private _KolommenVrij(1024) As Boolean

    Public Const WM_NOTIFY As Integer = &H4E
    Public Const HDN_FIRST As Integer = 0 - 300
    Public Const HDN_BEGINTRACKA As Integer = HDN_FIRST - 6
    Public Const HDN_BEGINTRACKW As Integer = HDN_FIRST - 26
    <StructLayout(LayoutKind.Sequential)> Public Structure NMHDR
      Public hwndFrom As IntPtr
      Public idFrom As Integer
      Public code As Integer
    End Structure

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      If m.Msg = WM_NOTIFY Then
        Dim hdr As NMHDR = CType(m.GetLParam(GetType(NMHDR)), NMHDR)
        If hdr.code = HDN_BEGINTRACKA OrElse hdr.code = HDN_BEGINTRACKW OrElse hdr.code = HDN_DIVIDERDBLCLICKW Then
          Dim nmHeader As NMHEADER = CType(m.GetLParam(GetType(NMHEADER)), NMHEADER)
          If Not _FreeColumns(nmHeader.iItem) Then
            m.Result = New IntPtr(1)
            Exit Sub
          End If
        End If
      End If
      MyBase.WndProc(m)
    End Sub  
    Public Property AllowColumnResize(ByVal Column As Integer) As Boolean
      Get
        Return _KolommenVrij(Column)
      End Get
      Set(ByVal value As Boolean)
        _KolommenVrij(Column) = value
      End Set
    End Property
  End Class
End Namespace

On Error Resume Next

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D
Const ONE_HUNDRED_NANOSECOND    = .000000100
Const SECONDS_IN_DAY            = 86400

Set objADSystemInfo = CreateObject("ADSystemInfo")              ' LINE 8
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)   ' LINE 9

intUserAccountControl = objUser.Get("userAccountControl")
If intUserAccountControl And ADS_UF_DONT_EXPIRE_PASSWD Then
    WScript.Echo "The password does not expire."
    WScript.Quit
Else
    dtmValue = objUser.PasswordLastChanged
    If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
        WScript.Echo "The password has never been set."
        WScript.Quit
    Else
        intTimeInterval = Int(Now - dtmValue)
        WScript.Echo "The password was last set on " & _
          DateValue(dtmValue) & " at " & TimeValue(dtmValue)  & vbCrLf & _
          "The difference between when the password was last" & vbCrLf & _
          "set and today is " & intTimeInterval & " days"
    End If

    Set objDomain = GetObject("LDAP://" & objADSystemInfo.DomainDNSName)
    Set objMaxPwdAge = objDomain.Get("maxPwdAge")

    If objMaxPwdAge.LowPart = 0 Then
        WScript.Echo "The Maximum Password Age is set to 0 in the " & _
                     "domain. Therefore, the password does not expire."
        WScript.Quit
    Else
        dblMaxPwdNano = _
            Abs(objMaxPwdAge.HighPart * 2^32 + objMaxPwdAge.LowPart)
        dblMaxPwdSecs = dblMaxPwdNano * ONE_HUNDRED_NANOSECOND
        dblMaxPwdDays = Int(dblMaxPwdSecs / SECONDS_IN_DAY)
        WScript.Echo "Maximum password age is " & dblMaxPwdDays & " days"

        If intTimeInterval >= dblMaxPwdDays Then
            WScript.Echo "The password has expired."
        Else
            WScript.Echo "The password will expire on " & _
              DateValue(dtmValue + dblMaxPwdDays) & " (" & _
              Int((dtmValue + dblMaxPwdDays) - Now) & " days from today)."
        End If
    End If
End If