vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Systemdaten auslesen und in Registryschlüssel schreiben 
Autor: thedog
Datum: 06.12.05 13:32

Folgendes Problem. Um unsre Softwareverteilung auf dei jeweilige Hardware abzustimmen bräuchten wir Hersteller und Modell in einem Registry Schlüssel.
Ich habe ein Script gefunden welche die Daten ausliest, aber ich habe es nicht hinbekommen die in einen Registry Schlüssel zu schreiben.
Wichtig bei dem Schlüssel ist das er im Bereich Local.Machine ist.
Hier erstmal das Script welches die Daten ausliest:
strComputer = "."Set objWMIService = GetObject("winmgmts:" _    & _
  "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set _
  colSettings = objWMIService.ExecQuery _    ("Select * from" & _
  "Win32_OperatingSystem")For Each objOperatingSystem In colSettings     _
  Wscript.Echo "OS Name: " & objOperatingSystem.Name    Wscript.Echo "Version:" & _
  "" & objOperatingSystem.Version    Wscript.Echo "Service Pack: " & _        _
  objOperatingSystem.ServicePackMajorVersion _            & "." & _
  objOperatingSystem.ServicePackMinorVersion    Wscript.Echo "OS Manufacturer:" & _
  "" & objOperatingSystem.Manufacturer    Wscript.Echo "Windows Directory: " & _
  _        objOperatingSystem.WindowsDirectory    Wscript.Echo "Locale: " & _
  objOperatingSystem.Locale    Wscript.Echo "Available Physical Memory: " & _   _
       objOperatingSystem.FreePhysicalMemory    Wscript.Echo "Total Virtual" & _
  "Memory: " & _        objOperatingSystem.TotalVirtualMemorySize    _
  Wscript.Echo "Available Virtual Memory: " & _        _
  objOperatingSystem.FreeVirtualMemory    Wscript.Echo "OS Name: " & _
  objOperatingSystem.SizeStoredInPagingFilesNextSet colSettings = _
  objWMIService.ExecQuery _    ("Select * from Win32_ComputerSystem")For Each _
  objComputer In colSettings     Wscript.Echo "System Name: " & _
  objComputer.Name    Wscript.Echo "System Manufacturer: " & _
  objComputer.Manufacturer    Wscript.Echo "System Model: " & objComputer.Model _
     Wscript.Echo "Time Zone: " & objComputer.CurrentTimeZone    Wscript.Echo _
  "Total Physical Memory: " & _        objComputer.TotalPhysicalMemoryNextSet _
  colSettings = objWMIService.ExecQuery _    ("Select * from" & _
  "Win32_Processor")For Each objProcessor In colSettings     Wscript.Echo _
  "System Type: " & objProcessor.Architecture    Wscript.Echo "Processor: " & _
  objProcessor.DescriptionNextSet colSettings = objWMIService.ExecQuery _    ( _
  "Select * from Win32_BIOS")For Each objBIOS In colSettings     Wscript.Echo _
  "BIOS Version: " & objBIOS.VersionNext
Kann mir da jemand helfen???
PS.: Da ich so gut wie nie mit VB arbeite habe ich keine Ahnung ob das Betreff richtig gewählt ist. Ich Pogrammiere VB im Editor
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Systemdaten auslesen und in Registryschlüssel schreiben976thedog06.12.05 13:32

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel