2005-05-04, 15:43
  #1
Medlem
håller på med ett inverteringsverktyg. ASP
--------------
Function Gather_ComputerSystem_Info(intCPUManufacturer, intCPUModel,intBIOSSerial)
On Error Resume Next

intCPUManufacturer = CheckValue(GetWMIInfo("Win32_ComputerSystem","Manu facturer"),"string")
intCPUModel = CheckValue(GetWMIInfo("Win32_ComputerSystem","Mode l"),"string")
'intChassistype = CheckValue(GetWMIInfo("Win32_BIOS","ChassisType"), "integer")
intBIOSSerial = CheckValue(GetWMIInfo("Win32_BIOS","SerialNumber") ,"string")

'PopupMessage intBIOSSerial

PopupMessage intBIOSSerial & " " &intCPUManufacturer & " " & intCPUModel,"Information",64,False

End Function
-------------------------

problemet är när jag ska skriva ut 'intBIOSSerial' så blir värdet bara N/A dom andra värdena stämmer fint..
Citera
2005-05-05, 18:20
  #2
Medlem
gregerolles avatar
Citat:
Ursprungligen postat av vicious
håller på med ett inverteringsverktyg. ASP
--------------
Function Gather_ComputerSystem_Info(intCPUManufacturer, intCPUModel,intBIOSSerial)
On Error Resume Next

intCPUManufacturer = CheckValue(GetWMIInfo("Win32_ComputerSystem","Manu facturer"),"string")
intCPUModel = CheckValue(GetWMIInfo("Win32_ComputerSystem","Mode l"),"string")
'intChassistype = CheckValue(GetWMIInfo("Win32_BIOS","ChassisType"), "integer")
intBIOSSerial = CheckValue(GetWMIInfo("Win32_BIOS","SerialNumber") ,"string")

'PopupMessage intBIOSSerial

PopupMessage intBIOSSerial & " " &intCPUManufacturer & " " & intCPUModel,"Information",64,False

End Function
-------------------------

problemet är när jag ska skriva ut 'intBIOSSerial' så blir värdet bara N/A dom andra värdena stämmer fint..


Det är inte så att serienumret helt enkelt inte finns tillgängligt?... Ser du det om du använder WMI Scriptomatic från Microsoft?...

Du menar väl förresten inventering och inte invertering?
Citera
2005-05-09, 10:51
  #3
Medlem
hehe...jo inventering menade jag..

tänkte oxå att burken jag satt vid inte hade ngt bios serie-nr. men testade på några andra burkar med samma resultat. nu spelar det ingen roll längre. hade tänkt att andvända det som ett unikt värde för att kunna visa data/info om en viss burk. skapade istället ett unikt värde av pc namnet och tiden för registrering..
Citera
2005-05-10, 15:06
  #4
Medlem
inventering

har ett annat problem. vad ska jag andvända för klss för att få reda på vad det finns för mjukvara installerad? är inte helt säker på att det går..men det borde det ju göra...?
http://msdn.microsoft.com/
Citera
2005-05-10, 20:01
  #5
Medlem
gregerolles avatar
Citat:
Ursprungligen postat av vicious
har ett annat problem. vad ska jag andvända för klss för att få reda på vad det finns för mjukvara installerad? är inte helt säker på att det går..men det borde det ju göra...?
http://msdn.microsoft.com/


Ladda ner Scriptomatic 2: http://www.microsoft.com/downloads/details.aspx?FamilyID=09dfc342-648b-4119-b7eb-783b0f7d1178&displaylang=en

Där kan du browsa igenom alla WMI-klasser..

Frågan du ställde kan du få svar på genom att kontrollera i registret under HKEY_LOCAL_MACHINE\Software\Microsoft\CurrentVersi on\Uninstall och enumerera alla nycklar och under varje nyckel hittar du information om installerade applikationer (DisplayName ger vad applikationen heter)..

Finns säkert andra sätt att ta reda på det också...
Citera
2005-05-11, 14:05
  #6
Medlem
ok...tack för tippset.
andvände mig av: Win32_Product, hittade den på: http://msdn.microsoft.com/
funkar rätt så bra, men all mjukvara kommer inte med...
den hittar dock allt från microsoft
Citera

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Det är enkelt att registrera ett nytt konto

Bli medlem

Logga in

Har du redan ett konto? Logga in här

Logga in