If Right(LCase(WScript.FullName), 11) = "wscript.exe" Then
      Set objShell = CreateObject("WScript.Shell")
      objShell.Run "cmd /k cscript """ & WScript.ScriptFullName & """", 1, False
      Set objShell = Nothing
      WScript.Quit
End If
 
strInputFile = "computers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
 
Set objInputFile = objFSO.OpenTextFile(strInputFile, intForReading, False)
 
While Not objInputFile.AtEndOfStream
	'strComputer = InputBox("Please enter the hostname of a computer to disable:", "Computer Account to Disable")
	strComputer = objInputFile.ReadLine
	
	strComputerADsPath = Get_LDAP_User_Properties("computer", "name", strComputer, "ADsPath")
	If InStr(strComputerADsPath, "LDAP://") > 0 Then
		' Alternate the commenting out of the below two lines to change between prompting
		' to disable, and automatically disabling accounts.
		strResponse = MsgBox("Are you sure you want to disable" & VbCrLf & strComputerADsPath, vbYesNo, "Disable Account?")
		'strResponse = vbYes
		If strResponse = vbYes Then
			strDescription = InputBox("Please enter the reason you want to disable " & strComputer & ":", "Reason for Disabling Account")
			Set objComputer = GetObject(strComputerADsPath)	
			objComputer.Description = strDescription
			objComputer.AccountDisabled = True
			objComputer.SetInfo
		Else
			WScript.Echo strComputer & " was not disabled.", vbOKOnly, "Disable Cancelled"
		End If
	Else
		WScript.Echo "Could not find " & strComputer
	End If
Wend
objInputFile.Close
Set objInputFile = Nothing
WScript.Echo "Done"
 
Function Get_LDAP_User_Properties(strObjectType, strSearchField, strObjectToGet, strCommaDelimProps)
      
      If InStr(strObjectToGet, "\") > 0 Then
            arrGroupBits = Split(strObjectToGet, "\")
            strDC = arrGroupBits(0)
            strDNSDomain = strDC & "/" & "DC=" & Replace(Mid(strDC, InStr(strDC, ".") + 1), ".", ",DC=")
            strObjectToGet = arrGroupBits(1)
      Else
            Set objRootDSE = GetObject("LDAP://RootDSE")
            strDNSDomain = objRootDSE.Get("defaultNamingContext")
      End If
 
      strDetails = ""
      strBase = "<LDAP://" & strDNSDomain & ">"
      ' Setup ADO objects.
      Set adoCommand = CreateObject("ADODB.Command")
      Set ADOConnection = CreateObject("ADODB.Connection")
      ADOConnection.Provider = "ADsDSOObject"
      ADOConnection.Open "Active Directory Provider"
      adoCommand.ActiveConnection = ADOConnection
 
 
      ' Filter on user objects.
      'strFilter = "(&(objectCategory=person)(objectClass=user))"
      strFilter = "(&(objectClass=" & strObjectType & ")(" & strSearchField & "=" & strObjectToGet & "))"
 
      ' Comma delimited list of attribute values to retrieve.
      strAttributes = strCommaDelimProps
      arrProperties = Split(strCommaDelimProps, ",")
 
      ' Construct the LDAP syntax query.
      strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
      adoCommand.CommandText = strQuery
      adoCommand.Properties("Page Size") = 100
      adoCommand.Properties("Timeout") = 30
      adoCommand.Properties("Cache Results") = False
 
      ' Run the query.
      Set adoRecordset = adoCommand.Execute
      ' Enumerate the resulting recordset.
      Do Until adoRecordset.EOF
          ' Retrieve values and display.
          For intCount = LBound(arrProperties) To UBound(arrProperties)
                If strDetails = "" Then
                      strDetails = adoRecordset.Fields(intCount).Value
                Else
                      strDetails = strDetails & vbCrLf & adoRecordset.Fields(intCount).Value
                End If
          Next
          ' Move to the next record in the recordset.
          adoRecordset.MoveNext
      Loop
 
      ' Clean up.
      adoRecordset.Close
      ADOConnection.Close
      Get_LDAP_User_Properties = strDetails
 
End Function