'#### Shell-Script 
	Set WshShell = WScript.CreateObject("WScript.Shell")
		Set WshNetwork = WScript.CreateObject("WScript.Network")
		Set objEnv = WshShell.Environment("PROCESS")
		set objProz=wshshell.environment("SYSTEM")
'#### Winmgmts-Objekte
	Set objSystem = GetObject("winmgmts:")
		set objCPU = objSystem.InstancesOf("Win32_Processor")
		Set objRAM = objSystem.InstancesOf("Win32_PhysicalMemory")
 
 
'############################################################
'########################	Datenerfassung	#############
'############################################################
 
'#### user-Daten
	ComputerName = objenv("computername")
	UserID = objenv("NWusername")
	Vorname = objenv("Vorname")
	Nachname = objenv("Nachname")
	Domain = objenv("Userdomain")
	LogonServer = objenv("LogonServer")
	Datum = Date
	Zeit = Time
'#### CPU-Daten
	CPUAnz=objProz("NUMBER_OF_PROCESSORS")
 
	for each daten in objcpu
		tempCPU=daten.CurrentClockSpeed
		if tempCPU>0 and CPUMHz=0 then CPUMHz=tempCPU
		CPUFamilie=daten.Caption
		tempL2=daten.L2CacheSize
		if tempL2>0 then CPUL2=tempL2
		tempName=daten.Name
		if not tempName="" and CPUName="" then CPUName=tempName
 
	next
 
'#### RAM-Daten
	For Each daten in objRAM
		tempRAM=daten.Capacity/1
		if tempRAM>1100000 then RAM=RAM+tempRAM
	next
 
'#### Seriennummer 
 	Set colItems = objSystem.ExecQuery("SELECT * FROM" & _
   "Win32_ComputerSystemProduct",,48) 
 	For Each objItem in colItems 
  		Computer_SN = Computer_SN & objItem.IdentifyingNumber
 	Next
 	Set colItems=Nothing
 
 
'#### LAN
	Set colItems = objSystem.ExecQuery("SELECT * FROM" & _
  "Win32_NetworkAdapterConfiguration",,48) 
	Set colNet= objSystem.ExecQuery("SELECT * FROM" & _
"Win32_NetworkAdapterConfiguration",,48) 
	For Each objItem in colItems 
      		If not isNull(objItem.IPAddress) Then
       			IPAddress = IPAddress & Join(objItem.IPAddress, ",")
   			IPSubnet = IPSubnet & Join(objItem.IPSubnet, ",")
   			MACAdress = MACAdress & objItem.MACAddress     
      		End If
 	Next
 	Set colItems=Nothing
 
'#### OS
	Set colItems = objSystem.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48) 
 	For Each objItem in colItems 
  		OS = OS & objItem.Caption 
  		OS_Build = objItem.Version
  		OS_SP = objItem.ServicePackMajorVersion
  		OS_SerialNumber = OS_SerialNumber & objItem.SerialNumber
  		OS_CountryCode = OS_CountryCode & objItem.CountryCode & " - " & _
    objItem.Locale
  		OS_RegistredUser = OS_RegistredUser & objItem.RegisteredUser
		Computer_Beschreibung=objItem.Description
 	Next
 	Set colItems=Nothing
 
'#### Model
 	Set colItems = objSystem.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48) 
 	For Each objItem in colItems 
  		Computer_Model=objItem.model
		Computer_Hersteller=objItem.Manufacturer
	Next
 	Set colItems=Nothing