Cuestión : modificar la escritura del vb también para conseguir el username por último abierto una sesión o para exhibir nombre

¿Quisiera agregar a una escritura creada por el href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_23324842.html " del sungenwang

el ramming/Languages/Visual_Basic/VB_Script/Q_23324842.html

I del e.com/Prog de http://www.experts-exchang quisiera conseguir una columna con el pasado abierto una sesión (nombre del username o de la exhibición) a este computer

so allí soy 3 columnas en el

Is de la escritura (nombre de computadora - etiqueta del servicio - conexión pasada del usuario) esto posible con los vbs?

Thank You class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
>Const notpretty " del class= " del id= " codeSnippet766464 del
class= del

Respuesta : modificar la escritura del vb también para conseguir el username por último abierto una sesión o para exhibir nombre

Intentar por favor esto.

Respetos,

Robo.
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:

Const strSourceFile = “computers.txt”
Const strDestFile = “output.csv”
Const ForReading = 1
 
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading)
Fijar objDestFile = objFSO.CreateTextFile (strDestFile, verdad)
"" del nombre de computadora del """ de objDestFile.WriteLine, "" de la etiqueta del servicio del "", """ del nombre de usuario del ""
 
Hacer mientras que no objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Si silbido de bala (strComputer) entonces
		"""" de objDestFile.WriteLine y strComputer y """, """ y GetSerial (strComputer) y """, """ y GetUsername (strComputer) y """"
	Terminar si
Lazo
objDestFile.Close
 
msgbox “hecho!”
 
Función GetSerial (strComputer)
        Fijar el objWMIService = GetObject (“winmgmts: ” _
        ¡y “{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ cimv2”)
        'Fijar el colSMBIOS = objWMIService.ExecQuery (“seleccionar * de Win32_SystemEnclosure”)
        Fijar el colSMBIOS = objWMIService.ExecQuery (“seleccionar * de Win32_BIOS”)
        
        'GetSerial = ""
        Para cada objSMBIOS en colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Salir para
        Después
Función del final
 
Función GetUsername (strComputer)
        Fijar el objWMIService = GetObject (“winmgmts: ” _
        ¡y “{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ cimv2”)
        Fijar el colComputer = el _ de objWMIService.ExecQuery
        (“Username selecto de Win32_ComputerSystem”)
        
        'GetSerial = ""
		Para cada objComputer en colComputer
			GetUsername = objComputer.Username
			Salir para
		Después
Función del final
 
Silbido de bala de la función (strComputer)
	El objPing dévil, objStatus
	El objPing determinado = GetObject (“winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery (“Replysize SELECTO de Win32_PingStatus DONDE dirección = “” y strComputer y “” ")  
 
	Silbido de bala = falso
	Para cada objStatus en objPing  
		Si no el silbido de bala de IsNull (objStatus.ReplySize) entonces = verdad
	Después  
Función del final
Otras soluciones  
 
programming4us programming4us