Besoin d'aide pour modifier un .vbs svp

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Besoin d'aide pour modifier un .vbs svp

kayasax

Bonjour,
je n'y conais absolument rien en vbs, par contre j'ai récupérer un petit script qui me plait bien (recupere la date de derniere connexion d'un utilisateur), mais je voudrais le modifier pour qu'il écrive le résultat dans un fichier au lieu qu'il m'ouvre une fenetre par utilisateur .
Si il y a une ame charitable de passage...
Merci

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile" )
For Each objItem in colItems
dtmWMIDate = objItem.LastLogon
strReturn = WMIDateStringToDate(dtmWMIDate)
Wscript.Echo "Name: " & objItem.Name & " Last Logon: " & strReturn

Next
Function WMIDateStringToDate(dtmWMIDate)
If Not IsNull(dtmWMIDate) Then
WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
& " " & Mid (dtmWMIDate, 9, 2) & ":" & _
Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _
13, 2))
End If
End Function

PS : ce script ne récupère que les accès sur un ordi, y a t'il moyens de récupére les accès pour tous les postes du domaine ?

Message édité par kayasax le 21-07-2004 à 13:18:16

Publicité

k2t

Code :

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile" )

Set FSys = CreateObject("Scripting.FileSystemObject" )
Set F = fso.CreateTextFile("c:\temp\", "STATS-LOGON.TXT", ForWriting, True)

Code :

For Each objItem in colItems
dtmWMIDate = objItem.LastLogon
strReturn = WMIDateStringToDate(dtmWMIDate)

F.Write "Name: " & objItem.Name & " Last Logon: " & strReturn

Code :

Next
Function WMIDateStringToDate(dtmWMIDate)
If Not IsNull(dtmWMIDate) Then
WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
& " " & Mid (dtmWMIDate, 9, 2) & ":" & _
Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _
13, 2))
End If
End Function

voila je t'ai rajouter du code en gras, ce sont les lignes qui te permetront d'insérer dans un fichier.

ca devrait fonctionner (a tester !!!).

bonne journee

kayasax

ok merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Besoin d'aide pour modifier un .vbs svp

Sujets relatifs
Besoin d'aide Vba lien entre excell et word	[javascript] modifier un pop up après ouverture
[SQL] cmt supprimer/modifier un enregistrement d'un table ?	[JSP] Aide pour projet de fin d'année
Aide sur InstallShield 2.0	[résolu] Aide pour webmaster debutant
L'aide automatique et la compilation	aide pour le flash
Besoin d'aide
Plus de sujets relatifs à : Besoin d'aide pour modifier un .vbs svp

Page générée en 0.023 secondes