Skibo187
asked on
change user account control
I need a script that reads from a txt file (set of names) that i can drag and drop into a script that will enable Smart Card required. Can somebody help me with this please.
Thanks in advance
Thanks in advance
Can you be a bit more descriptive to what you need you question is not very clear.
ASKER
mickinoz2005:
I have a group of people that I need to have Smart Card is required for interactive logon. checked off, and I dont want to go thru each account and do it manually.So, I was wondering if anybody had a VB script that can check off Smart Card required on active directory for people accounts. Also, is there a way to have a txt file with there names that i can drag into the script so it can read and make the changes for only those people accounts.
In other words, have a text file with peoples names whos accounts that need to be change. and drag it to the script so it can change Smart card logon.
Thanks again, hope this helps, let me know if you need any more input.
I have a group of people that I need to have Smart Card is required for interactive logon. checked off, and I dont want to go thru each account and do it manually.So, I was wondering if anybody had a VB script that can check off Smart Card required on active directory for people accounts. Also, is there a way to have a txt file with there names that i can drag into the script so it can read and make the changes for only those people accounts.
In other words, have a text file with peoples names whos accounts that need to be change. and drag it to the script so it can change Smart card logon.
Thanks again, hope this helps, let me know if you need any more input.
ASKER
Here is a script that i found in this forum,and i am trying to do the same thing, I have to change several accounts in different OU, But not all of the same people in the same OU need Smart Card. One thing This script still wont work.
https://www.experts-exchange.com/questions/22799803/Run-VBScript-on-Active-Directory-Users-which-names-begin-with-certain-defined-letters.html?sfQueryTermInfo=1+10+30+card+enabl+logon+script+smart
******************** Start Script ************************** ********** ********** ***
Const ADS_UF_SMARTCARD_REQUIRED = &h40000
Dim strFirstLetter ,strUName, intDo
'Change the first letter here
strFirstLetter = "M"
'Change the Domain name and OU here
Set objOU = GetObject _
("LDAP://ou=TestUsers,dc=T OP,dc=MIL" )
For Each objUser In objOU
strUName = objUser.Get("sn")
intDo = 0
intDo = Left(strUName,1)
If intDo = strFirstLetter then
intUAC = objUser.Get("userAccountCo ntrol")
If (intUAC AND ADS_UF_SMARTCARD_REQUIRED) = 0 Then
objUser.Put "userAccountControl", intUAC XOR ADS_UF_SMARTCARD_REQUIRED
objUser.SetInfo
End If
End If
Next
https://www.experts-exchange.com/questions/22799803/Run-VBScript-on-Active-Directory-Users-which-names-begin-with-certain-defined-letters.html?sfQueryTermInfo=1+10+30+card+enabl+logon+script+smart
******************** Start Script **************************
Const ADS_UF_SMARTCARD_REQUIRED = &h40000
Dim strFirstLetter ,strUName, intDo
'Change the first letter here
strFirstLetter = "M"
'Change the Domain name and OU here
Set objOU = GetObject _
("LDAP://ou=TestUsers,dc=T
For Each objUser In objOU
strUName = objUser.Get("sn")
intDo = 0
intDo = Left(strUName,1)
If intDo = strFirstLetter then
intUAC = objUser.Get("userAccountCo
If (intUAC AND ADS_UF_SMARTCARD_REQUIRED)
objUser.Put "userAccountControl", intUAC XOR ADS_UF_SMARTCARD_REQUIRED
objUser.SetInfo
End If
End If
Next
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Ok will try this in few hours, being really careful on this one...
ASKER
Daz,
Excellent it worked...Thank u Very Much.....
Excellent it worked...Thank u Very Much.....