PsExec Script zum auslesen der PC Seriennummer

Dim testFile, objFSO
Dim objComp, objCompAD, objCompLoc, object
Dim strDomainDescription
 
'* Beschreibung des Computerobjektes im AD auslesen  
Set objComp = CreateObject("ADSystemInfo")  
Set objCompAD = GetObject("LDAP://" & objComp.ComputerName)  
strDomainDescription = objCompAD.description
Set objCompAD = Nothing
Set objComp = Nothing



Set objFSO = CreateObject("Scripting.FileSystemObject")  
testFile = "c:\Windows\Logs\inventarisierung.txt"  

If (objFSO.FileExists(testFile)) Then
   	'WScript.Echo "jo file gibts"  
	'end  
Else
		

    sn = GetSerialNumber
	ComputerModel = GetComputerSystem
    'arrMonitors = GetMonitorSerials  
    strDescription = "  SN: " & sn & " Model: " & ComputerModel  
    'For intMon = LBound(arrMonitors) To UBound(arrMonitors)  
    strDescription = strDomainDescription & strDescription
	
    
    'MsgBox strDescription  
    UpdateDescription(strDescription)
     
    Function GetSerialNumber
    strComputer = "."  
    Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
    Set colBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_BIOS")  
    For each objBIOS In colBIOS
    GetSerialNumber = objBIOS.SerialNumber
    Next
    End Function
     
    Sub UpdateDescription(strDescription)
    Set objSysInfo = CreateObject("ADSystemInfo")  
    On Error Resume Next
    Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)  
    objComputer.Description = strDescription
    objComputer.SetInfo
    End Sub
 

 Function GetComputerSystem
strComputer2 = "."  
Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer2 & "\root\cimv2")  
Set colcomputersystem = objWMIService.ExecQuery _
("Select * from Win32_computersystem")  
For each objcomputersystem in colcomputersystem
Getcomputersystem = objcomputersystem.Model
Next
End Function 

CreateAfile

Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")  
   Set MyFile = fso.CreateTextFile("c:\Windows\Logs\inventarisierung.txt", True)  
   MyFile.WriteLine(strDescription)
   MyFile.Close
End Sub


	 
'MsgBox strDomainDescription  
'* Lokale Computerbeschreibung ersetzen  
'MsgBox strDescription  
Set objCompLoc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * FROM Win32_OperatingSystem")  
For Each object In objCompLoc
object.Description = strDescription
object.Put_
Next
Set objCompLoc = Nothing


'WScript.Echo "noe file gibts nicht"  
End If