Vraag : Maak de Rekening van de Gebruiker met Manuscript VBS in Actieve Folder onbruikbaar

De gebruikersrekening zal niet plaatsen om onbruikbaar te maken wanneer de datum of objSysInfo passed.

Dim is verlopen, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Set = CreateObject („ADSystemInfo“)
strUserDN = objSysInfo.UserName
Set objUser = GetObject („LDAP: /“ & strUserDN)

' laat fouten handling
On Fout toe hervat Next
' de Eerste bevelterugstellen de waarde van de variabele aan/>' Tweede pogingen ""
' te plaatsen als de tweede de variabele nog zal geplaatst worden aan ""
strwWWHomePage = "" ontbreekt: strwWWHomePage = objUser.Get („wWWHomePage“)
' maakt fouten handling
On Fout Goto 0

dteCutOffDate onbruikbaar = CDate („18-juli-2010“)

intDaysLeft = („D“, nu, dteCutOffDate)/>If intDaysLeft > Then
'Test 0/>
als strwWWHomePage = "" Then
ppt = CreateObject („PowerPoint.Application“)
strMbox = MsgBox („plaatste u hebt“ & intDaysLeft & de „dagen om deze verplichte opleiding of uw rekening te voltooien zullen worden gesloten. Klik O.K. om de presentatie van PowerPoint“)
te beginnen ppt. Zichtbaar = True
ppt. Presentations.Open die“ \ \ serverxx \ \ ppt.ppsx "
Else
volgt objUser.AccountDisabled = het Eind If
End If
 van True
objUser.SetInfo
wscript.quit

Antwoord : Maak de Rekening van de Gebruiker met Manuscript VBS in Actieve Folder onbruikbaar

Dan, stelt de ochtend na de afgesneden datum, dit manuscript in werking, en het zal het tekstdossier lezen en zal de rekeningen onbruikbaar maken.

Achting,

Rob.
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:

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Const die = 1 intForReading
Const die = 8 intForAppending
strDisableAccountsFile = „\ \ die serverxx \ \ UsersToDisable.txt“ volgen
strDisabledReportFile = „\ \ die serverxx \ \ DisabledUsers.txt“ volgen
Reeks objOutput = objFSO.OpenTextFile (strDisabledReportFile, Waar intForAppending,)
Vastgestelde objFile = objFSO.OpenTextFile (strDisableAccountsFile, Waar intForReading,)
Terwijl niet objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Als Versiering (strUserDN) <> "" toen
		Reeks objUser = GetObject („LDAP: /“ & strUserDN)
		objUser.AccountDisabled = Waar
		objUser.SetInfo
		Reeks objUser = niets
		objOutput.WriteLine strUserDN
	Eind als
Wend
objFile.Close
objOutput.Close
Vastgestelde objFile = niets
Reeks objOutput = niets
Vastgestelde objFile = objFSO.CreateTextFile (strDisableAccountsFile, Waar)
objFile.Close
Vastgestelde objFile = niets
MsgBox „Rekeningen die onbruikbaar is gemaakt is geschreven aan“ & zijn VbCrLf & strDisabledReportsFile & VbCrLf & „en het dossier van gebruikers aan disalbe ontruimd“ & strDisableAccountsFile
Andere oplossingen  
 
programming4us programming4us