VBS pour identification poste

Invité · 05/05/2017, 08h07

bonjour a tous
je suis débutant et un j'ai trouvé un script pour identifier les postes informatiques
NOM, NUMERO DE SERIE, RESEAU ETC ....

mais j'ai du modifier quelques chose et le script me met une erreur ligne 1 caractère incorrecte 1 >> erreur 800A0408
si un spécialiste peut m'aider

merci d'avance

Code :

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

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
 
Dim objNetwork, objDrive, intDrive, intNetLetter 
 
Dim FSO, ObjFile, WshNetwork, SrtNewText, strText
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
Set objShell = CreateObject("WScript.Shell")
 
 
 
hostname = WshNetwork.computername
 
username = WshNetwork.username
 
domainname = WshNetwork.UserDomain
 
 
 
 
 
 
 
'==========================================================================
 
'mettez ici l'emplacement du dossier dans lequel sera enregistrer le rapport
 
'si ce dossier n'existe pas, il sera crée
 
path = ""
 
 
 
'sharename = "logs_"&username&""
 
 
 
If  objFSO.FolderExists (""&path&"") Then
 
  Else
 
Set objFolder = objFSO.CreateFolder (""&path&"")
 
End If
 
 
 
'save softwares configuration In a txt file
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objTextFile = objFSO.CreateTextFile(""&path&""& hostname & " - "&username&".txt", True)
 
filepath = ""&path&""& hostname & " - "&username&".txt"
 
objTextFile.WriteLine ""&VbCrLf&"=========================================================================="
 
objTextFile.WriteLine "==      script pour identification matériel                    =="
 
objTextFile.WriteLine "=========================================================================="&VbCrLf&""
 
'==========================================================================
 
'INFOS GENERALES (Nom du poste, nom de l'utilisateur actuel)
 
'==========================================================================
 
objTextFile.WriteLine "== GENERAL =========================================================="&VbCrLf&""
 
objTextFile.WriteLine "Nom du poste : "& hostname &""
 
Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
 
 
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
 
 
For Each objItem in colItems
 
    strComputerDomain = objItem.Domain
 
    If objItem.PartOfDomain Then
 
        objTextFile.WriteLine "Domaine : " & strComputerDomain
 
    Else
 
        objTextFile.WriteLine "Workgroup : " & strComputerDomain
 
    End If
 
objTextFile.WriteLine "Marque : " & objItem.Manufacturer
 
objTextFile.WriteLine "Modele : " & objItem.Model
 
Next
 
Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
 
for each SN in SNSet
 
objTextFile.WriteLine "Serial : " & SN.SerialNumber
 
Next
 
objTextFile.WriteLine
 
 
 
'==========================================================================
 
'INFOS SYSTEME 
 
'==========================================================================
 
objTextFile.WriteLine "== SYSTEME EXPLOITATION ============================================="&VbCrLf&""
 
 
 
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
 
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
 
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
 
 
 
For Each objOperatingSystem in colOperatingSystems
 
 
 
    objTextFile.WriteLine "OS : " & objOperatingSystem.Caption
 
    objTextFile.WriteLine "Version: " & objOperatingSystem.Version 
 
    objTextFile.WriteLine "Service Pack : " & objOperatingSystem.ServicePackMajorVersion
 
    objTextFile.WriteLine "Numero Serie : " & objOperatingSystem.SerialNumber
 
    objTextFile.WriteLine "Type Version : " & objOperatingSystem.BuildType
 
    dtmConvertedDate.Value = objOperatingSystem.InstallDate
 
    dtmInstallDate = dtmConvertedDate.GetVarDate
 
    objTextFile.WriteLine "Date d'Installation : " & dtmInstallDate 
 
	objTextFile.WriteLine
 
Next
 
 
 
 
 
'==========================================================================
 
'RESEAU
 
'==========================================================================
 
objTextFile.WriteLine ""&VbCrLf&"== RESEAU ==========================================================="&VbCrLf&""
 
