Microsoft
Software
Hardware
Network
Question : VBS Count Down Date Script that will Lock User AD Account
I need to add the code that will count down the date from one or two weeks in the MsgBox then lock the user AD account when the date expires.
Dim objSysInfo ,objUser ,strwWWHomePage,strUserDN,
ppt, strMbox
Set objSysInfo = CreateObject("ADSystemInfo
")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
' Enable error handling
On Error Resume Next
' First command resets the value of the variable to ""
' Second attempts to set it with the value form AD
' If the second fails the variable will still be set to ""
strwWWHomePage = "" : strwWWHomePage = objUser.Get("wWWHomePage")
' Disable error handling
On Error Goto 0
' Test the value in the variable
If strwWWHomePage = "" Then
Set ppt = CreateObject("PowerPoint.A
pplication
")
strMbox = MsgBox("You have X days to complete this mandatory training or your account will be locked. Click OK to start PowerPoint presentation")
ppt.Visible = True
ppt.Presentations.Open "\\serverxx\tracking\ppt.p
psx"
Else
wscript.quit
End If
Answer : VBS Count Down Date Script that will Lock User AD Account
Someone has changed the ownership of the file so that it doesn't belong to you anymore. You need one of the admins with 'root' privileges to change it back.
Random Solutions
Windows XP Taskbar won't auto-hide
GPO Assign Application reinstall
SCCM Scan agent fails with Scan Failed for ToolUniqueID with error 0x80070005
Serialization in MFC
How Can I Turn Off the Record Selector Bar on an Inserted SubForm?
When I encrypt/encode a string using codeigniter encryption class, it is different everytime, why?
Delphi 6 not recompiling .pas files
datagrid question
jQuery: Add div at beginning of other div
installing a UCC certificate with local domains for Exchange 2010 - how does the certificate authority approve them?