VBS script "Smartcard is required for interactive logon"

Ret linien:
Const LDAPDomain = "dc=Microsoft,dc=Com"
så den passer til dit domæne.

Resultatet af søgningen finder du i filen: SmartCard.txt


'Script Start *******
Const LDAPDomain = "dc=Microsoft,dc=Com"

const ADS_UF_SMARTCARD_REQUIRED = &h40000
Const ADS_SCOPE_SUBTREE = 2
Const ForReading = 1
Const ForAppending = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objUsersFound = objFSO.OpenTextFile ("SmartCard.txt", ForAppending, True)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "SELECT userAccountControl, samAccountName, Name FROM 'LDAP://" & LDAPDomain & "' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst


Do Until objRecordSet.EOF
  If (objRecordSet.Fields("userAccountControl").Value And ADS_UF_SMARTCARD_REQUIRED)=0 Then
    objUsersFound.WriteLine(objRecordSet.Fields("samAccountName").Value & "," & objRecordSet.Fields("Name").Value)
  End If
  objRecordSet.MoveNext
Loop

objUsersFound.Close

Wscript.Echo "Søgningen er slut"
'Script Slut ********

:-)

Tusen takk !! Det fungerte perfekt !