Cuestión : Escritura para supervisar al usuario abierto una sesión. Si una diversa persona encontró entonces el email.

Hola,

Script para supervisar al usuario abierto una sesión. Si una diversa persona encontró entonces email.
I para tener un archivo del txt que tiene el nombre de la máquina y el nombre de usuario. al whome la máquina es nombre de allotted.
Machine; el username

I quisiera que una escritura explorara todas las máquinas en este archivo del txt cada 4 horas. Si hay una unión mal hecha entonces enviar por correo electrónico.

powershell o vbs script.

regards
Sharath
 class= del

Respuesta : Escritura para supervisar al usuario abierto una sesión. Si una diversa persona encontró entonces el email.

He modificado el código por requerimiento.
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:

objFSO dévil, objFile, strBuffer, arrUser, strCurrentUser
En curriculum vitae del error después
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
“En la línea siguiente corregir el nombre de fichero y la trayectoria”
Fijar objFile = objFSO.OpenTextFile (“C:\eeTesting\sharath1.txt ")
Hacer hasta objFile.AtEndOfStream
	strBuffer = objFile.ReadLine
	el arrUser = partió (strBuffer, “; ")
        strCurrentUser = GetUserName (arrUser (0))
	Si arrUser <> del strCurrentUser (1) entonces
		arrUser de SendMsg (0), strCurrentUser, arrUser (1)
	Terminar si
Lazo
objFile.Close
objFile determinado = nada
Fijar el objFSO = nada
En el error 0 indicado
WScript.Quit

Función GetUserName (strComputer)
	objWMIService dévil, colItems, objItem, arrTemp
	En curriculum vitae del error después
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	Fijar el objWMIService = GetObject (“winmgmts: \ \” y strComputer y “\ raíz \ CIMV2”)
	Fijar los colItems = objWMIService.ExecQuery (“SELECCIONAR * de Win32_ComputerSystem”, de “WQL”, wbemFlagReturnImmediately + wbemFlagForwardOnly)
	Para cada objItem en colItems
      el arrTemp = partió (objItem.UserName, “\ ")
      GetUserName = arrTemp (1)
	Después
	Fijar el objWMIService = nada
	Fijar los colItems = nada
	Fijar el objItem = nada
    En el error 0 indicado
Función del final

SendMsg secundario (strComputer, strUser, strOwner)
	olkApp dévil, olkMsg
	Fijar el olkApp = GetObject (, “Outlook.Application”)
	Fijar el olkMsg = olkApp.CreateItem (0)
	Con el olkMsg
		“En la línea siguiente corregir el email address”
		. Para = “[email protected]”
		'En la línea siguiente corregir el sujeto "
		. El tema = “su tema va aquí”
		“En la línea siguiente corregir el texto de mensaje según lo deseado”
		. El cuerpo = “el usuario” y strUser y “se abre una sesión a la computadora” y al strComputer y “donde como él” y está el strOwner y “'máquina de s.”
		. Enviar
	Terminar con
	Fijar el olkMsg = nada
	Fijar el olkApp = nada
Terminar el submarino
Otras soluciones  
 
programming4us programming4us