diffrentiate desktops and laptops

is there anyway to query AD attributes to identify a list of devices which are laptops? I think there used to be an attribute around internal battery which may help. Any advise welcome.
LVL 4
pma111Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Cliff GaliherCommented:
This is not stored in any AD attribute that is auto-populated. You could manually create a custom attribute and set such variables yourself, but AD neither knows nor cares about whether a device is a laptop or desktop.
0
Hello ThereSystem AdministratorCommented:
Please refer to this EE question:
https://www.experts-exchange.com/questions/26177684/script-to-find-all-laptops-in-a-windows-domain.html

strContainer = "ou=workstations,dc=yourdomain,dc=local"
strReport = "ChassisTypeReport-" & ShortDateTime(Now) & ".csv"
 
On Error Resume Next
 
Set objChassisTypes = CreateObject("Scripting.Dictionary")
objChassisTypes.Add 1, "Other"
objChassisTypes.Add 2, "Unknown"
objChassisTypes.Add 3, "Desktop"
objChassisTypes.Add 4, "Low Profile Desktop"
objChassisTypes.Add 5, "Pizza Box"
objChassisTypes.Add 6, "Mini Tower"
objChassisTypes.Add 7, "Tower"
objChassisTypes.Add 8, "Portable"
objChassisTypes.Add 9, "Laptop"
objChassisTypes.Add 10, "Notebook"
objChassisTypes.Add 11, "Handheld"
objChassisTypes.Add 12, "Docking Station"
objChassisTypes.Add 13, "All-in-One"
objChassisTypes.Add 14, "Sub-Notebook"
objChassisTypes.Add 15, "Space Saving"
objChassisTypes.Add 16, "Lunch Box"
objChassisTypes.Add 17, "Main System Chassis"
objChassisTypes.Add 18, "Expansion Chassis"
objChassisTypes.Add 19, "Sub-Chassis"
objChassisTypes.Add 20, "Bus Expansion Chassis"
objChassisTypes.Add 21, "Peripheral Chassis"
objChassisTypes.Add 22, "Storage Chassis"
objChassisTypes.Add 23, "Rack Mount Chassis"
objChassisTypes.Add 24, "Sealed-Case PC"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReport = objFSO.CreateTextFile(strReport, True)
 
objReport.WriteLine "Computer,Online,Chassis Type(s)"
 
For Each strComputer In ADContainerArray(strContainer, "computer", "name", True)
    If PingCheck(strComputer, 1, 500) Then
        intLimit = 0
 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colChassis = objWMIService.ExecQuery _
            ("Select * from Win32_SystemEnclosure")
            
        For Each objChassis in colChassis
            For Each intType In objChassis.ChassisTypes
                ReDim Preserve arrTypes(intLimit)
                arrTypes(intLimit) = objChassisTypes.Item(intType)
                intLimit = intLimit + 1
            Next
            
            objReport.WriteLine strComputer & ",True," & Join(arrTypes, ";")
        Next
    Else
        objReport.WriteLine strComputer & ",False"
    End If
Next
 
objReport.Close
WScript.Echo "Query complete."
 
Function ShortDateTime(dtmTime)
    strYear = Year(dtmTime)
    strMonth = Right("0" & Month(dtmTime), 2)
    strDay = Right("0" & Day(dtmTime), 2)
    strHour = Right("0" & Hour(dtmTime), 2)
    strMinute = Right("0" & Minute(dtmTime), 2)
    strSecond = Right("0" & Second(dtmTime), 2)
    
    ShortDateTime = strYear & strMonth & strDay & "-" & strHour & strMinute & strSecond
End Function
 
Function ADContainerArray(strDN, strClass, strField, blnSubtree)
    'Performs an Active Directory query and returns the results
    '    to an array.
    'strDN: Distinguished name of the AD container to search under
    'strClass: Object class to search for, e.g. Computer or User
    'strField: Field to return, e.g. Name, distinguishedName, CN
    'blnSubtree: Set to True or False
    '    If True, performs a recursive query on child containers
    
    Const ADS_SCOPE_ONELEVEL = 1
    Const ADS_SCOPE_SUBTREE = 2
    intLimit = 0
    
    If blnSubtree Then
        intScope = ADS_SCOPE_SUBTREE
    Else
        intScope = ADS_SCOPE_ONELEVEL
    End If
    
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    
    Set objCommand.ActiveConnection = objConnection
    objCommand.CommandText = "SELECT " & strField & " FROM 'LDAP://" &_
        strDN & "' WHERE objectClass='" & strClass & "'"
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = intScope 
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    
    Do Until objRecordSet.EOF
        ReDim Preserve arrOutput(intLimit)
        arrOutput(intLimit) = objRecordSet.Fields(strField).Value
        intLimit = intLimit + 1
        objRecordSet.MoveNext
    Loop
    
    ADContainerArray = arrOutput
End Function
 
Function PingCheck(strTarget, strPings, intPause)
    Const ForReading = 1
    
    Set objShell = CreateObject("WScript.Shell")
    strTempDir = objShell.ExpandEnvironmentStrings("%temp%")
    strTempFile = strTempDir & "\script-" & strTarget & ".txt"
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    objShell.Run "%comspec% /c ping -n " & strPings & " -w 100 " & _
        strTarget & ">" & strTempFile, 0, True
        
    WScript.Sleep intPause
    
    objShell.Run "%comspec% /c ping -n " & strPings & " -w 100 " & _
        strTarget & ">>" & strTempFile, 0, True
    
    Set objTempFile = objFSO.OpenTextFile(strTempFile, ForReading)
    strOutput = objTempFile.ReadAll
    objTempFile.Close
    objFSO.DeleteFile strTempFile, True
 
    If InStr(strOutput, "bytes=32") > 0 Then
        PingCheck = True
    Else
        PingCheck = False
    End If
End Function

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Hello ThereSystem AdministratorCommented:
I Also found this MS tool:
Group Policy Inventory (GPInventory.exe)
https://www.microsoft.com/en-us/download/details.aspx?id=14126
0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

Cliff GaliherCommented:
Worth noting that both use WMI to query information from the device itself. That means the device must be on and reachable, and is NOT relying on an AD property as the OP requested.
0
McKnifeCommented:
Allow the question: what would you do with this information?
0
pma111Author Commented:
Its for cross refencing against a list of devices reporting bitlocker status to provide assurance all portable laptops have bitlocker fde applied.
0
McKnifeCommented:
All devices should be bitlocked, no matter if laptop or not. But well, use a startup script that queries battery presence and asks bitlocker if 100% encrypted. Code examples for battery checking will be googled in seconds.
0
David Johnson, CD, MVPOwnerCommented:
group policy wmi filtering will do this. AD by itself doesn't store this information
0
McKnifeCommented:
WMIC Path Win32_Battery | findstr Battery && manage-bde -status c: |findstr /c:"100,0" || echo unencrypted>\\server\share\%computername%.txt

Open in new window


If this line is executed as startup script, it will make the laptops drop a  text file named like the machine to a share if c: is not not 100% encrypted.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Windows OS

From novice to tech pro — start learning today.