Pergunta : modificar o certificado do vb para começ o username por último entrado ou para indicar igualmente o nome

Eu gostaria de adicionar a um certificado criado pelo href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_23324842.html " do sungenwang

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

I do e.com/Prog de http://www.experts-exchang gostaria de começ uma coluna com o último entrado (nome do username ou da exposição) a este computer

so lá sou 3 colunas último início de uma sessão do usuário) no

Is do certificado (Computername - Tag do serviço - isto possível com vbs?

Thank You class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 " do class= " do id= " codeSnippet766464 do
class= do

Resposta : modificar o certificado do vb para começ o username por último entrado ou para indicar igualmente o nome

Tentar por favor isto.

Considerações,

Roubo.
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
 
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Ajustar objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading)
Ajustar objDestFile = objFSO.CreateTextFile (strDestFile, verdadeiro)
"" do Computername do """ de objDestFile.WriteLine, "" do Tag do serviço do "", """ do nome de usuário do ""
 
Fazer quando não objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Se sibilo (strComputer) então
		"""" de objDestFile.WriteLine & strComputer & """, """ & GetSerial (strComputer) & """, """ & GetUsername (strComputer) & """"
	Terminar se
Laço
objDestFile.Close
 
msgbox “feito!”
 
Função GetSerial (strComputer)
        Ajustar o objWMIService = o GetObject (“winmgmts: ” _
        & “{impersonationLevel=impersonate}! \ \” & strComputer & “\ raiz \ cimv2”)
        'Ajustar o colSMBIOS = o objWMIService.ExecQuery (“selecionar * de Win32_SystemEnclosure”)
        Ajustar o colSMBIOS = o objWMIService.ExecQuery (“selecionar * de Win32_BIOS”)
        
        'GetSerial = ""
        Para cada objSMBIOS no colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Retirar para
        Em seguida
Função do fim
 
Função GetUsername (strComputer)
        Ajustar o objWMIService = o GetObject (“winmgmts: ” _
        & “{impersonationLevel=impersonate}! \ \” & strComputer & “\ raiz \ cimv2”)
        Ajustar o colComputer = o _ de objWMIService.ExecQuery
        (“Username seleto de Win32_ComputerSystem”)
        
        'GetSerial = ""
		Para cada objComputer no colComputer
			GetUsername = objComputer.Username
			Retirar para
		Em seguida
Função do fim
 
Sibilo da função (strComputer)
	objPing não ofuscante, objStatus
	objPing ajustado = GetObject (“winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery (“Replysize SELETO de Win32_PingStatus ONDE endereço = “” & strComputer & “” ")  
 
	Sibilo = falso
	Para cada objStatus em objPing  
		Se não o sibilo de IsNull (objStatus.ReplySize) então = retifica
	Em seguida  
Função do fim
Outras soluções  
 
programming4us programming4us