Re: Was befindet sich in eurer Zwischenablage?

[Anonym Inaktiv Registriert seit: 01.01.1970 Beiträge: 0]

[code]Function GetSystem3(WMI)
Set colItems = WMI.ExecQuery(„Select * from Win32_OperatingSystem“,,48)
For Each objItem in colItems
List = List & „Name: “ & objItem.Caption & “ | “
List = List & „Version: “ & objItem.CSDVersion & “ | “
List = List & „Seriennummer: “ & objItem.SerialNumber
Next
GetSystem3 = List
End Function

--