Re: informacje o sprzecie >>>> itp

pepeleg log:
[...]
> a jak mozna zeby byly zawarte info o sprzecie itp ???

Hi!
Skrypt(y) of Hardwar&etc. trzeba siakiś sobie (na)pisać
pex:
' 54_WMIScript (XP, 2k3) - Sprzęt&etc.
'
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
'
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("P:\MB\Info\SI.txt", True)
strComputer = "."
'
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objComputer = CreateObject("Shell.LocalMachine")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_PrinterDriver")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & _
        "\root\cimv2\Applications\MicrosoftIE")
. . . . . . . . .
. . . . . . . . .
. . . . . . . . .
'
objTextFile.WriteLine " _____________________________________"
objTextFile.WriteLine " Data found on localhost by WMIScript _
  _MB_vel_Bluegem * Copyright (c) ..............*"
objTextFile.WriteLine " " & Date & " " & Time
objTextFile.WriteLine " _____________________________________"
'
objTextFile.Close

-- 
"Mamo, mamo ... Co Ci powiedziała wróżka? ..."
GL&BE