Numero de série Ecran

Question

Bonjour,

Je cherche le moyen en VBscript de r&#233;cuperer le numero de s&#233;rie de l'&#233;cran connecter &#224; un ordinateur. Cela me permettrai de terminer mon programme d'inventaire.

Dim Reponse
Const ForReading = 1 
Const ForWriting = 2 
Const ForAppending = 8 
On error resume next
Rem --D&#233;finit l'ordinateur local comme &#233;tant le syst&#232;me trait&#233; par le script.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")


Reponse= "Date ; " & Now & " ; "
'**************************************************
Rem --On initialise colSettings par l'objet Automation WMIService.ExecQuery port&#233; sur Win32_CS.
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
Rem --Pour toutes les informations Win32_ComputerSystem...
For Each objComputer in colSettings
    Reponse=Reponse & "Login ; " & objComputer.UserName & " ; "
    Reponse=Reponse & "Hostname ; " & objComputer.Name & " ; "
    Reponse=Reponse & "Manufacturer ; " & objComputer.Manufacturer & " ; "
    Reponse=Reponse & "Model ; " & objComputer.Model & " ; "
next


'**************************************************
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_BIOS")
Rem --Pour  l'information Win32_BIOS...
For Each objBIOS in colSettings
Reponse= reponse & "S/N ; " & objBIOS.SerialNumber & " ; "
next


' Chassis
'**************************************************
Set colChassis = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
  For i = Lbound(objChassis.ChassisTypes) to Ubound(objChassis.ChassisTypes)
Rem --D&#233;finition de la variable (i) pour informations correspondantes au format textuel.
     Select Case objChassis.ChassisTypes(i)        
     Case 3 
        strComputerChassis = "Desktop"
     Case 6        
        strComputerChassis = "Mini Tower"
     Case 8
        strComputerChassis = "Portable"
     Case 9
        strComputerChassis = "LapTop"
     Case 10
        strComputerChassis = "NoteBook"
     Case 11
        strComputerChassis = "Hand Held"
     Case 12
        strComputerChassis = "Docking Station"
     Case 23
        strComputerChassis = "Rack Mount Chassis"       
     End Select
        
Rem --On note le r&#233;sultat de la propri&#233;t&#233; (i) et subtitution textuel.
        Reponse=Reponse & objChassis.ChassisTypes(i) & " - " & strComputerChassis & " ; "
   Next    
Next
set fso = CreateObject("Scripting.FileSystemObject")


' Adresse IP
'***************************************
Dim WshShell,Command,File,Lecture 
Set WshShell=WScript.CreateObject("WScript.Shell") 
Command = "%COMSPEC% /C ipconfig.exe > c:\command.txt" 
Result = WshShell.Run(Command,0,True) 
 Set File = fso.OpenTextFile("c:\command.txt",1,true) 
 do until file.atendofstream
     Lecture= file.Readline() 
 if mid(Lecture,9,10)= "Adresse IP" then ping=ping & lecture & " ; "
 loop
 file.Close 
     fso.DeleteFile ("c:\command.txt"),True 
Reponse=Reponse & ping


'***************************************
set fso = CreateObject("Scripting.FileSystemObject")
Set Logx = fso.OpenTextFile("[file://141.86.43.60/FRANCE$/CSE2_FRANCE.txt%22,8,True c:\info.txt",8,True])
logx.writeline Reponse


logx.close

crenaud76 · Answer

Jamais réussi à trouvé le S/N de l'écran dans les classes WMI ... mais si tu le trouve, cela m'intéresse aussi

Numero de série Ecran

1 réponse

Discussions similaires