Question : Manuscrit pour surveiller l'utilisateur ouvert une session. Si une personne différente trouvait alors l'email.

Bonjour,

Script pour surveiller l'utilisateur ouvert une session. Si une personne différente trouvait alors email.
I pour avoir un dossier de txt qui a le nom de machine et le nom d'utilisateur. au whome la machine est nom d'allotted.
Machine ; l'username

I veulent qu'un manuscrit balaye toutes les machines dans ce dossier de txt toutes les 4 heures. S'il y a une disparité puis envoyer.

powershell ou vbs script.

regards
Sharath
 class= de

Réponse : Manuscrit pour surveiller l'utilisateur ouvert une session. Si une personne différente trouvait alors l'email.

J'ai modifié le code comme en a été faite la demande.
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 :

Faible objFSO, objFile, strBuffer, arrUser, strCurrentUser
Sur le résumé d'erreur après
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
« Sur la prochaine ligne éditer le nom de fichier et le chemin »
Placer objFile = objFSO.OpenTextFile (« C:\eeTesting\sharath1.txt ")
Faire jusqu'à objFile.AtEndOfStream
	strBuffer = objFile.ReadLine
	l'arrUser = s'est dédoublé (strBuffer, « ; ")
        strCurrentUser = GetUserName (arrUser (0))
	Si arrUser <> de strCurrentUser (1) puis
		arrUser de SendMsg (0), strCurrentUser, arrUser (1)
	Finir si
Boucle
objFile.Close
objFile réglé = rien
Placer l'objFSO = rien
Sur l'erreur 0 Goto
WScript.Quit

Fonction GetUserName (strComputer)
	Faible objWMIService, colItems, objItem, arrTemp
	Sur le résumé d'erreur après
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	Placer l'objWMIService = le GetObject (« winmgmts : \ \ » et strComputer et « \ racine \ CIMV2 »)
	Placer les colItems = l'objWMIService.ExecQuery (« CHOISIR * À PARTIR de Win32_ComputerSystem », de « WQL », wbemFlagReturnImmediately + wbemFlagForwardOnly)
	Pour chaque objItem dans les colItems
      l'arrTemp = s'est dédoublé (objItem.UserName, « \ ")
      GetUserName = arrTemp (1)
	Après
	Placer l'objWMIService = rien
	Placer les colItems = rien
	Placer l'objItem = rien
    Sur l'erreur 0 Goto
Fonction de fin

SendMsg secondaire (strComputer, strUser, strOwner)
	Faible olkApp, olkMsg
	Placer l'olkApp = le GetObject (, « Outlook.Application »)
	Placer l'olkMsg = l'olkApp.CreateItem (0)
	Avec l'olkMsg
		« Sur la prochaine ligne éditer l'email address »
		. = « [email protected] »
		'Sur la prochaine ligne éditer le soumis "
		. Le sujet = « votre sujet va ici »
		« Sur la prochaine ligne éditer le texte de message comme désiré »
		. Le corps = « l'utilisateur » et strUser et « est ouvert une session à l'ordinateur » et au strComputer et « où en tant que lui est » et le strOwner et « 'machine de s. »
		. Envoyer
	Finir avec
	Placer l'olkMsg = rien
	Placer l'olkApp = rien
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us