Discussion :

[Invité]

Je sais pas trop comment l'expliquer mais dans mon WriteLine suivant...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objTextFile.WriteLine(objComputer.Name & vbTab & objComputer.operatingSystem & " - " & objComputer.operatingSystemServicePack & vbTab & objComputer.operatingSystemHotfix & vbTab & objComputer.operatingSystemVersion & vbTab & objComputer.whenCreated)

J'ai bien les infos inscrite, toutefois dès qu'un objet n'est pas présent il n'est pas écrit donc il y a un décalage est ce possible de faire en sorte que si l'objet n'est pas présent pour un élément il y ait un espace de façon a ce que ce soit tout bien aligné??? L'exemple suivant démontre ce que j'aimerais "corriger"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
CN=043-502364	Windows XP Professional - Service Pack 3		5.1 (2600)	2009-11-19 20:10:09
CN=043-55DC0N1	Windows 7 Professionnel - 		6.1 (7600)	2011-01-13 18:11:38
CN=043-594F54	Windows XP Professional - Service Pack 3		5.1 (2600)	2009-11-19 19:38:46
CN=043-597AF4	Windows XP Professional - Service Pack 3		5.1 (2600)	2009-11-19 19:49:02
CN=043-65B0B4	Windows XP Professional - Service Pack 3		5.1 (2600)	2009-11-19 20:35:45
CN=043-65DC0N1	Windows 7 Professionnel - 		6.1 (7600)	2011-01-13 19:05:34
CN=043-66031	Windows XP Professional - Service Pack 3		5.1 (2600)	2012-02-16 15:44:47
CN=043-66032	Windows XP Professional - Service Pack 3		5.1 (2600)	2012-03-01 18:35:56
CN=043-66034	Windows XP Professional - Service Pack 3		5.1 (2600)	2011-09-01 16:57:18

[pc75]

Bonjour,

Et si tu concaténais une tabulation (chr(9)) au lieu d'un " - " ?

[Invité]

merci pour cet info...

ça change la donne un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
CN=038-BIBLIO	Windows XP Professional	Service Pack 3		5.1 (2600)	2008-10-09 15:30:25
CN=038-WIN7-DIR	Windows 7 Professionnel	Service Pack 1		6.1 (7601)	2011-09-06 12:49:04
CN=038-WIN7-SG	Windows 7 Professionnel			      6.1 (7600)	2010-06-11 13:12:00
CN=038-XP-135	Windows XP Professional	Service Pack 3		5.1 (2600)	2009-10-23 13:38:30
CN=038-XP-ORTHO	Windows XP Professional	Service Pack 3		5.1 (2600)	2009-12-04 15:41:45
CN=052-RECEPTION-1	Windows 7 Professionnel			6.1 (7600)	2008-09-26 17:39:58
CN=XP-0120991	Windows XP Professional	Service Pack 2		5.1 (2600)	2003-10-20 18:42:49

Par contre si la chaine est null dans le cas d'un objComputer.operatingSystemHotfix le reste de la ligne se trouve décalée...

toujours à la recherche

Y a pas moyen de faire un

If objComputer.operatingSystemHotfix = null Then
objTextFile.strText = "Chaine Vide"

Merci

[pc75]

Re,

Tu peux toujours faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If isnull(objComputer.operatingSystemHotfix) or len(trim(objComputer.operatingSystemHotfix)) = 0 Then
objTextFile.strText = "Chaine Vide"

ou tu insères systématiquement un espace ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
objTextFile.WriteLine(objComputer.Name & chr(32) & vbTab & objComputer.operatingSystem & chr(32) & " - " & objComputer.operatingSystemServicePack & chr(32) & vbTab & objComputer.operatingSystemHotfix & chr(32) & vbTab & objComputer.operatingSystemVersion & chr(32) & vbTab & objComputer.whenCreated)

[Invité]

Premier code a pc75 adopté...solution trouvée...

merci