проблем с интернет свързване

Емил Костов

Пол:Мъж
Град:Плевен
Интереси:Интернет,Компютърни игри и програми. WEB design

28 февруари 20197 г.

преди 4 минути, Танер Заит Расим написа:

Въх, каква драма.

Той проблемът е ясен вече някой по горе е посочил.

В допълнение мога да добавя, че е нужно да се идентифицира, марка модел, дъно, чипсет, може визуално, но със софтуер ще е по удобно, например Everest или Aida 64, хубаво е да е стара версийка, от годините на туй старо железо, или визуално да се установи, и да се свалят необходимите драйвери, дано е известна марка щайгата и производителя пази споделеният драйвер в уеб сървърите си и са достъпни, че един ден драйвери за XP ще намерите ама друг път

ДСК имат и XP в структурите си, ама не знам ко се шашкате, БДЖ до скоро бяха с DOS, 112, МВР, Пожарна, ВМС и много държавни структури още ползват няколко поколения назад системи.

Моето желязо с XP от 2006-та година съм му турил втора лан платка и стана двъпортов и съм му турил един Router OS 5.26 хакнат с Huntertik .
Че за друго не става

А, моят опонент във форума се появи!! Здравейте сър!! И как ще инсталира AIDA, за да си види дъното след като няма интернет?????

Редактирано 28 февруари 20197 г. от Емил Костов (преглед на промените)

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

Ако не може да си намери драйвери да пробва някое Линукс дистро

28 февруари 20197 г.

току-що, petie1 написа:

Ако не може да си намери драйвери да пробва някое Линукс дистро

И какво ще подкара на Линукс?

Емил Костов

Hardware Team

Пол:Мъж
Град:Плевен
Интереси:Интернет,Компютърни игри и програми. WEB design

28 февруари 20197 г.

току-що, petie1 написа:

Ако не може да си намери драйвери да пробва някое Линукс дистро

Със сигурност има драйвери, просто трябва да ги свали и инсталира.

току-що, M.Николов написа:

И какво ще подкара на Линукс?

Същото, което и на Windows. Нали му трябва браузване, вайбър и скайп.

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

преди 3 минути, M.Николов написа:

И какво ще подкара на Линукс?

Всичко най ново

Емил Костов

Hardware Team

Пол:Мъж
Град:Плевен
Интереси:Интернет,Компютърни игри и програми. WEB design

28 февруари 20197 г.

току-що, petie1 написа:

Всичко най ново

Е, няма да е всичко най-ново, но машината ще може да се използва.

DarkEdge

Потребител

Пол:Мъж
Град:127.0.0.1:65535
Интереси:Няма начин да няма начин! Професия - каруцарин. Моля, колеги!

28 февруари 20197 г.

Цитат

<HTML>
<HEAD>
<TITLE>Hardware Inventory</TITLE>

<HTA:APPLICATION
ID="HardwInv"
VERSION="4.10"
APPLICATIONNAME="Basic Hardware Inventory"
SCROLL="yes"
SINGLEINSTANCE="yes"
>
</HEAD>

<SCRIPT Language="VBScript">

' Used constants
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const HKEY_LOCAL_MACHINE = &H80000002

' Global variables
Dim clrBgErr, clrTxtErr
Dim cntBnk, cntCDR, cntCPU, cntHDD, cntMem, cntMon, cntNIC, cntVDU, sizMem, spdMem
Dim arrRawEDID, objWMIService, strComputer, strDetails, strMonitorModel, strMonitorSerial

' Reset counters
cntBnk = 0
cntCDR = 0
cntCPU = 0
cntHDD = 0
cntMem = 0
cntMon = 0
cntNIC = 0
cntVDU = 0
sizMem = 0
spdMem = 0

' Color changes on errors
clrBgErr = "Red"
clrTxtErr = "White"

Function Chassis( strComputer )
' Chassis.vbs
' VBScript to interogate a machine's chassis type.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 - November 2005
' ---------------------------------------------------------'
   Set objWMIService = GetObject( "winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2" )
   Set colChassis = objWMIService.ExecQuery( "Select * from Win32_SystemEnclosure", , 16 )
   For Each objChassis in colChassis
       For Each objItem in objChassis.ChassisTypes
           Select Case objItem
               Case 1 strChassis = "Maybe Virtual Machine"
               Case 2 strChassis = "??"
               Case 3 strChassis = "Desktop"
               Case 4 strChassis = "Thin Desktop"
               Case 5 strChassis = "Pizza Box"
               Case 6 strChassis = "Mini Tower"
               Case 7 strChassis = "Full Tower"
               Case 8 strChassis = "Portable"
               Case 9 strChassis = "Laptop"
               Case 10 strChassis = "Notebook"
               Case 11 strChassis = "Hand Held"
               Case 12 strChassis = "Docking Station"
               Case 13 strChassis = "All in One"
               Case 14 strChassis = "Sub Notebook"
               Case 15 strChassis = "Space-Saving"
               Case 16 strChassis = "Lunch Box"
               Case 17 strChassis = "Main System Chassis"
               Case 18 strChassis = "Lunch Box"
               Case 19 strChassis = "SubChassis"
               Case 20 strChassis = "Bus Expansion Chassis"
               Case 21 strChassis = "Peripheral Chassis"
               Case 22 strChassis = "Storage Chassis"
               Case 23 strChassis = "Rack Mount Unit"
               Case 24 strChassis = "Sealed-Case PC"
           End Select
       Next
   Next
   Chassis = strChassis
' End of WMI VBScript - Chassis type
End Function

Sub CopyClipboard
   Document.ParentWindow.ClipboardData.SetData "text", Replace( ResultsHiddenText.Value, ",", " " )
End Sub

Function CreateLine( strProperty )
   ' This subroutine will split up a string into separate words:
   ' "SCSILogicalUnit" will be converted to "SCSI Logical Unit"

   On Error Resume Next

   dim i, j, k, strPropDescr, strLowc, strCaps, strPad, chrA, chrB

   strPropDescr = strProperty
   strCaps = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   strPad = " "
   strLowc = LCase( strCaps )

   i = 0
   Do
       i = i + 1
       j = i + 1
       If j >= Len( strPropDescr ) Then Exit Do
       chrA = Mid( strPropDescr, i, 1 )
       chrB = Mid( strPropDescr, j, 1 )
       If InStr( strLowc, chrA ) > 0 And InStr( strCaps, chrB ) > 0 Then
           strPropDescr = Left( strPropDescr, i ) & " " & Mid( strPropDescr, j )
           i = i + 2
           j = i + 1
       End If
   Loop

   If Len( strPropDescr ) > 2 Then
       i = 0
       Do
           i = i + 1
           j = i + 1
           k = i + 2
           If k >= Len( strPropDescr ) Then Exit Do
           chrA = Mid( strPropDescr, i, 1 )
           chrB = Mid( strPropDescr, j, 1 )
           chrC = Mid( strPropDescr, k, 1 )
           If InStr( strCaps, chrA ) > 0 And InStr( strCaps, chrB ) > 0 And InStr( strLowc, chrC ) > 0 Then
               strPropDescr = Left( strPropDescr, i ) & " " & Mid( strPropDescr, j )
               i = i + 3
               j = i + 1
               k = i + 2
           End If
       Loop
   End If

   CreateLine = Left( strPropDescr & strPad, 31 ) & ": "
End Function

Sub DetailsBIOS
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "BIOS", HandleClass( "Win32_BIOS" )
End Sub

Sub DetailsCDR
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "CD/DVD-ROM", HandleClass( "Win32_CDROMDrive" )
End Sub

Sub DetailsCPU
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "CPU", HandleClass( "Win32_Processor" )
End Sub

Sub DetailsHDU
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "Disk Drive", HandleClass( "Win32_DiskDrive" )
End Sub

