B4J Code Snippet Test if process is running as administrator on Windows

Private Sub IsRunningAsAdmin As Boolean
    Try
        Dim f As String = GetEnvironmentVariable("SYSTEMDRIVE", "") & "\isadmin.txt"
        File.WriteString(f, "", "test")
        File.Delete(f, "")
        Return True
    Catch
        Return False
    End Try
End Sub