Question : modifier le manuscrit de vb également pour obtenir l'username pour la dernière fois ouvert une session ou pour montrer le nom

Je voudrais ajouter à un manuscrit créé par le href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_23324842.html " du sungenwang

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

I du e.com/Prog de http://www.experts-exchang voudrais obtenir une colonne avec le dernier ouvert une session (nom d'username ou d'affichage) à ce computer

so là suis 3 colonnes dans le

Is de manuscrit (Computername - étiquette de service - dernière ouverture d'utilisateur) ceci possible avec des vbs ?

Thank You class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet766464 de
class= de

Réponse : modifier le manuscrit de vb également pour obtenir l'username pour la dernière fois ouvert une session ou pour montrer le nom

Veuillez essayer ceci.

Respect,

Rob.
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
 
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading)
Placer objDestFile = objFSO.CreateTextFile (strDestFile, vrai)
"" de Computername de """ d'objDestFile.WriteLine, "" d'étiquette de service de "", """ de nom d'utilisateur de ""
 
Faire tandis que pas objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Si cinglement (strComputer) puis
		"""" d'objDestFile.WriteLine et strComputer et """, """ et GetSerial (strComputer) et """, """ et GetUsername (strComputer) et """"
	Finir si
Boucle
objDestFile.Close
 
msgbox « fait ! »
 
Fonction GetSerial (strComputer)
        Placer l'objWMIService = le GetObject (« winmgmts :  » _
        et « {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ cimv2 »)
        'Placer le colSMBIOS = l'objWMIService.ExecQuery (« choisir * à partir de Win32_SystemEnclosure »)
        Placer le colSMBIOS = l'objWMIService.ExecQuery (« choisir * à partir de Win32_BIOS »)
        
        'GetSerial = ""
        Pour chaque objSMBIOS dans le colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Sortir pour
        Après
Fonction de fin
 
Fonction GetUsername (strComputer)
        Placer l'objWMIService = le GetObject (« winmgmts :  » _
        et « {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ cimv2 »)
        Placer le colComputer = le _ d'objWMIService.ExecQuery
        (« Username choisi de Win32_ComputerSystem »)
        
        'GetSerial = ""
		Pour chaque objComputer dans le colComputer
			GetUsername = objComputer.Username
			Sortir pour
		Après
Fonction de fin
 
Cinglement de fonction (strComputer)
	Faible objPing, objStatus
	objPing réglé = GetObject (« winmgmts : {impersonationLevel=impersonate} "). _  
				ExecQuery (« Replysize CHOISI de Win32_PingStatus OÙ adresse = «  » et strComputer et «  » ")  
 
	Cinglement = faux
	Pour chaque objStatus dans objPing  
		Sinon le cinglement d'IsNull (objStatus.ReplySize) puis = rectifient
	Après  
Fonction de fin
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