Fråga : Disableanvändarekontot med VBS skrivar i aktivarkiv

Användarekontot ska inte uppsättningen för att inaktivera, när datera förfallas eller objSysInfoen för passed.

Dim, objUser, strwWWHomePagen, strUserDN, ppt, objSysInfoen för strMbox

Set = CreateObject (”ADSystemInfo”)
strUserDN = för objSysInfo.UserName
Set objUser = GetObject (”LDAP: /” &

' för strUserDN) möjliggöra meritförteckningen Next
' för felet för felhandling
On befaller först nollställer värdera av variabeln till ""
' understöder försök till uppsättningen det med värdera från AD
', om understödja missar variabeln som fortfarande ska, är fastställd till ""
strwWWHomePage = "": strwWWHomePagen = felet Goto 0

On för fel för Disable för
' för objUser.Get (”wWWHomePage”)/>dteCutOffDate = CDate (”18-Jul-2010”)

intDaysLeft = intDaysLeft för DateDiff (”D”, nu, dteCutOffDate)

If > 0 Then
'testar värdera i variable om strwWWHomePage- = "" Then
fastställd ppt = strMbox för CreateObject (”PowerPoint.Application”)
= MsgBox (”du har”, & intDaysLeft & ”dagar som avslutar denna ska ombudutbildning eller ditt konto, låsas. Klicka REKO för att starta ppt för
för Powerpointpresentationen”). Synligt = för spårning för True
ppt. Presentations.Open” \ \ serverxx- \ \ ppt.ppsx "
Else
objUser.AccountDisabled = True
objUser.SetInfo
wscript.quit
avslutar If
End If
 " klar "

Svar : Disableanvändarekontot med VBS skrivar i aktivarkiv

Därefter morgonen, efter snittet har daterat av, kör denna skrivar, och den ska läste texten sparar och inaktiverar kontona.

Hälsningar,

Råna.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Const som intForReading = 1
Const som intForAppending = 8
strDisableAccountsFile = ”\ \ serverxx \ spårning \ UsersToDisable.txt”,
strDisabledReportFile = ”\ \ serverxx \ spårning \ DisabledUsers.txt”,
Fastställd objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending som är riktig)
Fastställdt objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading som är riktig)
Stunder inte objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Om "" för klippning (strUserDN <> ) därefter
		Fastställd objUser = GetObject (”LDAP: /” & strUserDN)
		objUser.AccountDisabled = True
		objUser.SetInfo
		Fastställd objUser = ingenting
		objOutput.WriteLine-strUserDN
	Avsluta om
Wend
objFile.Close
objOutput.Close
Fastställdt objFile = ingenting
Fastställd objOutput = ingenting
Fastställdt objFile = objFSO.CreateTextFile (strDisableAccountsFile, riktigt)
objFile.Close
Fastställdt objFile = ingenting
MsgBox ”konton, som har varit rörelsehindrada har varit skriftlig”, & VbCrLf & strDisabledReportsFile & VbCrLf & ”och spara av användare till disalbe har görats klar” & strDisableAccountsFile
Andra lösningar  
 
programming4us programming4us