Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Const ForAppending = 8 Const ForReading = 1 On Error Resume Next Set fso=CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("C:\pass_changed.txt") Set objNetwork = CreateObject("Wscript.Network") Set objFile=fso.OpenTextFile("C:\computers.txt", ForReading) Do Until objFile.atEndofStream strComputer = objFile.ReadLine Set objUser = GetObject("WinNT://" & strComputer & "/administrator") intPasswordAge = objUser.PasswordAge intPasswordAge = intPasswordAge * -1 dtmChangeDate = DateAdd("s", intPasswordAge, Now) objTextFile.WriteLine "Password for " & strComputer & " was last changed: " & dtmChangeDate Loop
|Modifying PowerShell to list home drives of disabled users ?||6||36|
|Vb script to restart the services||13||56|
|vb script to start the services is not working||4||18|
|update a button to have multiple words on it, and column with another background color||21||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!