VBS: rendre vos utilisateurs autonomes (Quel est mon IP ?)

Petit script pour afficher les adresses IP V4 sur la machine :

set objShell = CreateObject( "WScript.Shell" )
set objScriptExec = objShell.Exec("ipconfig")

do while not objScriptExec.StdOut.AtEndOfStream
    strLine = objScriptExec.StdOut.ReadLine
    if (inStr(strLine, "IPv4")) then
        intPos = inStr(strLine, ":") + 1
        strIP = mid(strLine, intPos)
        strIPs = strIPs & vbNewLine & strIP
    end if
loop

msgbox strIPs

VBS: rendre vos utilisateurs autonomes (expiration du mot de passe, compte verrouillé)

Marre que vos utilisateurs ne sachent pas quand expire leur mot de passe windows sur le domaine ?
ou que leur compte soit verrouillé ou non.

Voici deux petits scripts en VBS qui iront chercher dans l'annuaire LDAP pour leur donner les informations.

Quand expire mon mot de passe.vbs

Const MIN_IN_DAY = 1440
Const SEC_IN_MIN = 60

On Error Resume Next
Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

intAge = Int(Now - objUser.PasswordLastChanged)

'INDIQUEZ LE NOM DE VOTRE DOMAINE sur la ligne ci-dessous
Set objDomain = GetObject("WinNT://DOMAINE")
intMaxPwdAgeSeconds = objDomain.Get("MaxPasswordAge")

intMaxPwdAgeSeconds=((intMaxPwdAgeSeconds/SEC_IN_MIN)/MIN_IN_DAY)
msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & "Votre mot de passe expire dans : " & intMaxPwdAgeSeconds-intAge & " jours" & vbCrLf & "Soit le : " & objUser.PasswordLastChanged + intMaxPwdAgeSeconds-intAge)

[Edit:17/05/18]changez la dernière ligne du script "quand expire mon mot de passe" par celle-ci:

msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & "Votre mot de passe expire dans : " & intMaxPwdAgeSeconds-intAge & " jours" & vbCrLf & "Soit le : " & Now + intMaxPwdAgeSeconds-intAge)

Mon compte est-il verrouillé.vbs

'On Error Resume Next
Dim objSysInfo, objUser, status
Set objSysInfo = CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    If objUser.IsAccountLocked = 0 Then
        status=("Votre compte n'est pas bloqué")
        Else
    status=("Votre compte est bloqué")
    End If



msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & status)

Set objUser = Nothing
Set NewPassword = Nothing

Wscript.Quit

Posé sur un serveur avec accès en lecture seul à tous les utilisateurs du domaine, et communiquez !!!!

Raspberry épisode 26 : version du GPIO

Bonjour

Parce que je n'arrive pas à refaire fonctionner mon Keypad en 4x4, je reviens aux bases.

Ci-joint un petit script qui permet de connaître la version du GPIO.
Parfait pour savoir si cela fonctionne bien.



python ./version_gpio.py

version_gpio.py
import RPi.GPIO as GPIO
print ("version de GPIO : " + GPIO.VERSION)