Set colNicConfigs = objWMIService.ExecQuery ("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
 
 
 
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
 
Set colAdapters = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
 
 
n = 1
 
objTextFile.WriteLine
 
 
 
For Each objAdapter in colAdapters
 
  objTextFile.WriteLine "Carte Reseau - " & objAdapter.Description
 
  objTextFile.WriteLine "  Adresse MAC : " & vbTab & objAdapter.MACAddress
 
  If Not IsNull(objAdapter.IPAddress) Then
		if objAdapter.DHCPEnabled = True Then
			objTextFile.WriteLine "  DHCP : " &vbTab & vbTab & "DHCP activé" 
		Else
			objTextFile.WriteLine "  DHCP : " &vbTab & vbTab & "DHCP désactivé" 
 
			objTextFile.WriteLine "  L'adresse IP suivante est indicative, merci d'indiquer une adresse IP disponible differente de l'adresse affichee " 
 
 
 
			If Not IsNull(objAdapter.IPAddress) Then
 
			  For i = 0 To UBound(objAdapter.IPAddress)
 
				 objTextFile.WriteLine "  Adresse IP : " &vbTab & vbTab & objAdapter.IPAddress(i)
 
			  Next
 
			End If
 
 
 
			If Not IsNull(objAdapter.IPSubnet) Then
 
			  For i = 0 To UBound(objAdapter.IPSubnet)
 
				 objTextFile.WriteLine "  Sous Reseau: " &vbTab & vbTab & objAdapter.IPSubnet(i)
 
			  Next
 
			End If
 
 
 
			If Not IsNull(objAdapter.DefaultIPGateway) Then
 
			  For i = 0 To UBound(objAdapter.DefaultIPGateway)
 
				 objTextFile.WriteLine "  Passerelle : " &vbTab & vbTab & objAdapter.DefaultIPGateway(i)
 
			  Next
 
			End If
 
 
 
			If IsNull(objAdapter.DefaultIPGateway) Then
 
				objTextFile.WriteLine
 
					objTextFile.WriteLine "  Pas de DNS Specifie"
 
			Else
 
 
 
				If Not IsNull(objAdapter.DNSServerSearchOrder) Then
 
					For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
 
						objTextFile.WriteLine "  DNS : " &vbTab  &vbTab & objAdapter.DNSServerSearchOrder(i)
 
					Next
 
				End If
 
 
 
				objTextFile.WriteLine "  Domaine DNS : " & objAdapter.DNSDomain
 
 
 
				If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then
 
					For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)
 
						objTextFile.WriteLine "    Liste de recherche suffixe DNS : " & objAdapter.DNSDomainSuffixSearchOrder(i)
 
					Next
 
				End If
 
			End If
			' Configuration WINS
 
			 If IsNull(objAdapter.WINSPrimaryServer) And IsNull(objAdapter.WINSSecondaryServer) Then
 
				  objTextFile.WriteLine
 
				   objTextFile.WriteLine "Pas de WINS specifié"
 
					objTextFile.WriteLine
 
			Else
 
				   objTextFile.WriteLine "  WINS"
 
				   objTextFile.WriteLine "  ----"
 
				   objTextFile.WriteLine "    Serveur WINS Primaire :   " & objAdapter.WINSPrimaryServer
 
				   objTextFile.WriteLine "    Serveur WINS Secondaire : " & objAdapter.WINSSecondaryServer
 
			 End If			
 
		End If
	End if
 
  n = n + 1 
 
Next
 
const HKEY_CURRENT_USER = &H80000001
 
strComputer = "."
 
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyServer"
strproxyactif = "ProxyEnable"
 
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strproxyactif,dwValue_test
 
if dwValue_test = 1 then
 
	objTextFile.WriteLine "  Serveur Proxy actif. " &vbTab & "SERVEUR PROXY Activé"
	oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	objTextFile.WriteLine " Adresse du Serveur proxy : " &vbTab & dwValue
Else
	objTextFile.WriteLine "  Proxy inactif : " &vbTab  & "PAS DE SERVEUR PROXY"
 
End if
 
 
Function WMIDateStringToDate(utcDate)
 
   WMIDateStringToDate = CDate(Mid(utcDate, 5, 2)  & "/" & Mid(utcDate, 7, 2)  & "/" & Left(utcDate, 4)    & " " & Mid (utcDate, 9, 2) & ":" & Mid(utcDate, 11, 2) & ":" & Mid(utcDate, 13, 2))
 
End Function
 
 
 
objTextFile.WriteLine ""&VbCrLf&"=========================================================================="
 
objTextFile.WriteLine "==                       File saved @ "&Now&"               =="
 
objTextFile.WriteLine "=========================================================================="&VbCrLf&""
 
 
 
objTextFile.close
 
WScript.Quit(1)

VBS pour identification poste

VBScript

Mode arborescent

Discussions similaires

Partager

Partager