Festplatten-Seriennummer per StarBasic unter Linux ermitteln
Verfasst: Mo, 19.09.2016 21:08
Hallo,
ich nutze unter MS Windows folgende StarBasic-Function zur Ermittlung der Seriennummer der Systemfestplatte:
Hat jemand eine Idee wie ich die Seriennummer der Festplatte mittels StarBasic auch unter Linux bestimmen kann?
Gruß
Stephan
ich nutze unter MS Windows folgende StarBasic-Function zur Ermittlung der Seriennummer der Systemfestplatte:
Code: Alles auswählen
Function hdd_number()
Dim oleService As Object
Dim WSH As Object
Dim vbs As String
'the WSH must installed on the system
oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
WSH = oleService.createInstance("MSScriptControl.ScriptControl")
WSH.Language = "VBScript"
vbs = vbs + "Dim fso, drv" + CHR(10)
vbs = vbs + "Set fso = CreateObject(""Scripting.FileSystemObject"")" + CHR(10)
vbs = vbs + "Set drv = fso.Drives(""c:\"")" + CHR(10)
vbs = vbs + "ergebnis = drv.SerialNumber"
WSH.ExecuteStatement(vbs)
hdd_number = WSH.CodeObject.ergebnis
End Function
Gruß
Stephan