Sub DetailsMB
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "Main Board & Chassis", HandleClass( "Win32_BaseBoard" ) & vbCrLf & vbCrLf & HandleClass( "Win32_SystemEnclosure" )
End Sub

Sub DetailsMem
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "Memory", HandleClass( "Win32_PhysicalMemoryArray" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_PhysicalMemory" )
End Sub

Sub DetailsNIC
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   DetailsWindow "Network Adapter", HandleClass( "Win32_NetworkAdapter" )
End Sub

Sub DetailsPorts
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   strDetails = HandleClass( "Win32_ParallelPort" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_SerialPort" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_SerialPortConfiguration" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_USBController" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_SystemSlot" ) & vbCrLf & vbCrLf _
   & HandleClass( "Win32_PortConnector" )
   DetailsWindow "Ports and Slots", strDetails
End Sub

Sub DetailsSound
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   strDetails = HandleClass( "Win32_SoundDevice" )
   DetailsWindow "Sound Device", strDetails
End Sub

Sub DetailsVDU
   On Error Resume Next
   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   strDetails = HandleClass( "Win32_VideoController" ) & vbCrLf & vbCrLf _
   & HandleClass( "CIM_VideoControllerResolution" )
   DetailsWindow "Display Adapter", strDetails
End Sub

Sub DetailsWindow( strType, strDetails )
   Set objIE = CreateObject( "InternetExplorer.Application" )
   objIE.Navigate( "about:blank" )
   objIE.Document.Title = strType & " Details for " & strComputer
   objIE.ToolBar = 0
   objIE.StatusBar = 0
   Set objDoc = objIE.Document.Body
   strHTML = "<H1 ALIGN=center>" & strType & " details for " & strComputer & "</H1>" & vbCrLf _
   & "<PRE><FONT FACE=Courier>" & strDetails & "</FONT></PRE>"
   objDoc.InnerHTML = strHTML
   objIE.Visible = True
End Sub

Sub EDIDTest( ByVal myIndex )
   Dim idx, arrTemp, arrTestModel, arrTestSerial, blnModel, blnSerial, strTemp
   arrTestModel = Split( "0 0 0 252" )
   arrTestSerial = Split( "0 0 0 255" )
   blnModel = True
   blnSerial = True

   For idx = 0 To 3
       If CInt( arrTestModel( idx ) ) <> CInt( arrRawEDID( idx + myIndex ) ) Then blnModel = False
       If CInt( arrTestSerial( idx ) ) <> CInt( arrRawEDID( idx + myIndex ) ) Then blnSerial = False
   Next

   If blnModel Or blnSerial Then
       For idx = 4 To 17
           Select Case arrRawEDID( myIndex + idx )
               Case 0
                   strTemp = strTemp & " "
               Case 7
                   strTemp = strTemp & " "
               Case 10
                   strTemp = strTemp & " "
               Case 13
                   strTemp = strTemp & " "
               Case Else
                   strTemp = strTemp & Chr( arrRawEDID( myIndex + idx ) )
           End Select
       Next
       strTemp = Trim( strTemp )
       If InStr( strTemp, " " ) Then
           arrTemp = Split( strTemp, " " )
           strTemp = arrTemp(0)
       End If
       If blnModel Then strMonitorModel = strTemp
       If blnSerial Then strMonitorSerial = strTemp
   End If
End Sub

Function GetComputerName( )
   Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
   If Err Then
       ComputerName.Style.backgroundColor = clrBgErr
       ComputerName.Style.Color = clrTxtErr
       ComputerName.Focus( )
       WScript.Quit( 1 )
   End If
   Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , wbemFlagReturnImmediately + wbemFlagForwardOnly )
   For Each objItem in colItems
       strComputer = objItem.Name
   Next
   ComputerName.Value = strComputer
   GetComputerName = strComputer
End Function

