|
1) Create a text document
2) add the code below and save
3) rename the file password.vbs
double click the file
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
|
|
|
|
|
Dave,
You are right, it worked the same for me. Now, can I set a time in days to expire?
Thank You
|
|
|
|
|
You should be able to. You will just need to find the correct object name to set. You will also need to ensure that the underlying user has the correct security priviliges to do this.
e.g. if the user was already logged on and had no admin rights it would fail,if the system is performing this or an administrator ran the script it would work.
|
|
|
|
|
I will find the correct object and make it work.
You have been a GREAT help.
Thanks again...
|
|
|
|
|
Good morning and thank you for taking the time to read my post. My employer asked me to allow a user to use the left and right arrows to navigate a binding source with navigator. I used the following code:
Protected Overrides Function ProcessKeyPreview(ByRef m As System.Windows.Forms.Message) As Boolean
Select Case m.WParam.ToInt32()
Case 37
Me.DtRecordInfoBindingSource.MovePrevious()
Case 39
Me.DtRecordInfoBindingSource.MoveNext()
End Select
Return False
End Function
It works as expected, the only issue is that in addition to navigating records, the left and right arrow also move through the controls on the form until it reaches a combobox, in which case it navigates through the items in the combobox while navigating records. It not the end of the world, but it is a distraction and bad UI practice. Does anyone know how I can remove the control navigation function and leave only the record navigation?
Cheers ~EA
|
|
|
|
|
Hi,
Have your function return "true" to indicate that it has handled the key 
(Source for this answer is here[^])
I are Troll 
|
|
|
|
|
|
I am currently trying to make a 'folder organizer' using Visual Basic 2008,
but I have no idea on where to start.
Please give me a few ideas on which statement I need to use.
|
|
|
|
|
Taku Kawamoto wrote: Please give me a few ideas on which statement I need to use.
Have you tried Application.MakeFolderOrganizer() ?! 
But seriously, your question is a little vague. Can you supply in more detail what your are trying to do and have you tried anything yet? But going on your question try looking the File class; it provides lots of functionality for creating, moving, copy files and folders etc.
|
|
|
|
|
Application.MakeFolderOrganizer()? No I haven't, I'll go and have a look at it now.
I have been looking at OpenFileDialog(), but I realised that all it does it open files,and I cannot specify the location.
Sorry it's vague; I'm not too sure on the technical terms for VB yet...
I want this application so that I can specify a folder (eg. downloads) then in that folder,
I can sort out all the files inside it into different folders (eg. .exe in 'application' folder, .doc into 'word' folder).
If it's possible I want to make it so that I can manually change how the application sorts out the files, ie. names, size, etc.
|
|
|
|
|
Taku Kawamoto wrote: I want this application so that I can specify a folder (eg. downloads) then in that folder,
I can sort out all the files inside it into different folders (eg. .exe in 'application' folder, .doc into 'word' folder).
If it's possible I want to make it so that I can manually change how the application sorts out the files, ie. names, size, etc.
That's a description that we can work with! Sometimes it's hard to determine what someone wants to achieve.
Anyway, you'd probably be interested in the System.IO.Directory[^] class, especially in the GetFiles and GetDirectories methods. You'd loop through the files, and use the classes in System.IO to organize them.
I are Troll
|
|
|
|
|
Okey, I will have a look at it.
Thanks for the advise.
|
|
|
|
|
You're welcome
You have picked this subject to get hands-on experience with the language? What books are you using?
I are Troll
|
|
|
|
|
Yeah I finished reading and going through Visual Studio 2008 Step by Step, which was long and boring...
So I decided it would be better if I actually code from scratch.
Although I will have to ask people like this, go through help, etc, at least I would understand it after I have finished.
|
|
|
|
|
Taku Kawamoto wrote: Yeah I finished reading and going through Visual Studio 2008 Step by Step, which was long and boring...
Every book it's audience, some people do better if faced with some tutorials and a decent reference-manual. Best would be to get multiple books on VB.NET. You can find lots of interesting resources here[^] 
Taku Kawamoto wrote: So I decided it would be better if I actually code from scratch.
Although I will have to ask people like this, go through help, etc, at least I would understand it after I have finished.
Good attitude 
I are Troll 
|
|
|
|
|
Sorry for the delayed reply but I was tavelling home from work. I see that you have some good advice now from other people, so I hope your project goes well. And forget about the Application.MakeFolderOrganizer() method, it's not going to help you in this case 
|
|
|
|
|
First off, you say you are new to VB08, are you new to vb in general?
If so, start with the basics, like forms and texts and all the standard controls to become familiar, then start moving into folder/file operations.
|
|
|
|
|
I have been through the 'Visual Studio 2008 Step by Step' book, but I am still new to VB in general.
Sorry, what do you mean by the basics? ie. forms, texts.
And also, would you be able to tell me what kind of application is possible to make using forms, texts.
|
|
|
|
|
Doesn't it sound like you have, going by your response to Jay.
If you had been through it you would know that the majority of desktop applications are built around Forms (i.e. the gui that the user sees).
Have you considered knitting as a career path instead?
modified on Tuesday, February 2, 2010 1:03 PM
|
|
|
|
|
Knitting? I don't think from the A levels I do knitting is a choice really...
|
|
|
|
|
Ok........i was joking.
VB is just a blank canvas...you can do virtually anything you want.
You need to start by understanding all the basics, forms manipulation (the things the user interacts with), basic controls, list boxes, treeviews, labels, text boxes, menus etc.
You then can start understanding more of the available classes and methods that are part of the .net framework. They provide things like, file operations, database operations, graphics etc etc.
Then you just need to piece it all together to do want you want your application to achieve.
|
|
|
|
|
I understand that VB uses B as the language and the Visual is the GUI side of the application making.
Could you tell me, to understand the basics more, which books, sites, would you recommend me to read?
|
|
|
|
|
I would suggest that you look at the How-To videos on the MSDN[^] website. These are great walkthroughs on some key areas of the .net framework/VB
Books wise, i have mainly used the various subject area books available from Wrox[^], but there is loads of stuff for free on the Net.
Don't forget all the articles that are available off of this site, the guys on CP really know their onions and produce some great stuff. There hard work and effort is really appreciated by the CP community.
|
|
|
|
|
Okey I'll have a look at it.
Thanks for the advise!!
|
|
|
|
|
I think you need a 2-step approach just to learn the language.
1. Basic Step: From the book "Microsoft Visual Basic 2008 Step By Step" by Michael Halvorson. This is just to get your feet wet with Visual Basic .Net.
2. Advanced: From any of Francesco Balena's books on Visual Basic. This will build on the knowledge already learnt.
Remember: This is not an instant solution. You need to build knowledge slowly and steadily. Allot time to recollect and ruminate.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
