vbs script

Index

» digital corner

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_168957940
Gegroet,

Momenteel ben ik bezig om een script te laten starten waarmee gebruikers 9 dagen van te voren worden gewaarschuwd dat hun wachtwoord verloopt. Het enige wat ze krijgen is een schermpje met een waarschuwing. Dit wordt d.m.v. een group policy uitgevoerd.

Helaas werkt het scriptje niet, ook al zet ik de dagen voor verloop van het wachtwoord op 50. Hebben jullie enig idee en zit er misschien een fout in de script?

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59		'==========================================
' Check for password expiring notification
'==========================================
' First, get the domain policy.
'==========================================
Dim oDomain
Dim oUser
Dim maxPwdAge
Dim numDays
Dim warningDays
warningDays = 9
   
Set LoginInfo = CreateObject("ADSystemInfo")  
Set objUser = GetObject("LDAP://" & LoginInfo.UserName & "")  
strDomainDN = UCase(LoginInfo.DomainDNSName) 
strUserDN = LoginInfo.UserName
'========================================
' Check if password is non-expiring.
'========================================
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
intUserAccountControl = objUser.Get("userAccountControl")
If intUserAccountControl And ADS_UF_DONT_EXPIRE_PASSWD Then
'WScript.Echo "The password does not expire."
Else

Set oDomain = GetObject("LDAP://" & strDomainDN)
Set maxPwdAge = oDomain.Get("maxPwdAge")
'========================================
' Calculate the number of days that are
' held in this value.
'========================================
numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _
maxPwdAge.LowPart) / CCur(-864000000000)
'WScript.Echo "Maximum Password Age: " & numDays

'========================================
' Determine the last time that the user
' changed his or her password.
'========================================
Set oUser = GetObject("LDAP://" & strUserDN)
'========================================
' Add the number of days to the last time
' the password was set.
'========================================
whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged)
fromDate = Date
daysLeft = DateDiff("d",fromDate,whenPasswordExpires)

'WScript.Echo "Password Last Changed: " & oUser.PasswordLastChanged
if (daysLeft < warningDays) and (daysLeft > -1) then
Msgbox "Je wachtwoord zal verlopen over " & daysLeft & " da(gen)" & " at " & whenPasswordExpires & chr(13) & chr(13) & "Druk op CTRL + ALT + DEL en kies voor 'Wachtwoord wijzigen'.", 0, "Waarschuwing voor verlopen wachtwoord"
End if
End if
'========================================
' Clean up.
'========================================
Set oUser = Nothing
Set maxPwdAge = Nothing
Set oDomain = Nothing

Alvast bedankt voor jullie antwoord(en). :)
Ô mon citoyens vous serez unis.
pi_168958261
Heb je al gekeken of de diverse aangeroepen waardes uit AD kloppen?
Al met een debugger gekeken of je wat kan vinden?
pi_168958305
Waarom gebruik je niet de daarvoor bestemde group policy?
" Prompt user to change password before expiration"
pi_168958495
quote:
0s.gif Op vrijdag 17 februari 2017 12:10 schreef 44rdbei het volgende:
Waarom gebruik je niet de daarvoor bestemde group policy?
" Prompt user to change password before expiration"
Werkt dit ook als de policy "Turn off all balloon notifications" aan staat?
Ô mon citoyens vous serez unis.
pi_168959442
quote:
0s.gif Op vrijdag 17 februari 2017 12:23 schreef HSG het volgende:

[..]

Werkt dit ook als de policy "Turn off all balloon notifications" aan staat?
Nee, dan ziet de user hem niet.
pi_168961009
quote:
0s.gif Op vrijdag 17 februari 2017 13:18 schreef 44rdbei het volgende:

[..]

Nee, dan ziet de user hem niet.
Heb jij dan ook enig idee wat er aan- en uitgezet moet worden om ervoor te zorgen dat mensen wel een notificatie krijgen dat hun wachtwoord verloopt maar geen ballonnen met onnodige informatie?
Ô mon citoyens vous serez unis.
pi_168961510
quote:
0s.gif Op vrijdag 17 februari 2017 14:42 schreef HSG het volgende:

[..]

Heb jij dan ook enig idee wat er aan- en uitgezet moet worden om ervoor te zorgen dat mensen wel een notificatie krijgen dat hun wachtwoord verloopt maar geen ballonnen met onnodige informatie?
Nee sorry, dat weet ik niet. Ik dacht dat ik een eenvoudiger oplossing voor je had maar helaas.
pi_168961818
quote:
0s.gif Op vrijdag 17 februari 2017 15:07 schreef 44rdbei het volgende:

[..]

Nee sorry, dat weet ik niet. Ik dacht dat ik een eenvoudiger oplossing voor je had maar helaas.
Geeft niks. :)
Ô mon citoyens vous serez unis.
  vrijdag 17 februari 2017 @ 16:00:56 #9
76108 bluuf
Powershell fan
pi_168962918
Ik zou ipv vbscript Powershell gebruiken. VBScript is deprecated volgens Microsoft.
Heb je dit script zelf gemaakt of gedownload?
actieve topics nieuwe topics
abonnement Unibet Coolblue
vbs script
Index

» digital corner

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')