Function HandleClass( strClass )
   ' This subroutine lists all properties and their values for a specified class.
   ' Created using an example from a Microsoft TechNet ScriptCenter article:
   ' http://www.microsoft.com/technet/scriptcenter/resources/guiguy/default.mspx
   On Error Resume Next

   strProperties = "<H2>" & strClass & "</H2>" & vbCrLf & vbCrLf

   Set colItems = objWMIService.ExecQuery( "SELECT * FROM " & strClass, "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
   Set objClass = objWMIService.Get( strClass )

   For Each objItem In colItems
       For Each objProperty In objClass.Properties_
           strProperties = strProperties _
           & CreateLine( objProperty.Name ) _
           & Eval( "objItem." & objProperty.Name ) & vbCrLf
       Next
       strProperties = strProperties & vbCrLf & vbCrLf
   Next

   HandleClass = strProperties
End Function

Sub Inventory
   On Error Resume Next
   strComputer = ComputerName.Value
   If strComputer = "" Then strComputer = GetComputerName( )
   ComputerName.Disabled = True
   PasteButton.Disabled = True
   RunButton.Disabled = True
   ResetButton.Disabled = True

   Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
   If Err Then
       RunButton.Disabled = False
       ComputerName.Style.backgroundColor = clrBgErr
       ComputerName.Style.Color = clrTxtErr
       ComputerName.Disabled = False
       ComputerName.Focus( )
       WScript.Quit( 1 )
   Else
       RunButton.Disabled = True
       ComputerName.Style.backgroundColor = "White"
       ComputerName.Style.Color = "Black"
       ComputerName.Disabled = True
'       CopyButton.Focus( )
   End If

   ResultsHiddenText.Value = "Computer:" & vbTab _
   & "# CPUs:" & vbTab _
   & "CPU Type:" & vbTab _
   & "CPU Speed:" & vbTab _
   & "CPU Socket:" & vbTab _
   & "# Memory Banks:" & vbTab _
   & "# Memeory Modules:" & vbTab _
   & "Total Memory (MB):" & vbTab _
   & "HDD 0 Model:" & vbTab _
   & "HDD 0 Size (GB):" & vbTab _
   & "HDD 0 Interface:" & vbTab _
   & "HDD 1 Model:" & vbTab _
   & "HDD 1 Size (GB):" & vbTab _
   & "HDD 1 Interface:" & vbTab _
   & "HDD 2 Model:" & vbTab _
   & "HDD 2 Size (GB):" & vbTab _
   & "HDD 2 Interface:" & vbTab _
   & "HDD 3 Model:" & vbTab _
   & "HDD 3 Size (GB):" & vbTab _
   & "HDD 3 Interface:" & vbTab _
   & "CDROM 0 Model:" & vbTab _
   & "CDROM 0 Firmware:" & vbTab _
   & "CDROM 0 Interface:" & vbTab _
   & "CDROM 1 Model:" & vbTab _
   & "CDROM 1 Firmware:" & vbTab _
   & "CDROM 1 Interface:" & vbTab _
   & "Video Card 0 Model:" & vbTab _
   & "Video Card 0 Memory (MB):" & vbTab _
   & "Video Card 0 Video Mode:" & vbTab _
   & "Video Card 1 Model:" & vbTab _
   & "Video Card 1 Memory (MB):" & vbTab _
   & "Video Card 1 Video Mode:" & vbTab _
   & "Monitor 0 Model:" & vbTab _
   & "Monitor 0 Manufacturer:" & vbTab _
   & "Monitor 0 Serial:" & vbTab _
   & "Monitor 1 Model:" & vbTab _
   & "Monitor 1 Manufacturer:" & vbTab _
   & "Monitor 1 Serial:" & vbTab _
   & "Sound Card Model:" & vbTab _
   & "Sound Card Manufacturer:" & vbTab _
   & "NIC 0 Model:" & vbTab _
   & "NIC 0 MAC Address:" & vbTab _
   & "NIC 0 Speed:" & vbTab _
   & "NIC 1 Model:" & vbTab _
   & "NIC 1 MAC Address:" & vbTab _
   & "NIC 1 Speed:" & vbTab _
   & "NIC 2 Model:" & vbTab _
   & "NIC 2 MAC Address:" & vbTab _
   & "NIC 2 Speed:" & vbTab _
   & "NIC 3 Model:" & vbTab _
   & "NIC 3 MAC Address:" & vbTab _
   & "NIC 3 Speed:" & vbTab _
   & "Chassis:" & vbTab _
   & "MB Manufacturer:" & vbTab _
   & "MB Model:" & vbTab _
   & "MB Version:" & vbTab _
   & "USB:" & vbTab _
   & "System Slots:" & vbTab _
   & "Parallel Ports:" & vbTab _
   & "Serial Ports:" & vbTab _
   & "BIOS Manufacturer:" & vbTab _
   & "BIOS Model:" & vbTab _
   & "BIOS Version:" & vbTab _
   & "BIOS Date:" & vbCrLf _
   & strComputer & vbTab

   InventoryCPU( strComputer )
   InventoryMem( strComputer )
   InventoryHDD( strComputer )
   InventoryCDR( strComputer )
   InventoryVDU( strComputer )
   InventoryMon( strComputer )
   InventorySound( strComputer )
   InventoryNIC( strComputer )
   InventoryMB( strComputer )
   InventoryPorts( strComputer )
   InventoryBIOS( strComputer )

   CopyButton.Disabled = False
   ResetButton.Disabled = False
End Sub

Sub InventoryBIOS( strComputer )
   On Error Resume Next

   If CheckBoxBIOS.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_BIOS WHERE PrimaryBIOS = True", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           BIOSManufacturer.Value = objItem.Manufacturer
           BIOSModel.Value = objItem.Name
           BIOSVersion.Value = objItem.Version
           BIOSDate.Value = Mid( objItem.ReleaseDate, 5, 2 ) & "/" & Mid( objItem.ReleaseDate, 7, 2 ) & "/" & Left( objItem.ReleaseDate, 4 )
       Next

       BIOSDetailButton.Disabled = False
   End If

   CheckBoxBIOS.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & BIOSManufacturer.Value & vbTab _
   & BIOSModel.Value & vbTab _
   & BIOSVersion.Value & vbTab _
   & BIOSDate.Value & vbCrLf
End Sub

Sub InventoryCDR( strComputer )
   On Error Resume Next

   If CheckBoxCDR.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_CDROMDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           ' Parse the PNP Device ID string to get the interface and firmware revision
           ' Example:
           ' IDE\CDROM_NEC_DVD_RW_ND-3520AW___________________3.05____\5&2E27B08F&0&0.0.0
           ' === <- interface ==== <- firmware revision
           ' The array arrDevID will contain 3 elements: "IDE",
           ' "CDROM_NEC_DVD_RW_ND-3520AW___________________3.05____" and "5&2E27B08F&0&0.0.0"
           arrDevID = Split( objItem.DeviceID, "\", 3, vbTextCompare )
           strInterface = arrDevID(0)
           strDeviceId = arrDevID(1)
           ' In our example, strDeviceID will contain "CDROM_NEC_DVD_RW_ND-3520AW___________________3.05____"
           ' The array arrFirmware will contain the elements "CDROM", "NEC", "DVD", "RW", "ND-3520AW", "3.05" and ""
           ' strFirmware is assigned the value of the last non-empty element in the array
           arrFirmware = Split( strDeviceId, "_", -1, vbTextComapre )
           For Each strElement In arrFirmware
               If strElement <> vbNul Then strFirmware = strElement
           Next

           Select Case cntCDR
               Case 0
                   CDROM0Index.Value = objItem.Drive
                   CDROM0Model.Value = objItem.Name
                   CDROM0Firmware.Value = strFirmware
                   CDROM0Interface.Value = strInterface
                   CDRDetailButton.Disabled = False
               Case 1
                   CDROM1Index.Value = objItem.Drive
                   CDROM1Model.Value = objItem.Name
                   CDROM1Firmware.Value = strFirmware
                   CDROM1Interface.Value = strInterface
               Case Else
                   If Not Right( CDROM1Index.Value, 1 ) = "*" Then
                       CDROM1Index.Value = CDROM1Index.Value & "*"
                   End If
           End Select
           cntCDR = cntCDR + 1
       Next
   End If

   CheckBoxCDR.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & CDROM0Model.Value & vbTab _
   & CDROM0Firmware.Value & vbTab _
   & CDROM0Interface.Value & vbTab _
   & CDROM1Model.Value & vbTab _
   & CDROM1Firmware.Value & vbTab _
   & CDROM1Interface.Value & vbTab

   If cntCDR < 2 Then CDROM1.InnerHTML = vbNul
   If cntCDR > 1 Then
       MultipleCDROMs.InnerHTML = "s"
   Else
       MultipleCDROMs.InnerHTML = vbNul
   End If
End Sub

Sub InventoryCPU( strComputer )
   On Error Resume Next

   If CheckBoxCPU.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           cntCPU = cntCPU + 1
           CPUNumber.Value = cntCPU
           CPUModel.Value = Strip( objItem.Name )
           CPUSpeed.Value = objItem.CurrentClockSpeed
           CPUSocket.Value = objItem.SocketDesignation
       Next
       CPUDetailButton.Disabled = False
   End If

   CheckBoxCPU.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & CPUNumber.Value & vbTab _
   & CPUModel.Value & vbTab _
   & CPUSpeed.Value & vbTab _
   & CPUSocket.Value & vbTab

   If cntCPU > 1 Then MultipleCPU.InnerHTML = "s"
End Sub

Sub InventoryHDD( strComputer )
   On Error Resume Next

   If CheckBoxHDU.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive WHERE SCSITargetId >= 0", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           Select Case cntHDD
               Case 0
                   HardDisk0Index.Value = objItem.Index
                   HardDisk0Model.Value = objItem.Model
                   HardDisk0Size.Value = Round( objItem.Size / 1073741824 )
                   HardDisk0Interface.Value = objItem.InterfaceType
                   HDUDetailButton.Disabled = False
               Case 1
                   HardDisk1Index.Value = objItem.Index
                   HardDisk1Model.Value = objItem.Model
                   HardDisk1Size.Value = Round( objItem.Size / 1073741824 )
                   HardDisk1Interface.Value = objItem.InterfaceType
               Case 2
                   HardDisk2Index.Value = objItem.Index
                   HardDisk2Model.Value = objItem.Model
                   HardDisk2Size.Value = Round( objItem.Size / 1073741824 )
                   HardDisk2Interface.Value = objItem.InterfaceType
               Case 3
                   HardDisk3Index.Value = objItem.Index
                   HardDisk3Model.Value = objItem.Model
                   HardDisk3Size.Value = Round( objItem.Size / 1073741824 )
                   HardDisk3Interface.Value = objItem.InterfaceType
               Case Else
                   If Not Right( HardDisk3Index.Value, 1 ) = "*" Then
                       HardDisk3Index.Value = HardDisk3Index.Value & "*"
                   End If
           End Select
           cntHDD = cntHDD + 1
       Next
   End If

   CheckBoxHDU.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & HardDisk0Model.Value & vbTab _
   & HardDisk0Size.Value & vbTab _
   & HardDisk0Interface.Value & vbTab _
   & HardDisk1Model.Value & vbTab _
   & HardDisk1Size.Value & vbTab _
   & HardDisk1Interface.Value & vbTab _
   & HardDisk2Model.Value & vbTab _
   & HardDisk2Size.Value & vbTab _
   & HardDisk2Interface.Value & vbTab _
   & HardDisk3Model.Value & vbTab _
   & HardDisk3Size.Value & vbTab _
   & HardDisk3Interface.Value & vbTab

   If cntHDD < 4 Then HardDisk3.InnerHTML = vbNul
   If cntHDD < 3 Then HardDisk2.InnerHTML = vbNul
   If cntHDD < 2 Then HardDisk1.InnerHTML = vbNul
   If cntHDD > 1 Then
       MultipleDisks.InnerHTML = "s"
   Else
       MultipleDisks.InnerHTML = vbNul
   End If
End Sub

Sub InventoryMB( strComputer )
   On Error Resume Next

   If CheckBoxMB.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_BaseBoard", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           MBManufacturer.Value = objItem.Manufacturer
           MBModel.Value = objItem.Product
           MBVersion.Value = objItem.Version
       Next

       ChassisType.Value = Chassis( strComputer )

       MBDetailButton.Disabled = False
   End If

   CheckBoxMB.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & ChassisType.Value & vbTab _
   & MBManufacturer.Value & vbTab _
   & MBModel.Value & vbTab _
   & MBVersion.Value & vbTab
End Sub

Sub InventoryMem( strComputer )
   On Error Resume Next

   If CheckBoxMem.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       ' Capacity filter intended for HP/COMPAQ EVO models
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_PhysicalMemory WHERE Capacity > 524288", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem in colItems
           cntMem = cntMem + 1
           sizMem = sizMem + objItem.Capacity
           If spdMem = 0 Or objItem.Speed < spdMem Then spdMem = objItem.Speed
       Next
       MemoryModules.Value = cntMem
       MemorySize.Value = Round( sizMem / 1048576 )

       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_PhysicalMemoryArray", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           If objItem.MemoryDevices > cntBnk Then cntBnk = objItem.MemoryDevices
       Next
       MemoryBanks.Value = cntBnk

       MemDetailButton.Disabled = False
   End If

   CheckBoxMem.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & cntBnk & vbTab _
   & cntMem & vbTab _
   & MemorySize.Value & vbTab
End Sub

Sub InventoryMon( strComputer )
   Dim arrKeys, arrSubKeys, idxMonI, idxMonJ, objReg
   Dim strDeviceDesc, strMfg, strKeyPath, strSubKeyPath, strSubSubKeyPath

   On Error Resume Next

   If CheckBoxMon.Checked Then

       Set objReg = GetObject( "winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "/root/default:StdRegProv" )
       If Err Then Exit Sub

       strKeyPath = "SYSTEM\CurrentControlSet\Enum\DISPLAY"
       objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrKeys
       If Not IsArray( arrKeys ) Then Exit Sub

       For idxMonI = 0 To UBound( arrKeys )
           If InStr( 1, arrKeys( idxMonI ), "default", vbTextCompare ) < 1 Then
               strSubKeyPath = strKeyPath & "\" & arrKeys( idxMonI )
               objReg.EnumKey HKEY_LOCAL_MACHINE, strSubKeyPath, arrSubKeys
               If IsArray( arrSubKeys ) Then
                   For idxMonJ = 0 To UBound( arrSubKeys )
                       strSubSubKeyPath = strSubKeyPath & "\" & arrSubKeys( idxMonJ )
                       objReg.GetStringValue HKEY_LOCAL_MACHINE, strSubSubKeyPath, "Mfg", strMfg
                       If Not IsNull( strMfg ) Then
                           If Left( strMfg, 1 ) <> "(" Then
                               objReg.GetStringValue HKEY_LOCAL_MACHINE, strSubSubKeyPath, "DeviceDesc", strDeviceDesc
                               objReg.GetBinaryValue HKEY_LOCAL_MACHINE, strSubSubKeyPath & "\Device Parameters", "EDID", arrRawEDID
                               If IsArray( arrRawEDID ) Then
                                   EDIDTest 54
                                   EDIDTest 72
                                   EDIDTest 90
                                   EDIDTest 108
                               End If

                               If strMonitorModel = "" Then strMonitorModel = strDeviceDesc

                               Select Case cntMon
                                   Case 0
                                       MonitorIndex0.Value = cntMon
                                       MonitorModel0.Value = strMonitorModel
                                       MonitorManufacturer0.Value = strMfg
                                       MonitorSerial0.Value = strMonitorSerial
                                   Case 1
                                       MonitorIndex1.Value = cntMon
                                       MonitorModel1.Value = strMonitorModel
                                       MonitorManufacturer1.Value = strMfg
                                       MonitorSerial1.Value = strMonitorSerial
                                   Case Else
                                       If Not Right( MonitorIndex1.Value, 1 ) = "*" Then
                                           MonitorIndex1.Value = MonitorIndex1.Value & "*"
                                       End If
                               End Select
                               cntMon = cntMon + 1
                           End If
                       End If
                   Next
               End If
           End If
       Next
   End If

   CheckBoxMon.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & MonitorModel0.Value & vbTab _
   & MonitorManufacturer0.Value & vbTab _
   & MonitorSerial0.Value & vbTab _
   & MonitorModel1.Value & vbTab _
   & MonitorManufacturer1.Value & vbTab _
   & MonitorSerial1.Value & vbTab

   If cntMon < 2 Then Monitor1.InnerHTML = vbNul
End Sub

Sub InventoryNIC( strComputer )
   On Error Resume Next

   If CheckBoxNIC.Checked Then
       Set obj1WMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )

       Set col1Items = obj1WMIService.ExecQuery( "SELECT * FROM Win32_NetworkAdapter WHERE Manufacturer <> 'Microsoft' AND MACAddress <> '' AND AdapterType LIKE 'ethernet%'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each obj1Item In col1Items
           Select Case cntNIC
               Case 0
                   MACAddress0.Value = Join( Split( obj1Item.MACAddress, ":", -1, vbTextCompare ), "" )
                   NICIndex0.Value = cntNIC
                   NICModel0.Value = obj1Item.ProductName
                   NICSpeed0.Value = InventoryNICSpeed( obj1Item.ProductName )
                   NICDetailButton.Disabled = False
               Case 1
                   MACAddress1.Value = Join( Split( obj1Item.MACAddress, ":", -1, vbTextCompare ), "" )
                   NICIndex1.Value = cntNIC
                   NICModel1.Value = obj1Item.ProductName
                   NICSpeed1.Value = InventoryNICSpeed( obj1Item.ProductName )
               Case 2
                   MACAddress2.Value = Join( Split( obj1Item.MACAddress, ":", -1, vbTextCompare ), "" )
                   NICIndex2.Value = cntNIC
                   NICModel2.Value = obj1Item.ProductName
                   NICSpeed2.Value = InventoryNICSpeed( obj1Item.ProductName )
               Case 3
                   MACAddress3.Value = Join( Split( obj1Item.MACAddress, ":", -1, vbTextCompare ), "" )
                   NICIndex3.Value = cntNIC
                   NICModel3.Value = obj1Item.ProductName
                   NICSpeed3.Value = InventoryNICSpeed( obj1Item.ProductName )
               Case Else
                   If Not Right( NICIndex3.Value, 1 ) = "*" Then
                       NICIndex3.Value = NICIndex3.Value & "*"
                   End If
           End Select
           cntNIC = cntNIC + 1
       Next
       NICDetailButton.Disabled = False
   End If

   CheckBoxNIC.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & NICModel0.Value & vbTab _
   & MACAddress0.Value & vbTab _
   & NICSpeed0.Value & vbTab _
   & NICModel1.Value & vbTab _
   & MACAddress1.Value & vbTab _
   & NICSpeed1.Value & vbTab _
   & NICModel2.Value & vbTab _
   & MACAddress2.Value & vbTab _
   & NICSpeed2.Value & vbTab _
   & NICModel3.Value & vbTab _
   & MACAddress3.Value & vbTab _
   & NICSpeed3.Value & vbTab

   If cntNIC < 4 Then NIC3.InnerHTML = vbNul
   If cntNIC < 3 Then NIC2.InnerHTML = vbNul
   If cntNIC < 2 Then NIC1.InnerHTML = vbNul
   If cntNIC > 1 Then
       MultipleNICs.InnerHTML = "s"
   Else
       MultipleNICs.InnerHTML = vbNul
   End If
End Sub

Function InventoryNICSpeed( strInstance )
   Set obj2WMIService = GetObject( "winmgmts://" & strComputer & "/root/WMI" )
   Set col2Items = obj2WMIService.ExecQuery( "SELECT * FROM MSNdis_LinkSpeed WHERE InstanceName = '" & strInstance & "' AND Active = True", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
   For Each obj2Item In col2Items
       If obj2Item.NdisLinkSpeed < 10000 Then
           strNICSpeed = obj2Item.NdisLinkSpeed / 10 & " kb/s"
       Else
           strNICSpeed = obj2Item.NdisLinkSpeed / 10000 & " Mb/s"
       End If
   Next
   InventoryNICSpeed = strNICSpeed
End Function

Sub InventoryPorts( strComputer )
   On Error Resume Next

   cntAGP = 0
   cntOth = 0
   cntPar = 0
   cntPCI = 0
   cntSer = 0
   cntUSB = 0

   If CheckBoxPorts.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )

       ' Check for USB controllers
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_USBController", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           cntUSB = cntUSB + 1
       Next
       USB.Value = cntUSB

       ' Count parallel ports
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_ParallelPort", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           cntPar = cntPar + 1
       Next
       Parallel.Value = cntPar

       ' Count serial ports
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_SerialPort", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           cntSer = cntSer + 1
       Next
       Serial.Value = cntSer

       ' Count system slots (PCI/AGP)
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_SystemSlot", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           If Left( objItem.SlotDesignation, 3 ) = "AGP" Then cntAGP = cntAGP + 1
           If Left( objItem.SlotDesignation, 3 ) = "PCI" Then cntPCI = cntPCI + 1
           If InStr( "AGPCI", Left( objItem.SlotDesignation, 3 ) ) = 0 Then cntOth = cntOth + 1
       Next
       Slots.Value = cntPCI & " x PCI, " & cntAGP & " x AGP"
       strSlots = cntPCI & "xPCI " & cntAGP & "xAGP"
       If cntOth > 0 Then
           Slots.Value = Slots.Value & ", " & cntOth & " x Other"
           strSlots = strSlots & " " & cntOth & "xOther"
       End If

       PortsDetailButton.Disabled = False
   End If

   CheckBoxPorts.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & USB.Value & vbTab _
   & strSlots & vbTab _
   & Parallel.Value & vbTab _
   & Serial.Value & vbTab
End Sub

Sub InventorySound( strComputer )
   On Error Resume Next

   If CheckBoxSound.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_SoundDevice", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem In colItems
           SoundCardManufacturer.Value = objItem.Manufacturer
           SoundCardModel.Value = objItem.ProductName
       Next

       ChassisType.Value = Chassis( strComputer )

       SoundDetailButton.Disabled = False
   End If

   CheckBoxSound.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & SoundCardManufacturer.Value & vbTab _
   & SoundCardModel.Value & vbTab
End Sub

Sub InventoryVDU( strComputer )
   On Error Resume Next

   If CheckBoxVDU.Checked Then
       Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
       Set colItems = objWMIService.ExecQuery( "Select * from Win32_VideoController", , wbemFlagReturnImmediately + wbemFlagForwardOnly )
       For Each objItem in colItems
           Select Case cntVDU
               Case 0
                   VDUIndex0.Value = cntVDU
                   VideoModel0.Value = objItem.Name
                   VideoMemory0.Value = Round( objItem.AdapterRAM / 1048576 )
                   VideoMode0.Value = objItem.VideoModeDescription
                   VDUDetailButton.Disabled = False
               Case 1
                   VDUIndex1.Value = cntVDU
                   VideoModel1.Value = objItem.Name
                   VideoMemory1.Value = Round( objItem.AdapterRAM / 1048576 )
                   VideoMode1.Value = objItem.VideoModeDescription
               Case Else
                   If Not Right( VDUIndex1.Value, 1 ) = "*" Then
                       VDUIndex1.Value = VDUIndex1.Value & "*"
                   End If
           End Select
           cntVDU = cntVDU + 1
       Next

   End If

   CheckBoxVDU.Disabled = True

   ResultsHiddenText.Value = ResultsHiddenText.Value _
   & VideoModel0.Value & vbTab _
   & VideoMemory0.Value & vbTab _
   & VideoMode0.Value & vbTab _
   & VideoModel1.Value & vbTab _
   & VideoMemory1.Value & vbTab _
   & VideoMode1.Value & vbTab

   If cntVDU < 2 Then VDU1.InnerHTML = vbNul
End Sub

Sub PasteClipboard
   ComputerName.Value = Document.ParentWindow.ClipboardData.GetData( "text" )
End Sub

Private Function Strip( strInput )
   ' Strip leading spaces
   Do While Left( strInput, 1 ) = " "
       strInput = Mid( strInput, 2 )
   Loop
   Strip = strInput
End Function

Function TextFromHTML( URL )
   ' Basic routine borrowed from http://dev.remotenetworktechnology.com/wsh/rubegoldberg.htm
   ' Improved wait-until-ready routine for HTAs by McKirahan on
   ' http://support.microsoft.com/newsgroups/default.aspx?dg=microsoft.public.scripting.scriptlets&tid=be461ec2-b444-440c-8155-ad0e8e839ca6&lang=en&cr=US&sloc=en-us&p=1

   Set objIE = CreateObject( "InternetExplorer.Application" )
    objIE.Navigate URL
   While objIE.Busy
   Wend
   TextFromHTML = objIE.Document.Body.InnerText
   objIE.Quit
End Function

Function UnTag( strString )
   ' This function replaces special characters by their "ampersand code".
   ' The lines strPre = "" etc. are there to make sure that strPre has
   ' a value even if the next line fails.

   On Error Resume Next

   If InStr( strString, "&" ) > 0 Then
       posAmp = -1
       Do Until posAmp = 0
           posAmp = InStr( posAmp + 2, strString, "&" )
           strPre = ""
           strPre = Mid( strString, 1, posAmp - 1 )
           strPost = ""
           strPost = Mid( strString, posAmp + 1 )
           If posAmp > 0 Then strString = strPre & "&" & strPost
       Loop
   End If

   If InStr( strString, "<" ) > 0 Then
       posLt = -1
       Do Until posLt = 0
           posLt = InStr( posLt + 2, strString, "<" )
           strPre = ""
           strPre = Mid( strString, 1, posLt - 1 )
           strPost = ""
           strPost = Mid( strString, posLt + 1 )
           If posLt > 0 Then strString = strPre & "<" & strPost
       Loop
   End If

   If InStr( strString, ">" ) > 0 Then
       posGt = -1
       Do Until posGt = 0
           posGt = InStr( posGt + 2, strString, ">" )
           strPre = ""
           strPre = Mid( strString, 1, posGt - 1 )
           strPost = ""
           strPost = Mid( strString, posGt + 1 )
           If posGt > 0 Then strString = strPre & ">" & strPost
       Loop
   End If
   UnTag = strString
End Function

Sub Window_Onload
   CopyButton.Disabled = True
   PasteButton.Disabled = False
   RunButton.Disabled = False
   ResetButton.Disabled = False
   CheckboxBIOS.Checked = True
   CheckboxCDR.Checked = True
   CheckboxCPU.Checked = True
   CheckboxHDU.Checked = True
   CheckboxMB.Checked = True
   CheckboxMem.Checked = True
   CheckboxMon.Checked = True
   CheckboxNIC.Checked = True
   CheckboxPorts.Checked = True
   CheckboxVDU.Checked = True
   CheckboxSound.Checked = True
   BIOSDetailButton.Disabled = True
   CPUDetailButton.Disabled = True
   HDUDetailButton.Disabled = True
   CDRDetailButton.Disabled = True
   MBDetailButton.Disabled = True
   MemDetailButton.Disabled = True
   NICDetailButton.Disabled = True
   PortsDetailButton.Disabled = True
   SoundDetailButton.Disabled = True
   VDUDetailButton.Disabled = True
   AppVersion.InnerHTML = HardwInv.Version
   self.ResizeTo 875,750
   ComputerName.Focus( )
End Sub

</SCRIPT>

<BODY STYLE="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0000FF', EndColorStr='#000000')">

<DIV class="Center">

<SPAN ID="Update"> </SPAN>

<TABLE border="0" cellpadding="0" cellspacing="10">
<TR>
<TD><INPUT ID="pastebutton" CLASS="button" TYPE="button" VALUE=" Paste " NAME="PasteButton" onClick="PasteClipboard" TITLE="Click here to paste a remote computer name from the clipboard into the Computer Name field. Then click the [Go] button to start the inventory."></TD>
<TD>   </TD>
<TD><B>Computer:</B></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="ComputerName" SIZE="20" TITLE="Paste or type a remote computer name, or leave this field blank to query the local computer. Then click the [Go] button to start the inventory."></TD>
<TD>   </TD>
<TD><INPUT ID="runbutton" CLASS="button" TYPE="button" VALUE=" Go " NAME="RunButton" onClick="Inventory" TITLE="Click here to start the inventory"></TD>
<TD>   </TD>
<TD><INPUT ID="copybutton" CLASS="button" TYPE="button" VALUE=" Copy " NAME="CopyButton" onClick="CopyClipboard" TITLE="Click here to copy the results to the clipboard. The data in the clipboard will be in tab delimited format. Paste the data in a spreadsheet, using tab as the only delimiter, to create reports."></TD>
<TD>   </TD>
<TD><INPUT ID="resetbutton" CLASS="button" TYPE="button" VALUE=" Reset " NAME="ResetButton" onClick="Location.Reload(True)" TITLE="Click here to clear all fields"></TD>
</TR>
</TABLE>

<TABLE border="0" cellpadding="0" cellspacing="0" class="Center">
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Number:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Speed (MHz):</TD>
<TD>   </TD>
<TD>Socket:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxCPU" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the processor(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">CPU<SPAN ID=MultipleCPU>(s)</SPAN>:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CPUNumber" SIZE="10" READONLY TITLE="This read-only field will display the number of (logical) processors found. For processors with hyperthreading the displayed number will be twice the number of physical processors."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CPUModel" SIZE="40" READONLY TITLE="This read-only field will display the processor type."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CPUSpeed" SIZE="10" READONLY TITLE="This read-only field will display the processor clock speed in MHz."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CPUSocket" SIZE="10" READONLY TITLE="This read-only field will display the processor socket type."></TD>
<TD>   </TD>
<TD><INPUT ID="cpudetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="CPUDetailButton" onClick="DetailsCPU" TITLE="Click here to display more processor details in a separate window."></TD>
</TR>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Banks:</TD>
<TD>   </TD>
<TD>Modules:</TD>
<TD>   </TD>
<TD>Total (MB):</TD>
<TD COLSPAN="4"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxMem" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the memory from the inventory."></TD>
<TD>   </TD>
<TH align="left">Memory:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MemoryBanks" SIZE="10" READONLY TITLE="This read-only field will display the number of memory banks (sockets total)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MemoryModules" SIZE="10" READONLY TITLE="This read-only field will display the number of memory modules (sockets used)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MemorySize" SIZE="10" READONLY TITLE="This read-only field will display the total amount of physical memory in MB."></TD>
<TD COLSPAN="2"> </TD>
<TD>   </TD>
<TD><INPUT ID="memdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="MemDetailButton" onClick="DetailsMem" TITLE="Click here to display more memory details in a separate window."></TD>
</TR>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Disk #:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Size (GB):</TD>
<TD>   </TD>
<TD>Interface:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxHDU" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the harddisk(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">Harddisk<SPAN ID=MultipleDisks>(s)</SPAN>:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk0Index" SIZE="10" READONLY TITLE="This read-only field will display the disk number (zero based: 0...3)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk0Model" SIZE="40" READONLY TITLE="This read-only field will display the harddisk model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk0Size" SIZE="10" READONLY TITLE="This read-only field will display the harddisk size (capacity) in GB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk0Interface" SIZE="10" READONLY TITLE="This read-only field will display the harddisk's interface type (IDE/SCSI/S-ATA)."></TD>
<TD>   </TD>
<TD><INPUT ID="hdudetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="HDUDetailButton" onClick="DetailsHDU" TITLE="Click here to display more harddisk details in a separate window."></TD>
</TR>
<SPAN ID="HardDisk1">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="HardDisk1Index" SIZE="10" READONLY TITLE="This read-only field will display the disk number (zero based: 0...3)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk1Model" SIZE="40" READONLY TITLE="This read-only field will display the harddisk model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk1Size" SIZE="10" READONLY TITLE="This read-only field will display the harddisk size (capacity) in GB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk1Interface" SIZE="10" READONLY TITLE="This read-only field will display the harddisk's interface type (IDE/SCSI/S-ATA)."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<SPAN ID="HardDisk2">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="HardDisk2Index" SIZE="10" READONLY TITLE="This read-only field will display the disk number (zero based: 0...3)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk2Model" SIZE="40" READONLY TITLE="This read-only field will display the harddisk model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk2Size" SIZE="10" READONLY TITLE="This read-only field will display the harddisk size (capacity) in GB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk2Interface" SIZE="10" READONLY TITLE="This read-only field will display the harddisk's interface type (IDE/SCSI/S-ATA)."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<SPAN ID="HardDisk3">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="HardDisk3Index" SIZE="10" READONLY TITLE="This read-only field will display the disk number (zero based: 0...3). An asterisk means more than 4 harddisks were found. Use the Details button to get more details on all harddisks."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk3Model" SIZE="40" READONLY TITLE="This read-only field will display the harddisk model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk3Size" SIZE="10" READONLY TITLE="This read-only field will display the harddisk size (capacity) in GB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="HardDisk3Interface" SIZE="10" READONLY TITLE="This read-only field will display the harddisk's interface type (IDE/SCSI/S-ATA)."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Drive:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Firmware:</TD>
<TD>   </TD>
<TD>Interface:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxCDR" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the CD/DVD-ROM drive(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">CDROM<SPAN ID=MultipleCDROMs>(s)</SPAN>:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM0Index" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive letter."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM0Model" SIZE="40" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM0Firmware" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive's firmware revision number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM0Interface" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive's interface type (IDE/SCSI/S-ATA)."></TD>
<TD>   </TD>
<TD><INPUT ID="cdrdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="CDRDetailButton" onClick="DetailsCDR" TITLE="Click here to display more CD/DVD-ROM details in a separate window."></TD>
</TR>
<SPAN ID="CDROM1">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="CDROM1Index" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive letter."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM1Model" SIZE="40" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM1Firmware" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive's firmware revision number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="CDROM1Interface" SIZE="10" READONLY TITLE="This read-only field will display the CD/DVD-ROM drive's interface type (IDE/SCSI/S-ATA)."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>VDU #:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Memory (MB):</TD>
<TD>   </TD>
<TD>Resolution:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxVDU" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the display adapter(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">Video:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VDUIndex0" SIZE="10" READONLY TITLE="This read-only field will display the (logical) display adapter number (zero based: 0 or 1)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoModel0" SIZE="40" READONLY TITLE="This read-only field will display the display adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoMemory0" SIZE="10" READONLY TITLE="This read-only field will display the amount of video memory in MB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoMode0" SIZE="10" READONLY TITLE="This read-only field will display the current video mode."></TD>
<TD>   </TD>
<TD><INPUT ID="vdudetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="VDUDetailButton" onClick="DetailsVDU" TITLE="Click here to display more display adapter details in a separate window."></TD>
</TR>
<SPAN ID="VDU1">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="VDUIndex1" SIZE="10" READONLY TITLE="This read-only field will display the (logical) display adapter number (zero based: 0 or 1)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoModel1" SIZE="40" READONLY TITLE="This read-only field will display the display adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoMemory1" SIZE="10" READONLY TITLE="This read-only field will display the amount of video memory in MB."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="VideoMode1" SIZE="10" READONLY TITLE="This read-only field will display the current video mode."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Monitor #:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Manufacturer:</TD>
<TD>   </TD>
<TD>Serial #:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxMon" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the monitor(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">Monitor:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorIndex0" SIZE="10" READONLY TITLE="This read-only field will display the monitor number (zero based: 0 or 1)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorModel0" SIZE="40" READONLY TITLE="This read-only field will display the monitor model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorManufacturer0" SIZE="10" READONLY TITLE="This read-only field will display the monitor manufacturer."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorSerial0" SIZE="10" READONLY TITLE="This read-only field will display the monitor serial number."></TD>
<TD COLSPAN="2"> </TD>
</TR>
<SPAN ID="Monitor1">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="MonitorIndex1" SIZE="10" READONLY TITLE="This read-only field will display the monitor number (zero based: 0 or 1)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorModel1" SIZE="40" READONLY TITLE="This read-only field will display the monitor model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorManufacturer1" SIZE="10" READONLY TITLE="This read-only field will display the monitor manufacturer."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MonitorSerial1" SIZE="10" READONLY TITLE="This read-only field will display the monitor serial number."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="6"> </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Manufacturer:</TD>
<TD COLSPAN="4"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxSound" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the sound card from the inventory."></TD>
<TD>   </TD>
<TH align="left">Sound:</TH>
<TD COLSPAN="3"> </TD>
<TD><INPUT TYPE="text" NAME="SoundCardModel" SIZE="40" READONLY TITLE="This read-only field will display the sound card model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="SoundCardManufacturer" SIZE="10" READONLY TITLE="This read-only field will display the name of the sound card manufacturer."></TD>
<TD COLSPAN="3"> </TD>
<TD><INPUT ID="sounddetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="SoundDetailButton" onClick="DetailsSound" TITLE="Click here to display more sound card details in a separate window."></TD>
</TR>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>NIC #:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Address:</TD>
<TD>   </TD>
<TD>Speed:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxNIC" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the network adapter(s) from the inventory."></TD>
<TD>   </TD>
<TH align="left">NIC<SPAN ID="MultipleNICs">(s)</SPAN>:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICIndex0" SIZE="10" READONLY TITLE="This read-only field will display the network adapter number (zero based: 0...3)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICModel0" SIZE="40" READONLY TITLE="This read-only field will display the network adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MacAddress0" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's MAC address."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICSpeed0" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's link speed in kB/s."></TD>
<TD>   </TD>
<TD><INPUT ID="nicdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="NICDetailButton" onClick="DetailsNIC" TITLE="Click here to display more network adapter details in a separate window."></TD>
</TR>
<SPAN ID="NIC1">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="NICIndex1" SIZE="10" READONLY TITLE="This read-only field will display the network adapter number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICModel1" SIZE="40" READONLY TITLE="This read-only field will display the network adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MacAddress1" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's MAC address."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICSpeed1" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's link speed in kB/s."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<SPAN ID="NIC2">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="NICIndex2" SIZE="10" READONLY TITLE="This read-only field will display the network adapter number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICModel2" SIZE="40" READONLY TITLE="This read-only field will display the network adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MacAddress2" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's MAC address."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICSpeed2" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's link speed in kB/s."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<SPAN ID="NIC3">
<TR>
<TD COLSPAN="4"> </TD>
<TD><INPUT TYPE="text" NAME="NICIndex3" SIZE="10" READONLY TITLE="This read-only field will display the network adapter number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICModel3" SIZE="40" READONLY TITLE="This read-only field will display the network adapter model."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MacAddress3" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's MAC address."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="NICSpeed3" SIZE="10" READONLY TITLE="This read-only field will display the network adapter's link speed in kB/s."></TD>
<TD COLSPAN="2"> </TD>
</TR>
</SPAN>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Chassis:</TD>
<TD>   </TD>
<TD>Model:</TD>
<TD>   </TD>
<TD>Manufacturer:</TD>
<TD>   </TD>
<TD>Version:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxMB" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the main board and system enclosure from the inventory."></TD>
<TD>   </TD>
<TH align="left">Main Board:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="ChassisType" SIZE="10" READONLY TITLE="This read-only field will display the computer's chassis type."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MBModel" SIZE="40" READONLY TITLE="This read-only field will display the main board type."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MBManufacturer" SIZE="10" READONLY TITLE="This read-only field will display the name of the main board manufacturer."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="MBVersion" SIZE="10" READONLY TITLE="This read-only field will display the main board version."></TD>
<TD>   </TD>
<TD><INPUT ID="mbdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="MBDetailButton" onClick="DetailsMB" TITLE="Click here to display more main board and system enclosure details."></TD>
</TR>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>USB:</TD>
<TD>   </TD>
<TD>System Slots:</TD>
<TD>   </TD>
<TD>Parallel:</TD>
<TD>   </TD>
<TD>Serial:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxPorts" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the ports summary from the inventory."></TD>
<TD>   </TD>
<TH align="left">Ports:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="USB" SIZE="10" READONLY TITLE="This read-only field will tell if USB is supported."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="Slots" SIZE="40" READONLY TITLE="This read-only field will display the number and types of system slots (AGP/PCI)."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="Parallel" SIZE="10" READONLY TITLE="This read-only field will display the number of parallel ports."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="Serial" SIZE="10" READONLY TITLE="This read-only field will display the number of serial ports."></TD>
<TD>   </TD>
<TD><INPUT ID="portsdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="PortsDetailButton" onClick="DetailsPorts" TITLE="Click here to display more details on the available ports."></TD>
</TR>
<TR>
<TD COLSPAN="13"> </TD>
</TR>
<TR>
<TD COLSPAN="4"> </TD>
<TD>Manufacturer:</TD>
<TD>   </TD>
<TD>Type:</TD>
<TD>   </TD>
<TD>Version:</TD>
<TD>   </TD>
<TD>Date:</TD>
<TD COLSPAN="2"> </TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="CheckboxBIOS" CHECKED=True TITLE="Deselect this checkbox if you want to exclude the BIOS from the inventory."></TD>
<TD>   </TD>
<TH align="left">BIOS:</TH>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="BIOSManufacturer" SIZE="10" READONLY TITLE="This read-only field will display the name of the BIOS manufacturer."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="BIOSModel" SIZE="40" READONLY TITLE="This read-only field will display the BIOS description."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="BIOSVersion" SIZE="10" READONLY TITLE="This read-only field will display the BIOS version number."></TD>
<TD>   </TD>
<TD><INPUT TYPE="text" NAME="BIOSDate" SIZE="10" READONLY TITLE="This read-only field will display the BIOS release date."></TD>
<TD>   </TD>
<TD><INPUT ID="biosdetailbutton" CLASS="button" TYPE="button" VALUE=" Details " NAME="BIOSDetailButton" onClick="DetailsBIOS" TITLE="Click here to display more BIOS details."></TD>
</TR>
<TR>
<TD COLSPAN="13"><INPUT TYPE="hidden" NAME="ResultsHiddenText"></TD>
</TR>
</TABLE>

<P>Basic Hardware Inventory,  Version <SPAN ID=AppVersion>0.00</SPAN><BR>
<FONT SIZE="-1">© 2007, Rob van der Woude<BR>
<A HREF="http://www.robvanderwoude.com/"><FONT COLOR="Red">http://www.robvanderwoude.com</FONT></A></FONT></P>

<P><FONT SIZE="-2">Created using the Microsoft Scripting Guys'
<A HREF="http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx"><FONT COLOR="Red">Scriptomatic 2.0</FONT></A> and
<A HREF="http://www.microsoft.com/downloads/details.aspx?FamilyId=231D8143-F21B-4707-B583-AE7B9152E6D9&displaylang=en"><FONT COLOR="Red">HTA Helpomatic</FONT></A>
tools.<BR>
Chassis subroutine by
<A HREF="http://www.computerperformance.co.uk/ezine/ezine94.htm"><FONT COLOR="Red">Guy Thomas</FONT></A>.
Monitor EDID data parsing based on a script by
<A HREF="http://cwashington.netreach.net/depo/view.asp?Index=980&ScriptType=vbscript"><FONT COLOR="Red">Michael Baird</FONT></A>.<BR>
HandleClass function based on the Microsoft TechNet ScriptCenter article
<A HREF="http://www.microsoft.com/technet/scriptcenter/resources/guiguy/default.mspx"><FONT COLOR="Red">Scripting
Eye for the GUI Guy</FONT></A>.</FONT></P>

</DIV>

</BODY>
</HTML>

Копира се цитираният текст в notepad и се записва примерно като hardware.inventory.hta
Стартира се и след малко има пълно инфо

Редактирано 28 февруари 20197 г. от DarkEdge (преглед на промените)

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

преди 5 минути, Емил Костов написа:

Със сигурност има драйвери, просто трябва да ги свали и инсталира.

Ами добре ама вече бе пише човека

28 февруари 20197 г.

преди 13 минути, Емил Костов написа:

А, моят опонент във форума се появи!! Здравейте сър!! И как ще инсталира AIDA, за да си види дъното след като няма интернет?????

Опонент, толкова дълги години надничаме в темите си, как опонент бре, от една и съща страна сме :Д

От друга машина с USB флашкa, мята и закача.

За Линукс пак ще му трябва нет и флашка или двд или CD за да си направи бутваща медия.

С Линукс или Експи ще е пак същото дърво.

Под линукс може да го играе файлов сървър полезно приложение, ако си изкара щайгата някъде дето да не му шуми :Д
И го боли за тока.

28 февруари 20197 г.

преди 2 минути, petie1 написа:

Всичко най ново

Айде бе, аз пък казвам, че което върви на Линукс ще върви и на ХР.

DarkEdge

Потребител

Пол:Мъж
Град:127.0.0.1:65535
Интереси:Няма начин да няма начин! Професия - каруцарин. Моля, колеги!

28 февруари 20197 г.

Няма AIDA, няма HWinfo.

28 февруари 20197 г.

преди 1 минута, DarkEdge написа:

Няма AIDA, няма HWinfo.

Ми шанс, нема.

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

преди 4 минути, M.Николов написа:

Айде бе, аз пък казвам, че което върви на Линукс ще върви и на ХР.

Хром последна версия?

28 февруари 20197 г.

преди 3 минути, M.Николов написа:

Айде бе, аз пък казвам, че което върви на Линукс ще върви и на ХР.

Ама как ли ще върви на едно ядро туй всичкото се чудя аз и с тази ниска честота на рамът ил.

Не тенкю.

току-що, petie1 написа:

Хром последна версия?

Сега пак ли ще си ги мерите?

DarkEdge

Потребител

Пол:Мъж
Град:127.0.0.1:65535
Интереси:Няма начин да няма начин! Професия - каруцарин. Моля, колеги!

28 февруари 20197 г.

преди 1 минута, Танер Заит Расим написа:

Ми шанс, нема.

Айде, ве! Верно ли?

Редактирано 28 февруари 20197 г. от DarkEdge (преглед на промените)

28 февруари 20197 г.

току-що, Танер Заит Расим написа:

Ама как ли ще върви на едно ядро туй всичкото се чудя аз и с тази ниска честота на рамът ил.

Не тенкю.

Това вече е втори въпрос.

Емил Костов

Hardware Team

Пол:Мъж
Град:Плевен
Интереси:Интернет,Компютърни игри и програми. WEB design

28 февруари 20197 г.

преди 5 минути, Танер Заит Расим написа:

Опонент, толкова дълги години надничаме в темите си, как опонент бре, от една и съща страна сме :Д

От друга машина с USB флашкa, мята и закача.

За Линукс пак ще му трябва нет и флашка или двд или CD за да си направи бутваща медия.

С Линукс или Експи ще е пак същото дърво.

Под линукс може да го играе файлов сървър полезно приложение, ако си изкара щайгата някъде дето да не му шуми :Д
И го боли за тока.

Шегувам се! Не убивай вестоносеца Просто чакам постващият да даде повече информация.

Редактирано 28 февруари 20197 г. от Емил Костов (преглед на промените)

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

преди 7 минути, Танер Заит Расим написа:

Ама как ли ще върви на едно ядро туй всичкото се чудя аз и с тази ниска честота на рамът ил.

Не тенкю.

Сега пак ли ще си ги мерите?

Немам желание да си меря нищо с никой

28 февруари 20197 г.

преди 2 минути, petie1 написа:

Хром последна версия?

За кое дистро говорим?

28 февруари 20197 г.

преди 1 минута, Емил Костов написа:

Шегувам се! Не убивай вестоносеца Просто чакам постващият да даде повече информация.

Знам, ти имаше един малчуган в раздела за мрежи дето го учише на хоум нетуоркинг.
Малиии ако знаеш къв бисер ми прати, чакай да ти пратя да видиш.

petie1

Лига на легендите

Пол:Мъж
Град:Марс Сити
Интереси:Линукс и Програмиране да се правя на луд научна фанстастика шеги книги за компютри и програмиране

28 февруари 20197 г.

преди 2 минути, M.Николов написа:

За кое дистро говорим?

Да речем Минт

28 февруари 20197 г.

преди 6 минути, petie1 написа:

Да речем Минт

Посветил съм 2 месеца в тестване на Линукс дистрота на едноядрена машина от 2000-те години нема дистро дето да покрие днешното модерну сърфиране :Д

28 февруари 20197 г.

преди 7 минути, petie1 написа:

Да речем Минт

минимални изисквания към системата?

28 февруари 20197 г.

преди 2 часа, Емил Костов написа:

В момента поддържам машините на една фирма. 6 броя XP и един Win 7

Доста представителна извадка. Не се заяждам, а се чудя на глупостите ви. Важното е, че в някакъв квартал на дъге има серекеш, който е под NT. И от там се вадят изводи, че всите(''повечето'') са под тази ОС. Е то всички последващи ос се градят на NT, така че се получава един омагьосан кръг.

П.П Нужно ли е да напомням, че мненията на модераторите в тази тема са излишни(spam)? Не че моето се различава, но се подведох по колоната на движение.

Емил Костов

Hardware Team

Пол:Мъж
Град:Плевен
Интереси:Интернет,Компютърни игри и програми. WEB design

28 февруари 20197 г.

току-що, Jorge написа:

Доста представителна извадка. Не се заяждам, а се чудя на глупостите ви. Важното е, че в някакъв квартал на дъге има серекеш, който е под NT. И от там се вадят изводи, че всите(''повечето'') са под тази ОС. Е то всички последващи ос се градят на NT, така че се получава един омагьосан кръг.

П.П Нужно ли е да напомням, че мненията на модераторите в тази тема са излишни(spam)? Не че моето се различава, но се подведох по колоната на движение.

Аз нищо не сера. Казвам, че 10 не се използва както се твърди. Занимавам се с тази работа и знам какво и къде се използва. Не е желателно да цитирам хора или да показвам каквото и да било. И не знам как още не разбрахте, че аз давам мнения като потребител, а не като модератор. Това, че имам табелка нищо не означава.

Добре дошли!

проблем с интернет свързване

Featured Replies

Архивирана тема

Разглеждащи това в момента 0

Дарение

Бюлетин

Профил

Навигация

Търсене

Конфигуриране на push известия в браузъра

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)